Penggajian Karyawan dengan List View

Coding Program.::Penggajian Karyawan::. Public Class Form1 Sub buattabel() LV.GridLines = True LV.View = View.Details LV.FullRowSelect = True LV.Columns.Add("NIK", 50, HorizontalAlignment.Center) LV.Columns.Add("Nama", 150, HorizontalAlignment.Left) LV.Columns.Add("Jabatan", 85, HorizontalAlignment.Center) LV.Columns.Add("Gaji", 85, HorizontalAlignment.Center) LV.Columns.Add("Status", 85, HorizontalAlignment.Center) LV.Columns.Add("Tunj.Keluarga", 85, HorizontalAlignment.Left) LV.Columns.Add("Pajak", 85, HorizontalAlignment.Center) LV.Columns.Add("Total Gaji", 85, HorizontalAlignment.Center) End Sub Private Sub cmdSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdSimpan.Click Dim lst As New ListViewItem lst.Text = NIK.Text lst.SubItems.Add(nama.Text) lst.SubItems.Add(jabatan.Text) lst.SubItems.Add(gaji.Text) lst.SubItems.Add(status.Text) lst.SubItems.Add(tunj_Kel.Text) lst.SubItems.Add(pajak.Text) lst.SubItems.Add(total.Text) LV.Items.Add(lst) End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Call buattabel() Call items() End Sub Sub items() NIK.Items.Add("001") NIK.Items.Add("002") NIK.Items.Add("003") jabatan.Items.Add("Mandor") jabatan.Items.Add("Kepala Bagian") jabatan.Items.Add("Staf") status.Items.Add("Menikah") status.Items.Add("Tidak Menikah") End Sub Private Sub NIK_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NIK.SelectedIndexChanged Select Case NIK.Text Case "001" : nama.Text = "Oncom" Case "002" : nama.Text = "Udin" Case "003" : nama.Text = "Ujang" End Select End Sub Private Sub status_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles status.SelectedIndexChanged Select Case status.Text Case "Menikah" : tunj_Kel.Text = 0.15 * gaji.Text Case "Tidak Menikah" : tunj_Kel.Text = 0 End Select End Sub Private Sub jabatan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jabatan.SelectedIndexChanged Select Case jabatan.Text Case "Mandor" : gaji.Text = 1750000 Case "Kepala Bagian" : gaji.Text = 2500000 Case "Staf" : gaji.Text = 1250000 End Select pajak.Text = 0.15 * gaji.Text End Sub Private Sub cmdProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdProses.Click total.Text = Val(gaji.Text) + Val(tunj_Kel.Text) - Val(pajak.Text) End Sub Private Sub cmdHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdHapus.Click LV.Items.Remove(LV.SelectedItems(0)) End Sub Private Sub cmdKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdKeluar.Click End End Sub Private Sub cmdBaru_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdBaru.Click Call bersih() End Sub Sub bersih() NIK.Text = "" nama.Text = "" jabatan.Text = "" gaji.Text = "" status.Text = "" tunj_Kel.Text = "" pajak.Text = "" total.Text = "" End Sub End Class HASIL AKHIR :