Dwi Nur'aini

Listing program :

Public Class Form1
    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")

        jabatan.Items.Add("KEPALA DIVISI")
        jabatan.Items.Add("STAFF")
        jabatan.Items.Add("WAKIL KEPALA")

        status.Items.Add("Menikah")
        status.Items.Add("Tidak Menikah")

        jlhnak.Items.Add("0")
        jlhnak.Items.Add("1")
        jlhnak.Items.Add("2")
    End Sub

    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 = "Dwi"
            Case "PS111"
                nama.Text = "Rina"
            Case "KU101"
                nama.Text = "Wani"
            Case Else
                nama.Text = "Yayuk"
        End Select
        Dim p As String
        p = Microsoft.VisualBasic.Left(nik.Text, 2)
        If p = "PM" Then
            bagian.Text = "Pemasaran"
        ElseIf p = "PS" Then
            bagian.Text = "Personalia"
        ElseIf p = "KU" Then
            bagian.Text = "Keuangan"
        ElseIf p = "GD" Then
            bagian.Text = "Gudang"
        End If
    End Sub

    Private Sub jabatan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jabatan.SelectedIndexChanged
        Select Case jabatan.Text
            Case "SUVERVISOR"
                gapok.Text = "5000000"
            Case "STAFF"
                gapok.Text = "2000000"
            Case Else
                gapok.Text = "3500000"
        End Select
        pajak.Text = gapok.Text * 0.1
    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"
                tunjkel.Text = gapok.Text * 0.15
            Case "Tidak Menikah"
                jlhnak.Text = ""
                tunjkel.Text = 0
        End Select
    End Sub

    Private Sub jlhnak_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles jlhnak.KeyPress
        If e.KeyChar = Chr(13) Then
        End If
        Select Case jlhnak.Text
            Case "0"
                tunjnak.Text = 0
            Case "1"
                tunjnak.Text = gapok.Text * 0.05
            Case "2"
                tunjnak.Text = gapok.Text * 0.1
            Case Else
                tunjnak.Text = gapok.Text * 0.5
        End Select
        tot.Text = (gapok.Text) + Val(tunjnak.Text) + Val(tunjkel.Text) - pajak.Text
        tot.Enabled = False
    End Sub

    Private Sub hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus.Click
        nama.Text = ""
        nik.Text = ""
        bagian.Text = ""
        jabatan.Text = ""
        tunjnak.Text = ""
        tunjkel.Text = ""
        pajak.Text = ""
        status.Text = ""
        gapok.Text = ""
        tot.Text = ""
        jlhnak.Text = ""
    End Sub

    Private Sub keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles keluar.Click
        Dim tanya As String
        tanya = MsgBox("Apakah Anda ingin keluar?", MsgBoxStyle.YesNo)
        If tanya = vbCancel Then
            Me.Close()
        ElseIf tanya = vbNo Then
            Me.Focus()
        ElseIf tanya = vbYes Then
            Me.Close()
        End If
    End Sub
End Class

Tampilan ketika program di jalankan :