YUK! belajar pemograman visual basic dot net mesran.net

Public Class Form1 Private Sub Label5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label5.Click End Sub Private Sub ComboBox2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) End Sub 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") Lv.Columns.Add("NO", 50, HorizontalAlignment.Center) Lv.Columns.Add("NIK", 50, HorizontalAlignment.Left) Lv.Columns.Add("nama pegawai", 80, HorizontalAlignment.Center) Lv.Columns.Add("golongan", 130, HorizontalAlignment.Center) Lv.Columns.Add("gaji pokok", 80, HorizontalAlignment.Center) Lv.Columns.Add("pajak", 80, HorizontalAlignment.Center) Lv.Columns.Add("Gaji bersih", 80, HorizontalAlignment.Center) Lv.View = View.Details Lv.GridLines = True Lv.FullRowSelect = True End Sub Private Sub Btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnproses.Click pajak.Text = 0.05 * Gajipokok.Text gajibersih.Text = Val(Gajipokok.Text - pajak.Text) Dim lst As New ListViewItem lst.Text = no.Text lst.SubItems.Add(nik.Text) lst.SubItems.Add(namapegawai.Text) lst.SubItems.Add(Golongan.Text) lst.SubItems.Add(Gajipokok.Text) lst.SubItems.Add(pajak.Text) lst.SubItems.Add(gajibersih.Text) Lv.Items.Add(lst) End Sub Private Sub no_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles no.SelectedIndexChanged Select Case no.Text Case "1" nik.Text = 1 Gajipokok.Text = 1500000 namapegawai.Text = "Hendro" Golongan.Text = 1 Case "2" nik.Text = 2 Gajipokok.Text = 2500000 namapegawai.Text = "Dian" Golongan.Text = 2 Case "3" nik.Text = 3 Gajipokok.Text = 1500000 namapegawai.Text = "Jhoni" Golongan.Text = 3 End Select End Sub End Class hasil awal:

hasil akhir