Listview Pembayaran Gaji
Berikut jawaban program:
Public Class Form1
Private Sub Form1_Load(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
No.Items.Add("1")
No.Items.Add("2")
No.Items.Add("3")
NIK.Items.Add("1")
No.Items.Add("2")
No.Items.Add("3")
NIK.Items.Add("1")
NIK.Items.Add("2")
NIK.Items.Add("3")
Gol.Items.Add("1")
Gol.Items.Add("2")
Gol.Items.Add("3")
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"
NamaPegawai.Text = "Hendro"
Case
"2"
NamaPegawai.Text = "Dian"
Case
Else
NamaPegawai.Text = "Jhoni"
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
"1"
GajiPokok.Text = "1500000"
Case
"2"
GajiPokok.Text = "2500000"
Case
Else
GajiPokok.Text = "3500000"
End Select
Pajak.Text = 0.05 * GajiPokok.Text
GajiBersih.Text = Val(GajiPokok.Text) -
Val(Pajak.Text)
End Sub
Private Sub BtnKeluar_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles BtnKeluar.Click
End
End Sub
Private Sub BtnHapusSemuaData_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles BtnHapusSemuaData.Click
No.Text = ""
NIK.Text = ""
NIK.Text = ""
NamaPegawai.Text = ""
Gol.Text = ""
GajiPokok.Text = ""
Pajak.Text = ""
GajiBersih.Text = ""
End Sub
Private Sub BtnSimpanKeListview_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles BtnSimpanKeListview.Click
LV.Columns.Add("No", 30, HorizontalAlignment.Left)
LV.Columns.Add("NIK", 50, HorizontalAlignment.Center)
LV.Columns.Add("NIK", 50, HorizontalAlignment.Center)
LV.Columns.Add("Nama
Pegawai", 80, HorizontalAlignment.Left)
LV.Columns.Add("Gol",
50, HorizontalAlignment.Left)
LV.Columns.Add("Gaji
Pokok", 80, HorizontalAlignment.Left)
LV.Columns.Add("Pajak",
70, HorizontalAlignment.Left)
LV.Columns.Add("Gaji
Bersih", 80, HorizontalAlignment.Left)
LV.GridLines = True
LV.FullRowSelect = False
LV.View = View.Details
Dim lst As New ListViewItem
lst.Text = No.Text
lst.SubItems.Add(NIK.Text)
lst.SubItems.Add(NIK.Text)
lst.SubItems.Add(NamaPegawai.Text)
lst.SubItems.Add(Gol.Text)
lst.SubItems.Add(GajiPokok.Text)
lst.SubItems.Add(Pajak.Text)
lst.SubItems.Add(GajiBersih.Text)
LV.Items.Add(lst)
End Sub
End Class
Demikianlah postingan saya :
Nama : Dessy Nurazizah S.
NPM : 14110567
Selamat belajar Pemograman VB Net






