Public Class Form1
Private Sub
Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
MyBase.Load
nama.Focus()
jabat.Items.Add("Mandor")
jabat.Items.Add("Kepala Bagian")
jabat.Items.Add("Staf")
stts.Items.Add("Menikah")
stts.Items.Add("Belum
Menikah")
Call
buattabel()
End Sub
Private Sub
jabat_SelectedIndexChanged(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
jabat.SelectedIndexChanged
Select Case jabat.Text
Case
"Mandor"
gj_pkok.Text = 1750000
pajak.Text = 0.015 *
Val(gj_pkok.Text)
Case
"Staf"
gj_pkok.Text = 1250000
pajak.Text = 0.015 * Val(gj_pkok.Text)
Case
"Kepala Bagian"
gj_pkok.Text = 2500000
pajak.Text = 0.015 *
Val(gj_pkok.Text)
End Select
stts.Focus()
End Sub
Private Sub
stts_SelectedIndexChanged(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
stts.SelectedIndexChanged
Dim ket
As String
ket = stts.Text = "Menikah"
If
jabat.Text = "Mandor" Then
t_istri.Text = 0.09 * 1750000
ElseIf
jabat.Text = "Staf" Then
t_istri.Text = 0.09 * 1250000
ElseIf
jabat.Text = "Kepala Bagian" Then
t_istri.Text = 0.09 * 2500000
End If
If
stts.Text = "Belum Menikah" Then
t_istri.Text = 0
End If
jlh_anak.Focus()
End Sub
Private Sub jlh_anak_TextChanged(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles jlh_anak.TextChanged
If
jlh_anak.Text = "1" Then
t_anak.Text = 0.03 *
Val(gj_pkok.Text)
ElseIf
jlh_anak.Text >= "2" Then
t_anak.Text = 0.07 *
Val(gj_pkok.Text)
End If
jam.Focus()
End Sub
Private Sub
jam_TextChanged(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
jam.TextChanged
If
jabat.Text = "Mandor" Then
upah_lbr.Text = 7500 *
Val(jam.Text)
ElseIf
jabat.Text = "Staf" Then
upah_lbr.Text = 5000 *
Val(jam.Text)
ElseIf
jabat.Text = "Kepala Bagian" Then
upah_lbr.Text = 10000 *
Val(jam.Text)
End If
End Sub
Private Sub
btn_hitung_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
btn_hitung.Click
total_gj.Text = Val(gj_pkok.Text) +
Val(t_istri.Text) + Val(t_anak.Text) + Val(upah_lbr.Text) - Val(pajak.Text)
End Sub
Sub buattabel()
LV.Columns.Add("Nama",
80, HorizontalAlignment.Center)
LV.Columns.Add("Jabatan",
100, HorizontalAlignment.Center)
LV.Columns.Add("Status",
60, HorizontalAlignment.Center)
LV.Columns.Add("Gaji
Pokok", 100, HorizontalAlignment.Right)
LV.Columns.Add("Tunjangan
Istri", 120, HorizontalAlignment.Right)
LV.Columns.Add("Jumlah
Anak", 100, HorizontalAlignment.Center)
LV.Columns.Add("Tunjangan
anak", 120, HorizontalAlignment.Right)
LV.Columns.Add("Pajak",
60, HorizontalAlignment.Right)
LV.Columns.Add("Jam
Lembur", 100, HorizontalAlignment.Center)
LV.Columns.Add("Upah
Lembur", 100, HorizontalAlignment.Right)
LV.Columns.Add("Total
Gaji", 100, HorizontalAlignment.Center)
LV.View = View.Details
LV.FullRowSelect = True
LV.GridLines = True
End Sub
Sub isitabel()
Dim lst
As New
ListViewItem
lst.Text = nama.Text
lst.SubItems.Add(jabat.Text)
lst.SubItems.Add(stts.Text)
lst.SubItems.Add(gj_pkok.Text)
lst.SubItems.Add(t_istri.Text)
lst.SubItems.Add(jlh_anak.Text)
lst.SubItems.Add(t_anak.Text)
lst.SubItems.Add(pajak.Text)
lst.SubItems.Add(jam.Text)
lst.SubItems.Add(upah_lbr.Text)
lst.SubItems.Add(total_gj.Text)
LV.Items.Add(lst)
End Sub
Private Sub
btn_bersih_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
btn_bersih.Click
nama.Text = ""
jabat.Text = ""
stts.Text = ""
gj_pkok.Text = ""
t_istri.Text = ""
jlh_anak.Text = ""
t_anak.Text = ""
pajak.Text = ""
jam.Text = ""
upah_lbr.Text = ""
total_gj.Text = ""
nama.Focus()
End Sub
Private Sub
btn_simpan_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
btn_simpan.Click
Call
isitabel()
nama.Text = ""
jabat.Text = ""
stts.Text = ""
gj_pkok.Text = ""
t_istri.Text = ""
jlh_anak.Text = ""
t_anak.Text = ""
pajak.Text = ""
jam.Text = ""
upah_lbr.Text = ""
total_gj.Text = ""
nama.Focus()
End Sub
Private Sub
btn_hapussemua_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
btn_hapussemua.Click
LV.Items.Clear()
End Sub
Private Sub
btn_hpspilih_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
btn_hpspilih.Click
LV.Items.Remove(LV.SelectedItems(0))
End Sub
Private Sub
btn_keluar_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
btn_keluar.Click
Dim q As String
q = MsgBox("Anda
Yakin Ingin Keluar", MsgBoxStyle.Question + MsgBoxStyle.YesNo, "Keluar")
If q =
vbYes Then
Close()
End If
End Sub
End class
Bentuk form :