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 Divisi")
jabatan.Items.Add("Staff")
jabatan.Items.Add("Wakil Kepala")
status.Items.Add("Menikah")
status.Items.Add("Tidak Menikah")
Dim d As Integer
For d = 0 To 10
j_anak.Items.Add(d)
Next
End Sub
Private Sub nik_SelectedIndexChanged(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles nik.SelectedIndexChanged
Dim n As String
n = Microsoft.VisualBasic.Left(nik.Text, 2)
If n = "PM" Then
bagian.Text = "Pemasokan"
nama.Text = "Putri"
ElseIf n = "PS" Then
bagian.Text = "Personalia"
nama.Text = "Martha"
ElseIf n = "KU" Then
bagian.Text = "Keuangan"
nama.Text = "Eko"
Else
bagian.Text = "Gudang"
nama.Text = "Iwan"
End If
End Sub
Private Sub jabatan_SelectedIndexChanged(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles
jabatan.SelectedIndexChanged
If jabatan.Text = "Kepala Divisi" Then
gapok.Text = "5000000"
pajak.Text = 0.1 * gapok.Text
ElseIf jabatan.Text = "Staff" Then
gapok.Text = "2000000"
pajak.Text = 0.1 * gapok.Text
Else
gapok.Text = "3500000"
pajak.Text = 0.1 * gapok.Text
End If
End Sub
Private Sub status_SelectedIndexChanged(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles
status.SelectedIndexChanged
If status.Text = "Menikah" Then
tunj_kel.Text = 0.15 * gapok.Text
Else
tunj_kel.Text = 0
End If
End Sub
Private Sub ja_SelectedIndexChanged(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles j_anak.SelectedIndexChanged
If j_anak.Text = "1" Then
tunj_anak.Text = 0.05 * gapok.Text
ElseIf j_anak.Text = "2" Then
tunj_anak.Text = 0.1 * gapok.Text
Else
tunj_anak.Text = 0
End If
total_gaji.Text = Val(gapok.Text) + Val(tunj_kel.Text) + Val(tunj_anak.Text) - Val(pajak.Text)
End Sub
Private Sub Buttonhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Buttonhapus.Click
nik.Text = ""
nama.Text = ""
bagian.Text = ""
jabatan.Text = ""
gapok.Text = ""
pajak.Text = ""
status.Text = ""
j_anak.Text = ""
tunj_kel.Text = ""
tunj_anak.Text = ""
total_gaji.Text = ""
End Sub
Private Sub Buttonkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Buttonkeluar.Click
Dim tanya As String
tanya = MsgBox("Apakah Anda Yakin Mau Keluar", MsgBoxStyle.Question + MsgBoxStyle.YesNo)
If tanya = vbYes Then
Me.Close()
Else
Exit Sub
End If
End Sub
End Class
