Penggajian Karyawan

Ini adalah desain sederhana dalam penggajian karyawan.
Berikut adalah desain awalnya :

Public Class Form1

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

        Select Case nik.Text

            Case "PM010"

                nama.Text = "Ratna"

                bagian.Text = "Pemasaran"

            Case "PS11"

                nama.Text = "Santi"

                bagian.Text = "Personalia"

            Case "KU101"

                nama.Text = "jono"

                bagian.Text = "Keuangan"

            Case "GD100"

                nama.Text = "juni"

                bagian.Text = "Gudang"

            Case "PM011"

                nama.Text = "yanna"

                bagian.Text = "Pemasaran"

        End Select

    End Sub

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

        Select Case gol.Text

            Case "IIIA"

                gp.Text = "1000000"

            Case "IIIB"

                gp.Text = "2000000"

            Case "IIIC"

                gp.Text = "3000000"

        End Select

        pajak.Text = 0.03 * gp.Text

    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"

                tk.Text = 0.1 * gp.Text

            Case "Belum menikah"

                tk.Text = 0

        End Select

    End Sub

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

        nik.Items.Add("PM010")

        nik.Items.Add("PS111")

        nik.Items.Add("KU101")

        nik.Items.Add("GD100")

        nik.Items.Add("PM011")

        gol.Items.Add("IIIA")

        gol.Items.Add("IIIB")

        gol.Items.Add("IIIC")

        status.Items.Add("Menikah")

        status.Items.Add("Belum menikah")

    End Sub

    Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click

        nik.Text = ""

        nama.Text = ""

        bagian.Text = ""

        gol.Text = ""

        gp.Text = ""

        pajak.Text = ""

        status.Text = ""

        gol.Text = ""

        tk.Text = ""

        tg.Text = ""

    End Sub

    Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click

        End

    End Sub

    Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click

        tg.Text = Val(gp.Text) + Val(tk.Text) - Val(pajak.Text)

    End Sub

End Class

Kemudian setelah dilaksanakan perintah diatas,maka hasil akhirnya akan seprti dibawah ini:

http://sinndia.blogspot.com/2013/11/ini-adalah-desain-sederhana-dalam.html

Sekian dan terimakasih.