Public Class Form1 Sub buattabel() lv.Columns.Add("nik", 80, HorizontalAlignment.Center) lv.Columns.Add("nama", 80, HorizontalAlignment.Left) lv.Columns.Add("jabatan", 80, HorizontalAlignment.Left) lv.Columns.Add("gaji", 80, HorizontalAlignment.Left) lv.Columns.Add("status", 80, HorizontalAlignment.Left) lv.Columns.Add("tunjkel", 80, HorizontalAlignment.Left) lv.Columns.Add("pajak", 80, HorizontalAlignment.Left) lv.Columns.Add("totgaji", 80, HorizontalAlignment.Left) lv.view = View.Details lv.gridlines = True lv.fullrowselect = True End Sub Sub isitabel() 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(tunjkel.Text) lst.SubItems.Add(pajak.Text) lst.SubItems.Add(totgaji.Text) lv.items.add(lst) End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load nik.Items.Add("001") nik.Items.Add("002") nik.Items.Add("003") jabatan.Items.Add("mandor") jabatan.Items.Add("karyawan") jabatan.Items.Add("staf") status.Items.Add("menikah") status.Items.Add("belum menikah") buattabel() 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 = "preddi" Case "002" : nama.Text = "tulus" Case "003" : nama.Text = "agung" 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 = "1000000" Case "karyawan" : gaji.Text = "1500000" Case "staf" : gaji.Text = "1250000" End Select pajak.Text = 0.15 * gaji.Text 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" : tunjkel.Text = 0.15 * gaji.Text Case "belum menikah" : tunjkel.Text = 0 End Select End Sub Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click totgaji.Text = Val(gaji.Text) + Val(tunjkel.Text) - (pajak.Text) End Sub Private Sub btnbaru_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbaru.Click End End Sub Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click nik.Text = "" nama.Text = "" tunjkel.Text = "" status.Text = "" gaji.Text = "" jabatan.Text = "" totgaji.Text = "" pajak.Text = "" End Sub Private Sub lst_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lst.Click isitabel() nik.Text = "" nama.Text = "" jabatan.Text = "" gaji.Text = "" status.Text = "" tunjkel.Text = "" pajak.Text = "" totgaji.Text = "" End Sub End Class