Public
Class Form1
Private Sub Form1_Load(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
Nik.Items.Add("kk-001")
Nik.Items.Add("ks-002")
Nik.Items.Add("as-001")
Nik.Items.Add("as-002")
Nik.Items.Add("sk-001")
Nik.Items.Add("sk-002")
Status.Items.Add("Menikah")
Status.Items.Add("Tidak Menikh")
Jumlahanak.Items.Add("0")
Jumlahanak.Items.Add("1")
Jumlahanak.Items.Add("2")
Jumlahanak.Items.Add("3")
Jumlahanak.Items.Add("4")
End Sub
Private Sub Nik_SelectedIndexChanged(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles
Nik.SelectedIndexChanged
Dim x As String
x = Mid(Nik.Text, 2, 1)
If x = "K" Then
Jabatan.Text = "Kabag"
ElseIf
x = "S" Then
Jabatan.Text = "Staf"
Else
Jabatan.Text = "-"
End If
x = Mid(Nik.Text, 1, 1)
If x = "K" Then
Bagian.Text = "Keuangan"
ElseIf
x = "S" Then
Bagian.Text = "Security"
ElseIf
x = "A" Then
Bagian.Text = "Administrasi"
Else
Bagian.Text = ""
End If
If
Jabatan.Text = "Kabag" And Bagian.Text = "Keuangan"
Then
Gajian.Text = 4000000
ElseIf
Jabatan.Text = "Staf" And Bagian.Text = "Keuangan"
Then
Gajian.Text = 2000000
ElseIf
Jabatan.Text = "Kabag" And Bagian.Text = "Security"
Then
Gajian.Text = 3000000
ElseIf
Jabatan.Text = "staft=" And Bagian.Text = "Security"
Then
Gajian.Text = 1700000
ElseIf
Jabatan.Text = "Kabag" And Bagian.Text = "Administari"
Then
Gajian.Text = 2500000
ElseIf
Jabatan.Text = "staf" And Bagian.Text = "administasi"
Then
Gajian.Text = 1900000
End If
End Sub
Private Sub btnproses_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles btnproses.Click
If
Jabatan.Text = "Kabag" Then
Tunjanganjabatan.Text = 0.25 *
Val(Gajian.Text)
Else
Tunjanganjabatan.Text = 0
End If
If
Status.Text = "Menikah" Then
tunjanganistri.Text = 0.15 *
Val(Gajian.Text)
End If
Tunjangananak.Text =
Val(Jumlahanak.Text) * 0.02 * (Val(Gajian.Text))
Tunjanganjabatan.Text =
Val(Tunjanganjabatan.Text) + Val(tunjanganistri.Text) + Val(Tunjangananak.Text)
End Sub