List View pada visual basic

Membuat Daftar Gaji dengan menambahkan list view di dalamnya

List View

berikut adalah Listing Programnya :

Public Class Form1
Sub BuatTabel()
LV.Columns.Add(“NIK”, 80, HorizontalAlignment.Center)
LV.Columns.Add(“Nama”, 119, 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(“Tunjangan”, 80, HorizontalAlignment.Left)
LV.Columns.Add(“Pajak”, 80, HorizontalAlignment.Left)
LV.Columns.Add(“Total Gaji”, 80, HorizontalAlignment.Left)
LV.View = View.Details
LV.GridLines = True
LV.FullRowSelect = False
End Sub
Sub IsiTabel()
Dim lst As New ListViewItem
lst.Text = NIK.Text
lst.SubItems.Add(nama.Text)
lst.SubItems.Add(jbtn.Text)
lst.SubItems.Add(gaji.Text)
lst.SubItems.Add(stts.Text)
lst.SubItems.Add(tunjangan.Text)
lst.SubItems.Add(pajak.Text)
lst.SubItems.Add(total.Text)
LV.Items.Add(lst)
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 = “Andi”
Case “002” : nama.Text = “Rista”
Case “003” : nama.Text = “Rudi”
Case “004” : nama.Text = “Rina”
Case “005” : nama.Text = “Rika”
Case “006” : nama.Text = “Stevan”
Case “007” : nama.Text = “Woody”

End Select
End Sub

Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
BuatTabel()
NIK.Items.Add(“001”)
NIK.Items.Add(“002”)
NIK.Items.Add(“003”)
NIK.Items.Add(“004”)
NIK.Items.Add(“005”)
NIK.Items.Add(“006”)
NIK.Items.Add(“007”)
jbtn.Items.Add(“Direktur”)
jbtn.Items.Add(“Manager”)
jbtn.Items.Add(“Staf”)
jbtn.Items.Add(“Sekretaris”)
jbtn.Items.Add(“OB”)
stts.Items.Add(“Menikah”)
stts.Items.Add(“Belum Menikah”)
End Sub

Private Sub jbtn_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jbtn.SelectedIndexChanged
Select Case jbtn.Text
Case “Direktur” : gaji.Text = 3500000
Case “Manager” : gaji.Text = 2500000
Case “Staf” : gaji.Text = 1250000
Case “Sekretaris” : gaji.Text = 1800000
Case “OB” : gaji.Text = 800000
End Select
pajak.Text = 0.15 * gaji.Text
End Sub

Private Sub stts_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles stts.SelectedIndexChanged
Select Case stts.Text
Case “Menikah” : tunjangan.Text = 0.15 * gaji.Text
Case “Tidak Menikah ” : tunjangan.Text = 0
End Select
total.Text = Val(gaji.Text) + Val(tunjangan.Text) – Val(pajak.Text)
End Sub

Private Sub simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan.Click
IsiTabel()
NIK.Text = “”
nama.Text = “”
jbtn.Text = “”
gaji.Text = “”
stts.Text = “”
tunjangan.Text = “”
pajak.Text = “”
total.Text = “”
End Sub

Private Sub hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus.Click
LV.Items.Clear()
End Sub

Private Sub hpus_pilih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hpus_pilih.Click
LV.Items.Remove(LV.SelectedItems(0))
End Sub

Private Sub keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles keluar.Click
End
End Sub

Private Sub reset_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles reset.Click
NIK.Text = “”
nama.Text = “”
jbtn.Text = “”
gaji.Text = “”
stts.Text = “”
tunjangan.Text = “”
pajak.Text = “”
total.Text = “”
End Sub
End Class

Belajar Bahasa Pemrograman

Terus Melangkah Maju Dan Ciptakan Inovasi Terbaru

Posted in Education

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s