Berikut Adalah Listing Program nya :
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")
NIK.Items.Add("PM011")
Jabatan.Items.Add("Kepala Devisi")
Jabatan.Items.Add("Staff")
Jabatan.Items.Add("Wakil Kepala")
Status.Items.Add("Menikah")
Status.Items.Add("Tidak Menikah")
JA.Items.Add("0")
JA.Items.Add("1")
JA.Items.Add("2")
End Sub
Private Sub NIK_SelectedIndexChanged(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles
NIK.SelectedIndexChanged
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"
ElseIf
x = "GD" Then
Bagian.Text = "Gudang"
End If
If
NIK.Text = "PM010" Then
Nama.Text = "Dasner"
ElseIf
NIK.Text = "PS111" Then
Nama.Text = "Ridho"
ElseIf
NIK.Text = "KU101" Then
Nama.Text = "Greg"
ElseIf
NIK.Text = "GD100" Then
Nama.Text = "Reynaldi"
ElseIf
NIK.Text = "PM011" Then
Nama.Text = "Arman"
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
"Kepala Devisi"
GP.Text = "5000000"
Case
"Staff"
GP.Text = "2000000"
Case
"Wakil Kepala"
GP.Text = "3500000"
End Select
Pajak.Text = GP.Text * 0.1
End Sub
Private Sub Status_SelectedIndexChanged(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles
Status.SelectedIndexChanged
TK.Text = GP.Text * 0.15
If
Status.Text = "Menikah" Then
TK.Text = 0.15 * GP.Text
ElseIf
Status.Text = "Tidak Menikah" Then
TK.Text = 0
End If
End Sub
Private Sub JA_KeyPress(ByVal
sender As Object,
ByVal e As
System.Windows.Forms.KeyPressEventArgs) Handles
JA.KeyPress
If
e.KeyChar = Chr(13) Then
Select
Case JA.Text
Case
"0"
TA.Text = 0
Case
"1"
TA.Text = GP.Text * 0.05
Case
"2"
TA.Text = GP.Text * 0.1
Case
Else
TA.Text = GP.Text * 0.5
End
Select
End If
TG.Text = (GP.Text) + Val(TA.Text) +
Val(TK.Text) - Pajak.Text
TG.Enabled = False
End Sub
Private Sub Btn_Hapus_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles Btn_Hapus.Click
Nama.Text = ""
Bagian.Text = ""
Jabatan.Text = ""
GP.Text = ""
Pajak.Text = ""
Status.Text = ""
JA.Text = ""
TK.Text = ""
TA.Text = ""
TG.Text = ""
End Sub
Private Sub Btn_Keluar_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles Btn_Keluar.Click
End
End Sub
End Class
