Terimakasih anda telah berkunjung kembali di website saya.............
nah, kali ini kita akan membahas tentang pembuatan gaji karyawan dengan menggunakan VB 2008
Desainlah sedemikian rupa, contohnya seperti ini;

dan kodingnya atau listing programmya seperti dibawah ini;

Public Class Form1

    Private Sub Label3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        nik.Items.Add("1")

        nik.Items.Add("2")

        nik.Items.Add("3")

        status.Items.Add("Menikah")

        status.Items.Add("Tidak Menikah")

        jabatan.Items.Add("Manager")

        jabatan.Items.Add("Supervisor")

        jabatan.Items.Add("Jenderal Manager")

    End Sub

    Private Sub nik_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nik.SelectedIndexChanged

        Select Case nik.Text

            Case "1"

                nama.Text = "Zainal Suroh Siregar"

            Case "2"

                nama.Text = "Jonni Panggabean"

            Case "3"

                nama.Text = "Monduon Simorangkir"

        End Select

    End Sub

    Private Sub jabatan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jabatan.SelectedIndexChanged

        Select Case jabatan.Text

            Case "Manager"

                gaji.Text = "4000000"

                pajak.Text = 0.1 * gaji.Text

            Case "Supervisor"

                gaji.Text = "2500000"

                pajak.Text = 0.1 * gaji.Text

            Case "Jendral Manager"

                gaji.Text = "7000000"

                pajak.Text = 0.1 * gaji.Text

        End Select

    End Sub

    Private Sub status_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles status.SelectedIndexChanged

        Select Case status.Text

            Case "Menikah"

                tunjangan.Text = 0.05 * gaji.Text

            Case "Tidak Menikah"

                tunjangan.Text = 0.05 * 0

        End Select

    End Sub

    Private Sub proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles proses.Click

        Total.Text = gaji.Text - pajak.Text + tunjangan.Text

    End Sub

End Class