Public Class Form1
Private Sub Form1_Load(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
buattabel()
NIK.Items.Add("001")
NIK.Items.Add("002")
NIK.Items.Add("003")
J.Items.Add("Mandor")
J.Items.Add("Kepala
Bagian")
J.Items.Add("Staff")
S.Items.Add("Menikah")
S.Items.Add("Tidak
Menikah")
For i =
1 To 4
JA.Items.Add(i)
Next i
For i =
1 To 10
JL.Items.Add(i)
Next i
End Sub
Private Sub NIK_SelectedIndexChanged(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles
NIK.SelectedIndexChanged
If
NIK.Text = "001" Then
N.Text = "PARTO"
ElseIf
NIK.Text = "002" Then
N.Text = "ANDRE"
ElseIf
NIK.Text = "003" Then
N.Text = "SULE"
Else
N.Text = ""
End If
End Sub
Private Sub J_SelectedIndexChanged(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles
J.SelectedIndexChanged
Select Case J.Text
Case
"Mandor" : G.Text = 17500000
Case
"Kepala Bagian" : G.Text =
25000000
Case
"Staff" : G.Text = 12500000
End Select
P.Text = 0.015 * G.Text
End Sub
Private Sub S_SelectedIndexChanged(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles
S.SelectedIndexChanged
Select Case S.Text
Case
"Menikah" : TI.Text = 0.09 *
G.Text
Case
"Tidak Menikah" : TI.Text = 0
End Select
End Sub
Private Sub JA_SelectedIndexChanged(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles
JA.SelectedIndexChanged
If
JA.Text = 1 And S.Text = "Menikah" Then
TA.Text = 0.03 * G.Text
ElseIf
JA.Text >= 2 And S.Text = "Menikah" Then
TA.Text = 0.07 * G.Text
Else
TA.Text = ""
End If
End Sub
Private Sub BtnPROSES_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles BtnPROSES.Click
If
J.Text = "Mandor" Then
HL.Text = 7500
ElseIf
J.Text = "Kepala Bagian" Then
HL.Text = 10000
ElseIf
J.Text = "Staff" Then
HL.Text = 5000
Else
HL.Text = ""
End If
T.Text = Val(HL.Text * JL.Text) +
Val(G.Text) + Val(TI.Text) + Val(TA.Text)
End Sub
Private Sub BtnKELUAR_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles BtnKELUAR.Click
End
End Sub
Private Sub BtnBaru_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles BtnBaru.Click
NIK.Text = ""
N.Text = ""
J.Text = ""
G.Text = ""
S.Text = ""
TI.Text = ""
JA.Text = ""
TA.Text = ""
JL.Text = ""
HL.Text = ""
P.Text = ""
T.Text = ""
End Sub
Sub
buattabel()
Lv.Columns.Add("Nik",
50, HorizontalAlignment.Left)
Lv.Columns.Add("Nama",
80, HorizontalAlignment.Left)
Lv.Columns.Add("Jabatan",
120, HorizontalAlignment.Left)
Lv.Columns.Add("Gaji",
120, HorizontalAlignment.Left)
Lv.Columns.Add("Status",
120, HorizontalAlignment.Left)
Lv.Columns.Add("Tunjangan
istri", 120, HorizontalAlignment.Left)
Lv.Columns.Add("Jumlah
Anak", 120, HorizontalAlignment.Left)
Lv.Columns.Add("Tunjangan
Anak", 120, HorizontalAlignment.Left)
Lv.Columns.Add("Jam
Lembur", 120, HorizontalAlignment.Left)
Lv.Columns.Add("Honor
lembur", 120, HorizontalAlignment.Left)
Lv.Columns.Add("Pajak",
90, HorizontalAlignment.Left)
Lv.Columns.Add("Total",
90, HorizontalAlignment.Left)
Lv.View = View.Details
Lv.GridLines = True
Lv.FullRowSelect = True
End Sub
Sub
isitabel()
Dim lst
As New
ListViewItem
lst.Text = Nik.Text
lst.SubItems.Add(N.Text)
lst.SubItems.Add(J.Text)
lst.SubItems.Add(G.Text)
lst.SubItems.Add(S.Text)
lst.SubItems.Add(TI.Text)
lst.SubItems.Add(JA.Text)
lst.SubItems.Add(TA.Text)
lst.SubItems.Add(JL.Text)
lst.SubItems.Add(HL.Text)
lst.SubItems.Add(P.Text)
lst.SubItems.Add(T.Text)
Lv.Items.Add(lst)
End Sub
Private Sub Simpan_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles Simpan.Click
isitabel()
End Sub
Private Sub Hapusygdipilih_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles Hapusygdipilih.Click
LV.Items.Remove(LV.SelectedItems(0))
End Sub
Private Sub Hapussemua_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles Hapussemua.Click
LV.Items.Clear()
End Sub
Private Sub Btnout_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles Btnout.Click
Me.Close()
End Sub
End Class
