kasus (friska susyanti)

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
jbtn.Items.Add("Mandor")
jbtn.Items.Add("Kepala Bagian")
jbtn.Items.Add("Staff")

status.Items.Add("Menikah")
status.Items.Add("Lajang")

Call addjumlah()
Call buattabel()
End Sub
Sub addjumlah()
Dim x As Integer
For x = 1 To 3
jml_anak.Items.Add(x)
Next
End Sub

Sub buattabel()
lv.Columns.Add("No karyawan", 80, HorizontalAlignment.Center)
lv.Columns.Add("Nama karyawan", 90, HorizontalAlignment.Center)
lv.Columns.Add("Jabatan", 100, HorizontalAlignment.Center)
lv.Columns.Add("Gaji Pokok", 90, HorizontalAlignment.Center)
lv.Columns.Add("Status", 80, HorizontalAlignment.Center)
lv.Columns.Add("Jumlah Anak", 80, HorizontalAlignment.Center)
lv.Columns.Add("Tunjangan Istri", 100, HorizontalAlignment.Center)
lv.Columns.Add("Tunjangan Anak", 100, HorizontalAlignment.Center)
lv.Columns.Add("Jam Lembur", 90, HorizontalAlignment.Center)
lv.Columns.Add("Upah Lembur", 90, HorizontalAlignment.Center)
lv.Columns.Add("Gaji Lembur", 90, HorizontalAlignment.Center)
lv.Columns.Add("Pajak", 90, HorizontalAlignment.Center)
lv.Columns.Add("Total Gaji", 100, HorizontalAlignment.Center)

lv.FullRowSelect = True
lv.GridLines = True
lv.View = View.Details

End Sub
Sub isitabel()
Dim lst As New ListViewItem
lst.Text = no.Text
lst.SubItems.Add(nama.Text)
lst.SubItems.Add(jbtn.Text)
lst.SubItems.Add(gaji_pokok.Text)
lst.SubItems.Add(status.Text)
lst.SubItems.Add(jml_anak.Text)
lst.SubItems.Add(tunjangan_istri.Text)
lst.SubItems.Add(tunjangan_anak.Text)

lst.SubItems.Add(jam_lembur.Text)
lst.SubItems.Add(upah_lembur.Text)
lst.SubItems.Add(gaji_lembur.Text)
lst.SubItems.Add(pajak.Text)
lst.SubItems.Add(total_gaji.Text)
lv.Items.Add(lst)

End Sub

Private Sub btnkeluar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnkeluar.Click
End
End Sub

Private Sub btnbersih_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnbersih.Click
no.Text = ""
nama.Text = ""
jbtn.Text = ""
gaji_pokok.Text = ""
status.Text = ""
jml_anak.Text = ""
tunjangan_istri.Text = ""
tunjangan_anak.Text = ""

jam_lembur.Text = ""
upah_lembur.Text = ""
gaji_lembur.Text = ""
pajak.Text = ""
total_gaji.Text = ""
End Sub

Private Sub btnhapussemua_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnhapussemua.Click
lv.Items.Clear()
End Sub

Private Sub btnhapus_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnhapus.Click
lv.Items.Remove(lv.SelectedItems(0))
End Sub

Private Sub btnsimpan_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnsimpan.Click
isitabel()

End Sub

Private Sub jbtn_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles jbtn.SelectedIndexChanged
If jbtn.Text = "Mandor" Then
gaji_pokok.Text = (1750000)
upah_lembur.Text = (7500)
ElseIf jbtn.Text = "Kepala Bagian" Then
gaji_pokok.Text = (2500000)
upah_lembur.Text = (10000)
ElseIf jbtn.Text = "Staff" Then
gaji_pokok.Text = (1250000)
upah_lembur.Text = (5000)
End If
pajak.Text = Format(0.015 * gaji_pokok.Text)

End Sub

Private Sub status_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles status.SelectedIndexChanged
If status.Text = "Menikah" Then
tunjangan_istri.Text = Format(0.09 * gaji_pokok.Text)
Else
tunjangan_istri.Text = 0
End If

End Sub

Private Sub jml_anak_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles jml_anak.SelectedIndexChanged
If jml_anak.Text = 1 Then
tunjangan_anak.Text = Format(0.03 * gaji_pokok.Text)
ElseIf jml_anak.Text = 2 Then
tunjangan_anak.Text = Format(0.07 * gaji_pokok.Text)
Else
tunjangan_anak.Text = Format(0.07 * gaji_pokok.Text)

End If
End Sub

Private Sub btnproses_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnproses.Click
total_gaji.Text = Val(gaji_pokok.Text) + Val(tunjangan_istri.Text) + Val(tunjangan_anak.Text) + Val(gaji_lembur.Text) - Val(pajak.Text)

End Sub


Private Sub jam_lembur_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jam_lembur.TextChanged
gaji_lembur.Text = Val(jam_lembur.Text) * Val(upah_lembur.Text)
End Sub
End Class