SIMULASI
PENGGAJIAN KARYAWAN MENGGUNAKAN LISTVIEW
CODE PROGRAM :
PublicClass btn_baru
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
Gaji", 90, HorizontalAlignment.Left)
LV.View = View.Details
LV.GridLines = True
LV.FullRowSelect = True
EndSub
Sub IsiTabel()
Dim Lst AsNew ListViewItem
Lst.Text = nik.Text
Lst.SubItems.Add(nama.Text)
Lst.SubItems.Add(jabatan.Text)
Lst.SubItems.Add(gaji.Text)
Lst.SubItems.Add(status.Text)
Lst.SubItems.Add(tunjangan_istri.Text)
Lst.SubItems.Add(jumlah_anak.Text)
Lst.SubItems.Add(tunjangan_anak.Text)
Lst.SubItems.Add(jam_lembur.Text)
Lst.SubItems.Add(honor_lembur.Text)
Lst.SubItems.Add(pajak.Text)
Lst.SubItems.Add(total.Text)
LV.Items.Add(Lst)
EndSub
PrivateSub
Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load
BuatTabel()
nik.Items.Add("001")
nik.Items.Add("002")
nik.Items.Add("003")
jabatan.Items.Add("mandor")
jabatan.Items.Add("kepala bagian")
jabatan.Items.Add("staff")
status.Items.Add("Menikah")
status.Items.Add("tidak menikah")
For i = 1 To 4
jumlah_anak.Items.Add(i)
Next i
For i = 1 To 10
jam_lembur.Items.Add(i)
Next i
Me.Text = "julianto simbolon"
EndSub
PrivateSub
jabatan_SelectedIndexChanged(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
jabatan.SelectedIndexChanged
SelectCase
jabatan.Text
Case"mandor" : gaji.Text = 1750000
Case"kepala bagian" : gaji.Text = 2500000
Case"staff" : gaji.Text = 1250000
EndSelect
pajak.Text = 0.015 * gaji.Text
EndSub
PrivateSub
status_SelectedIndexChanged(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
status.SelectedIndexChanged
Dim x AsString
x =
Microsoft.VisualBasic.Mid(status.Text, 2)
SelectCase
status.Text
Case"Menikah" : tunjangan_istri.Text = 0.09 * gaji.Text
Case"tidak menikah" : tunjangan_istri.Text = 0
status.Text =
Val(tunjangan_istri.Text) * Val(status.Text)
EndSelect
EndSub
PrivateSub
jumlah_anak_SelectedIndexChanged(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
jumlah_anak.SelectedIndexChanged
Dim x AsString
x =
Microsoft.VisualBasic.Mid(status.Text, 2)
If
jumlah_anak.Text >= 2 And status.Text = "Menikah"Then
tunjangan_anak.Text = 0.07 *
gaji.Text
ElseIf
jumlah_anak.Text = 1 And status.Text = "menikah"Then
tunjangan_anak.Text = 0.03 *
gaji.Text
EndIf
jumlah_anak.Text =
Val(tunjangan_anak.Text) * Val(jumlah_anak.Text)
EndSub
PrivateSub
nik_SelectedIndexChanged(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
nik.SelectedIndexChanged
If nik.Text =
"001"Then
nama.Text = "julianto"
ElseIf nik.Text =
"002"Then
nama.Text = "irman"
ElseIf nik.Text =
"003"Then
nama.Text = "iwansen"
EndIf
EndSub
PrivateSub
btn_proses_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
btn_proses.Click
If
jabatan.Text = "mandor"Then
honor_lembur.Text = "7500"
ElseIf
jabatan.Text = "kepala bagian"Then
honor_lembur.Text = "1000"
ElseIf
jabatan.Text = "staff"Then
honor_lembur.Text = "5000"
Else
honor_lembur.Text = 0
EndIf
total.Text = Val(jam_lembur.Text) +
Val(gaji.Text) + Val(tunjangan_istri.Text) + Val(tunjangan_anak.Text) -
Val(pajak.Text)
EndSub
PrivateSub
btn_simpankelistview_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
btn_simpankelistview.Click
IsiTabel()
EndSub
PrivateSub
btn_hapussemuadata_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
btn_hapussemuadata.Click
LV.Items.Clear()
EndSub
PrivateSub
btn_hapusdatayangdipilih_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
btn_hapusdatayangdipilih.Click
LV.Items.Remove(LV.SelectedItems(0))
EndSub
PrivateSub
btn_keluar_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
btn_keluar.Click
Me.Close()
EndSub
PrivateSub
Button5_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
Button5.Click
nik.Text = ""
nama.Text = ""
jabatan.Text = ""
gaji.Text = ""
status.Text = ""
tunjangan_istri.Text = ""
jumlah_anak.Text = ""
tunjangan_anak.Text = ""
jam_lembur.Text = ""
honor_lembur.Text = ""
pajak.Text = ""
total.Text = ""
EndSub
EndClass
HASIL PROGRAMNYA
