Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Golongan.Items.Add("I")
Golongan.Items.Add("II")
Golongan.Items.Add("III")
Golongan.Items.Add("IV")
Departemen.Items.Add("Keuangan")
Departemen.Items.Add("Persediaan")
Departemen.Items.Add("Pembelian")
Departemen.Items.Add("Penjualan")
Departemen.Items.Add("Gudang")
Departemen.Items.Add("Personalia")
Status.Items.Add("Menikah")
Status.Items.Add("Tidak Menikah")
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If Golongan.Text = "I" Then
If Departemen.Text = "Keuangan" Then
If Status.Text = "Menikah" Then
Gapok.Text = 3400000
ElseIf Status.Text = "Tidak Menikah" Then
Gapok.Text = 3000000
End If
ElseIf Departemen.Text = "Persediaan" Then
If Status.Text = "Menikah" Then
Gapok.Text = 2500000
ElseIf Status.Text = "Tidak Menikah" Then
Gapok.Text = 2300000
End If
ElseIf Departemen.Text = "Pembelian" Then
If Status.Text = "Menikah" Then
Gapok.Text = 2800000
ElseIf Status.Text = "Tidak Menikah" Then
Gapok.Text = 2600000
End If
ElseIf Departemen.Text = "Penjualan" Then
If Status.Text = "Menikah" Then
Gapok.Text = 2500000
ElseIf Status.Text = "Tidak Menikah" Then
Gapok.Text = 2100000
End If
ElseIf Departemen.Text = "Gudang" Then
If Status.Text = "Menikah" Then
Gapok.Text = 2400000
ElseIf Status.Text = "Tidak Menikah" Then
Gapok.Text = 2100000
End If
ElseIf Departemen.Text = "Personalia" Then
If Status.Text = "Menikah" Then
Gapok.Text = 2300000
ElseIf Status.Text = "Tidak Menikah" Then
Gapok.Text = 2200000
End If
End If
ElseIf Golongan.Text = "II" Then
If Departemen.Text = "Keuangan" Then
If Status.Text = "Menikah" Then
Gapok.Text = 3000000
ElseIf Status.Text = "Tidak Menikah" Then
Gapok.Text = 2800000
End If
ElseIf Departemen.Text = "Persediaan" Then
If Status.Text = "Menikah" Then
Gapok.Text = 2400000
ElseIf Status.Text = "Tidak Menikah" Then
Gapok.Text = 2300000
End If
ElseIf Departemen.Text = "Pembelian" Then
If Status.Text = "Menikah" Then
Gapok.Text = 2900000
ElseIf Status.Text = "Tidak Menikah" Then
Gapok.Text = 2700000
End If
ElseIf Departemen.Text = "Penjualan" Then
If Status.Text = "Menikah" Then
Gapok.Text = 2600000
ElseIf Status.Text = "Tidak Menikah" Then
Gapok.Text = 2400000
End If
ElseIf Departemen.Text = "Gudang" Then
If Status.Text = "Menikah" Then
Gapok.Text = 2200000
ElseIf Status.Text = "Tidak Menikah" Then
Gapok.Text = 2000000
End If
ElseIf Departemen.Text = "Personalia" Then
If Status.Text = "Menikah" Then
Gapok.Text = 2700000
ElseIf Status.Text = "Tidak Menikah" Then
Gapok.Text = 2500000
End If
End If
ElseIf Golongan.Text = "III" Then
If Departemen.Text = "Keuangan" Then
If Status.Text = "Menikah" Then
Gapok.Text = 3200000
ElseIf Status.Text = "Tidak Menikah" Then
Gapok.Text = 3000000
End If
ElseIf Departemen.Text = "Persediaan" Then
If Status.Text = "Menikah" Then
Gapok.Text = 29000000
ElseIf Status.Text = "Tidak Menikah" Then
Gapok.Text = 2600000
End If
ElseIf Departemen.Text = "Pembelian" Then
If Status.Text = "Menikah" Then
Gapok.Text = 2700000
ElseIf Status.Text = "Tidak Menikah" Then
Gapok.Text = 2600000
End If
ElseIf Departemen.Text = "Penjualan" Then
If Status.Text = "Menikah" Then
Gapok.Text = 2800000
ElseIf Status.Text = "Tidak Menikah" Then
Gapok.Text = 2500000
End If
ElseIf Departemen.Text = "Gudang" Then
If Status.Text = "Menikah" Then
Gapok.Text = 2400000
ElseIf Status.Text = "Tidak Menikah" Then
Gapok.Text = 2200000
End If
ElseIf Departemen.Text = "Personalia" Then
If Status.Text = "Menikah" Then
Gapok.Text = 2500000
ElseIf Status.Text = "Tidak Menikah" Then
Gapok.Text = 2300000
End If
End If
ElseIf Golongan.Text = "IV" Then
If Departemen.Text = "Keuangan" Then
If Status.Text = "Menikah" Then
Gapok.Text = 3500000
ElseIf Status.Text = "Tidak Menikah" Then
Gapok.Text = 3200000
End If
ElseIf Departemen.Text = "Persediaan" Then
If Status.Text = "Menikah" Then
Gapok.Text = 3000000
ElseIf Status.Text = "Tidak Menikah" Then
Gapok.Text = 2900000
End If
ElseIf Departemen.Text = "Pembelian" Then
If Status.Text = "Menikah" Then
Gapok.Text = 2700000
ElseIf Status.Text = "Tidak Menikah" Then
Gapok.Text = 2500000
End If
ElseIf Departemen.Text = "Penjualan" Then
If Status.Text = "Menikah" Then
Gapok.Text = 2500000
ElseIf Status.Text = "Tidak Menikah" Then
Gapok.Text = 2300000
End If
ElseIf Departemen.Text = "Gudang" Then
If Status.Text = "Menikah" Then
Gapok.Text = 2600000
ElseIf Status.Text = "Tidak Menikah" Then
Gapok.Text = 2400000
End If
ElseIf Departemen.Text = "Personalia" Then
If Status.Text = "Menikah" Then
Gapok.Text = 2600000
ElseIf Status.Text = "Tidak Menikah" Then
Gapok.Text = 2400000
End If
End If
End If
TotalG.Text = Gapok.Text - UangT.Text - UangM.Text
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
NIP.Text = ""
NP.Text = ""
Golongan.Text = ""
Departemen.Text = ""
KoAs.Text = ""
Status.Text = ""
UangT.Text = ""
UangM.Text = ""
Gapok.Text = ""
TotalG.Text = ""
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
End
End Sub
End Class
