.jpg)
Public Class Form1
Sub
addnik()
With
CNik
.Items.Add("001")
.Items.Add("002")
.Items.Add("003")
End With
End Sub
Sub
rancangtabel()
With LV
.Columns.Add("NIK", 100, HorizontalAlignment.Center)
.Columns.Add("Nama", 100, HorizontalAlignment.Center)
.Columns.Add("Jabatan", 100,
HorizontalAlignment.Center)
.Columns.Add("Gaji", 100, HorizontalAlignment.Center)
.Columns.Add("Status", 100,
HorizontalAlignment.Center)
.Columns.Add("Tunj Istri", 100,
HorizontalAlignment.Center)
.Columns.Add("Jumlah Anak", 100,
HorizontalAlignment.Center)
.Columns.Add("Tunj Anak", 100,
HorizontalAlignment.Center)
.Columns.Add("Jam Lembur", 100,
HorizontalAlignment.Center)
.Columns.Add("Honor Lembur", 100,
HorizontalAlignment.Center)
.Columns.Add("Pajak", 100,
HorizontalAlignment.Center)
.Columns.Add("Total", 100, HorizontalAlignment.Center)
.GridLines = True
.View = View.Details
.FullRowSelect = True
End With
End Sub
Sub
isitabel()
Dim x As New ListViewItem
x.Text = CNik.Text
x.SubItems.Add(TNama.Text)
x.SubItems.Add(CJabatan.Text)
x.SubItems.Add(TGaji.Text)
x.SubItems.Add(CStatus.Text)
x.SubItems.Add(Ttunjistri.Text)
x.SubItems.Add(CJmlhAnk.Text)
x.SubItems.Add(TTunjAnk.Text)
x.SubItems.Add(CJmLmbur.Text)
x.SubItems.Add(THnorLmbur.Text)
x.SubItems.Add(TPajak.Text)
x.SubItems.Add(TTotal.Text)
LV.Items.Add(x)
End Sub
Sub
addjabatan()
With
CJabatan
.Items.Add("Mandor")
.Items.Add("Kepala
Bagian")
.Items.Add("Staf")
End With
End Sub
Sub
addstatus()
With
CStatus
.Items.Add("menikah")
.Items.Add("Belum
menikah")
End With
End Sub
Private Sub Form1_Load(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
rancangtabel()
CNik.Items.Add("001")
CNik.Items.Add("002")
CNik.Items.Add("003")
CJabatan.Items.Add("Mandor")
CJabatan.Items.Add("Kepala Bagian")
CJabatan.Items.Add("Staf")
CStatus.Items.Add("Menikah")
CStatus.Items.Add("Belum Menikah")
For i =
1 To 4
CJmlhAnk.Items.Add(i)
Next i
For i =
1 To 10
CJmLmbur.Items.Add(i)
Next i
End Sub
Private Sub CJabatan_SelectedIndexChanged(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles
CJabatan.SelectedIndexChanged
Select Case CJabatan.Text
Case
"Mandor" : TGaji.Text = 1750000
Case
"Kepala Bagian" : TGaji.Text =
2500000
Case
"Staf" : TGaji.Text = 1250000
End Select
TPajak.Text = 0.015 * TGaji.Text
End Sub
Private Sub CStatus_SelectedIndexChanged(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles
CStatus.SelectedIndexChanged
Select Case CStatus.Text
Case
"Menikah" : Ttunjistri.Text = 0.09
* TGaji.Text
Case
"Belum Menikah" : Ttunjistri.Text
= 0
End Select
End Sub
Private Sub CJmlhAnk_SelectedIndexChanged(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles
CJmlhAnk.SelectedIndexChanged
If
CJmlhAnk.Text >= 2 And CStatus.Text = "Menikah" Then
TTunjAnk.Text = 0.07 * TGaji.Text
ElseIf
CJmlhAnk.Text = 1 And CStatus.Text = "Menikah" Then
TTunjAnk.Text = 0.03 * TGaji.Text
Else
TTunjAnk.Text = 0
End If
End Sub
Private Sub Button2_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles Button2.Click
If
CJabatan.Text = "Mandor" Then
THnorLmbur.Text = 7500
ElseIf
CJabatan.Text = "Kepala Bagian" Then
THnorLmbur.Text = 10000
ElseIf CJabatan.Text
= "Staf" Then
THnorLmbur.Text = 5000
Else
THnorLmbur.Text = 0
End If
TTotal.Text = Val(THnorLmbur.Text *
CJmLmbur.Text) + Val(TGaji.Text) + Val(Ttunjistri.Text) + Val(TTunjAnk.Text) -
Val(TPajak.Text)
End Sub
Private Sub Button3_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles Button3.Click
End
End Sub
Private Sub Button1_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
CNik.Text = ""
TNama.Text = ""
CJabatan.Text = ""
TGaji.Text = ""
CStatus.Text = ""
Ttunjistri.Text = ""
CJmlhAnk.Text = ""
TTunjAnk.Text = ""
CJmLmbur.Text = ""
THnorLmbur.Text = ""
TPajak.Text = ""
TGaji.Text = ""
End Sub
Private Sub CNik_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles
CNik.SelectedIndexChanged
Select Case CNik.Text
Case
"001" : TNama.Text = "Desy"
Case
"002" : TNama.Text = "Tiwi"
Case
"003" : TNama.Text = "Dini"
End Select
End Sub
Private Sub Button4_Click_1(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles Button4.Click
isitabel()
End Sub
End Class
Dan hasilnya adalah
