Listing Program
Private
Sub Form1_Load(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
nik.Items.Add("1001")
nik.Items.Add("1002")
nik.Items.Add("1003")
Jabatan.Items.Add("Mandor")
Jabatan.Items.Add("Kepala Bagian")
Jabatan.Items.Add("Staff")
status.Items.Add("Belum Menikah")
status.Items.Add("Menikah")
jmlhlmbur.Items.Add("1 jam")
jmlhlmbur.Items.Add("2 jam")
jmlhlmbur.Items.Add("3 jam")
End
Sub
Private
Sub nik_SelectedIndexChanged(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles nik.SelectedIndexChanged
If nik.Text = "1001"
Then
nama.Text = "Julianti Putri"
ElseIf nik.Text = "1002"
Then
nama.Text = "Rahmad Eko"
ElseIf nik.Text = "1003"
Then
nama.Text = "Rada Dewi"
Else
nama.Text = "Empty"
End If
End
Sub
Private
Sub status_SelectedIndexChanged(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles
status.SelectedIndexChanged
If status.Text = "Belum
Menikah" Then
tunjanak.Text = 0
tunjistri.Text = 0
ElseIf status.Text = "Menikah" Then
tunjistri.Text = 175000
Else
tunjanak.Text = 0
tunjistri.Text = 0
End If
End
Sub
Private
Sub btnproses_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles btnproses.Click
If jumlahank.Text <= 2 Then
tunjanak.Text = jumlahank.Text * (0.03 * gaji.Text)
ElseIf jumlahank.Text >= 2 Then
tunjanak.Text = jumlahank.Text * (0.07 * gaji.Text)
End If
If jmlhlmbur.Text = "1
jam" Then
Lembur.Text = 7500
ElseIf jmlhlmbur.Text = "2 jam" Then
Lembur.Text = 10000
ElseIf jmlhlmbur.Text = "3
jam" Then
Lembur.Text = 15000
Else
Lembur.Text = 0
End If
Pajak.Text
= 0.015 * gaji.Text
Total.Text
= Val(gaji.Text) + Val(tunjanak.Text) + Val(tunjistri.Text) + Val(Lembur.Text)
- Val(Pajak.Text)
End
Sub
Private
Sub btnhapus_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles btnhapus.Click
nik.Text = ""
nama.Text =
""
Jabatan.Text = ""
gaji.Text =
""
status.Text
= ""
jumlahank.Text = ""
tunjistri.Text = ""
tunjanak.Text = ""
Pajak.Text
= ""
Lembur.Text
= ""
jmlhlmbur.Text = ""
Total.Text
= ""
nik.Focus()
End
Sub
Sub
bonusgaji()
If status.Text = "MENIKAH"
Then
tunjistri.Text = 0.09 * gaji.Text
If jumlahank.Text = "1"
Then
tunjanak.Text = 0.03 * gaji.Text
ElseIf jumlahank.Text = "2" Then
tunjanak.Text = 0.07 * gaji.Text
ElseIf jumlahank.Text >= "2" Then
tunjanak.Text = 0.07 * gaji.Text
End If
Else
tunjistri.Text = "0"
tunjanak.Text = "0"
End If
End
Sub
Private
Sub Jabatan_SelectedIndexChanged
(ByVal sender As
System.Object, ByVal e
As System.EventArgs) Handles
Jabatan.SelectedIndexChanged
If Jabatan.Text = "Mandor"
Then
gaji.Text = 1750000
ElseIf Jabatan.Text = "Kepala Bagian" Then
gaji.Text = 2500000
ElseIf Jabatan.Text = "Staff"
Then
gaji.Text = 1250000
Else
gaji.Text = 0
End If
End
Sub
Private
Sub btnkeluar_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles btnkeluar.Click
End
End
Sub
Private Sub jmlhlmbur_SelectedIndexChanged(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles
jmlhlmbur.SelectedIndexChanged
If Jabatan.Text = "mandor"
Then
Lembur.Text = 7500
ElseIf Jabatan.Text = "kepala bagian" Then
Lembur.Text = 10000
ElseIf Jabatan.Text = "staff"
Then
Lembur.Text = 5000
Else
Lembur.Text = 0
End If
End
Sub
End Class
Hasil Program