Kasus Penggajian ( Ardian Syahputra )

Public Class Form1
Dim LST As ListViewItem

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

Dim x As Byte
For x = 1 To 10
janak.Items.Add(x)
Next

Dim y As Byte
For y = 1 To 10
jamlembur.Items.Add(y)
Next

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

buat_table()
kosong()

End Sub

Private Sub jabatan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jabatan.SelectedIndexChanged
If jabatan.Text = "Mandor" Then
gapok.Text = "1750000"
ElseIf jabatan.Text = "Kepala Bagian" Then
gapok.Text = "2500000"
ElseIf jabatan.Text = "Staff" Then
gapok.Text = "1250000"
End If
End Sub

Private Sub janak_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles janak.SelectedIndexChanged
If janak.Text = "1" Then
tnjanak.Text = 3 / 100 * gapok.Text
Else
tnjanak.Text = 7 / 100 * gapok.Text
End If
End Sub

Private Sub status_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles status.SelectedIndexChanged
If status.Text = "Menikah" Then
tnjistri.Text = 9 / 100 * gapok.Text
Else
tnjistri.Text = "0"
End If
End Sub

Private Sub jamlembur_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jamlembur.SelectedIndexChanged
If jabatan.Text = "Staff" Then
gabur.Text = 5000 * jamlembur.Text
ElseIf jabatan.Text = "Mandor" Then
gabur.Text = 7500 * jamlembur.Text
ElseIf jabatan.Text = "Kepala Bagian" Then
gabur.Text = 10000 * jamlembur.Text
End If
End Sub


Private Sub gapok_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles gapok.TextChanged
pajak.Text = Val(1.5 / 100) * Val(gapok.Text)

End Sub


Private Sub btnhitung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhitung.Click
tgaji.Text = Val(gapok.Text) + Val(tnjistri.Text) + Val(tnjanak.Text) + Val(gabur.Text) - Val(pajak.Text)

End Sub
Sub buat_table()
With lv
.Items.Clear()
.FullRowSelect = True
.GridLines = True
.View = View.Details

.Columns.Add("NIP", 100)
.Columns.Add("Nama Karyawan", 100)
.Columns.Add("Jabatan", 100, HorizontalAlignment.Center)
.Columns.Add("Gaji Pokok", 100, HorizontalAlignment.Left)
.Columns.Add(" Jumlah Anak ", 100, HorizontalAlignment.Left)
.Columns.Add("Tunjangan Anak", 100, HorizontalAlignment.Left)
.Columns.Add("Status", 100, HorizontalAlignment.Left)
.Columns.Add("Tunjangan Istri", 100, HorizontalAlignment.Left)
.Columns.Add("Jumlah Jam Lembur", 100, HorizontalAlignment.Left)
.Columns.Add("Gaji Lembur", 100, HorizontalAlignment.Left)
.Columns.Add("Pajak", 100, HorizontalAlignment.Left)
.Columns.Add("Total Gaji Karyawan", 100, HorizontalAlignment.Left)

End With
End Sub
Sub simpan()
LST = Me.lv.Items.Add(Me.nip.Text)
LST.SubItems.Add(Me.nama.Text)
LST.SubItems.Add(Me.jabatan.Text)
LST.SubItems.Add(Me.gapok.Text)
LST.SubItems.Add(Me.janak.Text)
LST.SubItems.Add(Me.tnjanak.Text)
LST.SubItems.Add(Me.status.Text)
LST.SubItems.Add(Me.tnjistri.Text)
LST.SubItems.Add(Me.jamlembur.Text)
LST.SubItems.Add(Me.gabur.Text)
LST.SubItems.Add(Me.pajak.Text)
LST.SubItems.Add(Me.tgaji.Text)
End Sub
Sub kosong()
nama.Text = ""
nip.Text = ""
jabatan.Text = ""
gapok.Text = ""
janak.Text = ""
tnjanak.Text = ""
status.Text = ""
tnjistri.Text = ""
jamlembur.Text = ""
gabur.Text = ""
pajak.Text = ""
tgaji.Text = ""
nip.Focus()
End Sub




Private Sub btnhapusdata_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapusdata.Click
If lv.SelectedItems.Count <> 0 Then

lv.Items.Remove(lv.SelectedItems(0))
Else
MsgBox("maaf anda belum" & "memilih yang mana mau dihapus")
End If
End Sub

Private Sub btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan.Click
Call simpan()
kosong()
nip.Focus()
End Sub

Private Sub btnbersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbersih.Click
kosong()
nip.Focus()
End Sub

Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click
Dim tanya As String
tanya = MsgBox("Apakah Anda Yakin Ingin Keluar?" & vbCrLf & "Harus Yakin", MsgBoxStyle.Question + MsgBoxStyle.YesNo)
If tanya = vbYes Then
Me.Close()
Else
Exit Sub
End If
End Sub

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