Tugas data pemograman karyawan

ini adalah program data gaji karyawan sederhana,berikut adalah desain awalnya:

dan dibawah ini adalah listing programnya:

Public Class Form1

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

        NIK.Items.Add("PM001")

        NIK.Items.Add("PS002")

        NIK.Items.Add("KU003")

        NIK.Items.Add("GD004")

        NIK.Items.Add("PM002")

        GOLONGAN.Items.Add("IIIA")

        GOLONGAN.Items.Add("IIIB")

        GOLONGAN.Items.Add("IIIC")

        STATUS.Items.Add("menikah")

        STATUS.Items.Add("belum menikah")

    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NIK.SelectedIndexChanged

        Select Case Nik.Text

            Case "PM001"

                NAMA.Text = "dita"

            Case "PS002"

                NAMA.Text = "rama"

            Case "KU003"

                NAMA.Text = "dhani"

            Case "GD004"

                NAMA.Text = "dinda"

            Case "PM002"

                NAMA.Text = "savira"

        End Select

        Dim x As String

        x = Microsoft.VisualBasic.Left(NIK.Text, 2)

        If x = "PM" Then

            BAGIAN.text = "pemasaran"

        ElseIf x = "PS" Then

            BAGIAN.text = "personalia"

        ElseIf x = "KU" Then

            BAGIAN.text = "keuangan"

        Else

            BAGIAN.text = "pemasaran"

        End If

    End Sub

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NAMA.TextChanged

    End Sub

    Private Sub GOLONGAN_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GOLONGAN.SelectedIndexChanged

        Select Case GOLONGAN.Text

            Case "IIIA"

                GAJIPOKOK.Text = "1000000"

            Case "IIIB"

                GAJIPOKOK.Text = "2000000"

            Case "IIIC"

                GAJIPOKOK.Text = "3000000"

        End Select

        PAJAK.Text = 0.03 * GAJIPOKOK.Text

    End Sub

    Private Sub Btn_proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_proses.Click

        TOTALGAJI.Text = Val(GAJIPOKOK.Text) + Val(TUNJANGANKEL.Text) - Val(PAJAK.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"

                TUNJANGANKEL.Text = 0.1 * GAJIPOKOK.Text

            Case "belum menikah"

                TUNJANGANKEL.Text = "0"

        End Select

    End Sub

    Private Sub Btn_hpus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_hpus.Click

        NIK.Text = ""

        NAMA.Text = ""

        BAGIAN.Text = ""

        GOLONGAN.Text = ""

        GAJIPOKOK.Text = ""

        PAJAK.Text = ""

        STATUS.Text = ""

        TUNJANGANKEL.Text = ""

        TOTALGAJI.Text = ""

    End Sub

End Class

berikut adalah lanjutan desain di atas:

terima kasih.