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 = "JEAN"
ElseIf NIK.Text = "002"
Then
N.Text = "JESH"
ElseIf
NIK.Text = "003" Then
N.Text = "JOSH"
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 = 1750000
Case
"Kepala Bagian" : G.Text = 2500000
Case
"Staff" : G.Text = 1250000
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",
60, HorizontalAlignment.Left)
LV.Columns.Add("JABATAN",
60, HorizontalAlignment.Left)
LV.Columns.Add("Gaji",
60, HorizontalAlignment.Left)
LV.Columns.Add("Status",
60, HorizontalAlignment.Left)
LV.Columns.Add("Tnjngn
istri", 60, HorizontalAlignment.Left)
LV.Columns.Add("Jmlh
Ank", 60, HorizontalAlignment.Left)
LV.Columns.Add("Tnjngn
Ank", 60, HorizontalAlignment.Left)
LV.Columns.Add("Jam
Lembur", 60, HorizontalAlignment.Left)
LV.Columns.Add("Hnr
lmbr", 60, HorizontalAlignment.Left)
LV.Columns.Add("Pjk",
60, HorizontalAlignment.Left)
LV.Columns.Add("Totl",
60, 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
End Class
0 komentar:
Posting Komentar