Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
LV.Columns.Add("NIK", 80, HorizontalAlignment.Center)
LV.Columns.Add("NAMA PEGAWAI", 100, HorizontalAlignment.Left)
LV.Columns.Add("GOLONGAN", 100, HorizontalAlignment.Left)
LV.Columns.Add("GAJI POKOK", 100, HorizontalAlignment.Center)
LV.Columns.Add("PAJAK", 100, HorizontalAlignment.Center)
LV.Columns.Add("GAJI BERSIH", 180, HorizontalAlignment.Center)
LV.View = View.Details
LV.GridLines = True
LV.FullRowSelect = True
NIK.Items.Add("1")
NIK.Items.Add("2")
NIK.Items.Add("3")
Gol.Items.Add("I")
Gol.Items.Add("II")
Gol.Items.Add("III")
End Sub
Private Sub btnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnProses.Click
Dim lst As New ListViewItem
lst.Text = NIK.Text
lst.SubItems.Add(Npegawai.Text)
lst.SubItems.Add(Gol.Text)
lst.SubItems.Add(Gapok.Text)
lst.SubItems.Add(Pjk.Text)
lst.SubItems.Add(Gaber.Text)
lst.Text = Pjk.Text
lst.SubItems.Add(Gaber.Text)
Pjk.Text = Val(Gapok.Text * 0.05)
Gaber.Text = Val(Gapok.Text - Pjk.Text)
LV.Items.Add(lst)
End Sub
Private Sub Btnlst_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnlst.Click
LV.Items.Clear()
End Sub
Private Sub NIK_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NIK.SelectedIndexChanged
Select Case NIK.Text
Case "1" : Npegawai.Text = "Hendro"
Case "2" : Npegawai.Text = "Dian"
Case "3" : Npegawai.Text = "Jhoni"
Case Else : Npegawai.Text = ""
End Select
End Sub
Private Sub Gol_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Gol.SelectedIndexChanged
Select Case Gol.Text
Case "I" : Gapok.Text = "1500000"
Case "II" : Gapok.Text = "2500000"
Case "III" : Gapok.Text = "3500000"
End Select
End Sub
Private Sub BtnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnKeluar.Click
End
End Sub
End Class
