Data karyawan

Listing Program
Public Class Karyawan
Sub BUATTABEL()
LV.Columns.Add("NIP", 80, HorizontalAlignment.Center)
LV.Columns.Add("Nama Karyawan", 180, HorizontalAlignment.Left)
LV.Columns.Add("Golongan", 70, HorizontalAlignment.Left)
LV.Columns.Add("Gaji Pokok", 80, HorizontalAlignment.Left)
LV.Columns.Add("Status", 80, HorizontalAlignment.Left)
LV.Columns.Add("Jumlah Anak", 80, HorizontalAlignment.Left)
LV.Columns.Add("Tunjangan Istri", 80, HorizontalAlignment.Left)
LV.Columns.Add("Tunjangan Anak", 80, HorizontalAlignment.Left)
LV.Columns.Add("Lama Lembur", 80, HorizontalAlignment.Left)
LV.Columns.Add("Gaji Lembur", 80, HorizontalAlignment.Left)
LV.Columns.Add("Pajak", 80, HorizontalAlignment.Left)
LV.Columns.Add("Total Gaji", 80, HorizontalAlignment.Left)
LV.View = View.Details
LV.GridLines = True
LV.FullRowSelect = True
End Sub
Sub ISITABEL()
For i = 1 To 3
NIP.Items.Add("000" & i)
Next
Gol.Items.Add("IIIA")
Gol.Items.Add("IIIB")
Gol.Items.Add("IIIC")

Status.Items.Add("MENIKAH")
Status.Items.Add("BELUM MENIKAH")


jlhanak.Items.Add(1)
jlhanak.Items.Add(2)
Lama.Items.Add("1 JAM")
Lama.Items.Add("2JAM")
Lama.Items.Add("3JAM")
Lama.Items.Add("4JAM")
Lama.Items.Add("5JAM")
End Sub

Private Sub Karyawan_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
BUATTABEL()
ISITABEL()
End Sub

Private Sub Btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnkeluar.Click
End
End Sub
Private Sub NIP_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NIP.SelectedIndexChanged
If NIP.Text = "0001" Then
Nama.Text = "Begu"
ElseIf NIP.Text = "0002" Then
Nama.Text = "Ganjang"
ElseIf NIP.Text = "0003" Then
Nama.Text = "Josua"
End If
End Sub

Private Sub Gapok_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Gapok.TextChanged
Pajak.Text = Gapok.Text * 1.5
End Sub

Private Sub jlhanak_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jlhanak.SelectedIndexChanged
If jlhanak.Text = "1" Then
Tuna.Text = Gapok.Text * 0.1
ElseIf jlhanak.Text = "2" Then
Tuna.Text = Gapok.Text * 0.19
End If
End Sub

Private Sub Btnok_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnok.Click
Dim sublv As New ListViewItem
sublv.Text = NIP.Text
sublv.SubItems.Add(Nama.Text)
sublv.SubItems.Add(Gol.Text)
sublv.SubItems.Add("RP. " & Gapok.Text)
sublv.SubItems.Add(Status.Text)
sublv.SubItems.Add("RP. " & Tuna.Text)
sublv.SubItems.Add(" RP. " & Tunis.Text)
sublv.SubItems.Add(jlhanak.Text)
sublv.SubItems.Add("JAM " & Lama.Text)
sublv.SubItems.Add("RP. " & gajilembur.Text)
sublv.SubItems.Add("RP. " & Pajak.Text)
sublv.SubItems.Add("RP. " & Total.Text)
LV.Items.Add(sublv)
End Sub
Private Sub Status_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Status.SelectedIndexChanged
If Status.Text = "Menikah" Then
Tunis.Text = Gapok.Text * 0.09
ElseIf Status.Text = "BELUM MENIKAH" Then
Tunis.Text = 0
Tuna.Text = 0

End If
End Sub

Private Sub Gol_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Gol.SelectedIndexChanged
If Gol.Text = "IIIA" Then
Gapok.Text = 95000000
ElseIf Gol.Text = "IIIB" Then
Gapok.Text = 67500000
ElseIf Gol.Text = "IIIC" Then
Gapok.Text = 40000000
End If
End Sub

Private Sub Pajak_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Pajak.TextChanged
Total.Text = Val(Gapok.Text) + Val(Tuna.Text) + Val(Tunis.Text) - Val(Pajak.Text)
End Sub

Private Sub Btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapus.Click
Pajak.Text = ""
Nama.Text = ""
Gol.Text = ""
Gapok.Text = ""
Status.Text = ""
Tunis.Text = ""
Tuna.Text = ""
jlhanak.Text = ""
Lama.Text = ""
gajilembur.Text = ""

Total.Text = ""
Pajak.Focus()
End Sub

Private Sub Lama_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Lama.SelectedIndexChanged
If Gol.Text = "IIIA" Then
gajilembur.Text = Lama.Text * 7500
ElseIf Gol.Text = "IIIB" Then
gajilembur.Text = Lama.Text * 10000
ElseIf Gol.Text = "IIIC" Then
gajilembur.Text = Lama.Text * 5000
Else
Lama.Text = 0
End If
End Sub
End ClassShare