Public Class dtagji
Private Sub data_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")
status.Items.Add("Menikah")
status.Items.Add("Belum Menikah")
buat_tabel()
End Sub
Sub proses()
If jabatan.Text = "Mandor" Then
gapok.Text = "1750000"
pajak.Text = 0.015 * Val(gapok.Text)
ElseIf jabatan.Text = "Kepala Bagian" Then
gapok.Text = "2500000"
pajak.Text = 0.015 * Val(gapok.Text)
ElseIf jabatan.Text = "Staff" Then
gapok.Text = "1250000"
pajak.Text = 0.015 * Val(gapok.Text)
End If
Select Case status.Text
Case "Menikah" : tuis.Text = 0.09 * Val(gapok.Text)
Case "Belum Menikah" : tuis.Text = 0
End Select
If anak.Text = "1" Then
tunak.Text = 0.03 * Val(gapok.Text)
ElseIf anak.Text = "2" Then
tunak.Text = 0.07 * Val(gapok.Text)
ElseIf anak.Text >= "2" Then
tunak.Text = 0.07 * Val(gapok.Text)
ElseIf anak.Text <= "1" Then
tunak.Text = 0
End If
If jabatan.Text = "Mandor" Then
If lembur.Text = "0" Then
galem.Text = 0
ElseIf lembur.Text = "1" Then
galem.Text = 7500
ElseIf lembur.Text >= "1" Then
galem.Text = 7500 * Val(lembur.Text)
End If
ElseIf jabatan.Text = "Kepala Bagian" Then
If lembur.Text = "0" Then
galem.Text = 0
ElseIf lembur.Text = "1" Then
galem.Text = 10000
ElseIf lembur.Text >= "1" Then
galem.Text = 10000 * Val(lembur.Text)
End If
ElseIf jabatan.Text = "Staff" Then
If lembur.Text = "0" Then
galem.Text = 0
ElseIf lembur.Text = "1" Then
galem.Text = 5000
ElseIf lembur.Text >= "1" Then
galem.Text = 5000 * Val(lembur.Text)
End If
End If
total.Text = Val(gapok.Text) + Val(tuis.Text) + Val(tunak.Text) + Val(galem.Text) - Val(pajak.Text)
End Sub
Sub buat_tabel()
With LV
.Columns.Add("Nama karyawan", 110, HorizontalAlignment.Left)
.Columns.Add("Jabatan", 90, HorizontalAlignment.Left)
.Columns.Add("Gaji Pokok", 80, HorizontalAlignment.Center)
.Columns.Add("Status", 100, HorizontalAlignment.Left)
.Columns.Add("Tunjangan Istri", 98, HorizontalAlignment.Center)
.Columns.Add("Anak", 40, HorizontalAlignment.Center)
.Columns.Add("Tunjangan Anak", 98, HorizontalAlignment.Center)
.Columns.Add("Pajak", 55, HorizontalAlignment.Center)
.Columns.Add("Lembur", 50, HorizontalAlignment.Center)
.Columns.Add("Gaji Lembur/jam", 100, HorizontalAlignment.Center)
.Columns.Add("Total Gaji", 90, HorizontalAlignment.Center)
.View = View.Details
.GridLines = True
.FullRowSelect = True
End With
End Sub
Sub isi_tabel()
Dim lst As New ListViewItem
lst.Text = nama.Text
lst.SubItems.Add(jabatan.Text)
lst.SubItems.Add(gapok.Text)
lst.SubItems.Add(status.Text)
lst.SubItems.Add(tuis.Text)
lst.SubItems.Add(anak.Text)
lst.SubItems.Add(tunak.Text)
lst.SubItems.Add(pajak.Text)
lst.SubItems.Add(lembur.Text)
lst.SubItems.Add(galem.Text)
lst.SubItems.Add(total.Text)
LV.Items.Add(lst)
End Sub
Private Sub jabatan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jabatan.SelectedIndexChanged
Call proses()
End Sub
Private Sub status_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles status.SelectedIndexChanged
Call proses()
End Sub
Private Sub lembur_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lembur.TextChanged
Call proses()
End Sub
Private Sub anak_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles anak.TextChanged
Call proses()
End Sub
Private Sub btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan.Click
isi_tabel()
End Sub
Private Sub btnbersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbersih.Click
nama.Text = ""
jabatan.Text = ""
gapok.Text = ""
status.Text = ""
tuis.Text = ""
anak.Text = ""
tunak.Text = ""
pajak.Text = ""
lembur.Text = ""
galem.Text = ""
total.Text = ""
End Sub
Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click
LV.Items.Clear()
End Sub
Private Sub btnpilih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnpilih.Click
LV.Items.Remove(LV.SelectedItems(0))
End Sub
Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click
End
End Sub
End Class
Tidak ada komentar:
Posting Komentar