Catatanku: Pembayaran Gaji Pegawai (Quis Online)

1. NIK, Gol INPUT
2. Proses Nama Pegawai
     Jika NIK = 1 maka
                  Nama Pegawai = "Hendro"
     Jika NIK = 2 maka
                  Nama Pegawai = "Dian"
     Jika NIK = 3 maka
                  Nama Pegawai = "Jhoni"

3. Proses Gaji Pokok
     Jika GOL = 1 maka
                  GajiPokok= 1500000
     Jika GOL = 2 maka
                  GajiPokok= 2500000
     Jika GOL = 3 maka
                  GajiPokok= 3500000

4. Pajak = 0.05 * Gaji Pokok
5. Gaji Bersih = Gaji Pokok - Pajak

Pertama Buat Form1(Pembayaran Gaji Pegawai)

Private Sub Form1_Load(...)

NIK.Items.Add("001")
NIK.Items.Add("002")
NIK.Items.Add("003")

Golongan.Items.Add("01")
Golongan.Items.Add("02")
Golongan.Items.Add("03")

Me.Text = "Pembayran Gaji Pegawai"

buattabel()

End Sub
Sub buattabel()
With LV
LV.Columns.Add("NIK", 50, HorizontalAlignment.Center)
LV.Columns.Add("Nama Pegawai", 90, HorizontalAlignment.Left)
LV.Columns.Add("Golongan", 70, HorizontalAlignment.Left)
LV.Columns.Add("Gaji Pokok", 90, HorizontalAlignment.Left)
LV.Columns.Add("Pajak", 80, HorizontalAlignment.Left)
LV.Columns.Add("Gaji Bersih", 90, HorizontalAlignment.Left)

LV.View = View.Details
LV.GridLines = True
LV.FullRowSelect = True
End With
End Sub

Private Sub NIK_SelectedIndexChanged(...)

Select Case NIK.Text

Case "001" : Nama.Text = "Hendro"

Case "002" : Nama.Text = "Dian"

Case "003" : Nama.Text = "Jhoni"

End Select

Private Sub Golongan_SelectedIndexChanged(...)

Select Case Golongan.Text

Case "01" : Gapok.Text = "1500000"

Case "02" : Gapok.Text = "2500000"

Case "03" : Gapok.Text = "3500000"
End Select

Private Sub BtnProses_Click(...)
Dim lst As New ListViewItem
lst.Text = NIK.Text
lst.SubItems.Add(Nama.Text)
lst.SubItems.Add(Golongan.Text)
lst.SubItems.Add(Gapok.Text)
lst.SubItems.Add(Pajak.Text)
lst.SubItems.Add(Gajibersih.Text)

Pajak.Text = Val(Gapok.Text) * 0.05

Gajibersih.Text = Val(Gapok.Text) - Val(Pajak.Text)

End Sub

Private Sub Btnhapus_Click(...)

NIK.Text = ""

Nama.Text = ""

Golongan.Text = ""

Gapok.Text = ""

Pajak.Text = ""

        Gajibersih.Text = ""
   LV.Items.Clear()

End Sub
Private Sub Btnkeluar_Click(...)
End

End Sub