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 :