Program ListView menggunakan Select Case
Desain Lah Form sebagai berikut….
Lalu ketikan listing program di bawah ini...copy kan aja
Public Class Form1
Sub BuatTabel()
LV.Columns.Add("NIK", 60, HorizontalAlignment.Left)
LV.Columns.Add("Nama", 80, HorizontalAlignment.Left)
LV.Columns.Add("Jabatan", 80, HorizontalAlignment.Left)
LV.Columns.Add("Status", 90, HorizontalAlignment.Left)
LV.Columns.Add("Gaji", 75, HorizontalAlignment.Center)
LV.Columns.Add("TunKel", 70, HorizontalAlignment.Center)
LV.Columns.Add("Pajak", 75, HorizontalAlignment.Center)
LV.Columns.Add("Total Gaji", 80, HorizontalAlignment.Center)
LV.View = View.Details
LV.FullRowSelect = True
End Sub
Sub IsiTabel()
Dim List As New ListViewItem
List.Text = NIK.Text
List.SubItems.Add(Nama.Text)
List.SubItems.Add(Jabatan.Text)
List.SubItems.Add(Status.Text)
List.SubItems.Add(Gaji.Text)
List.SubItems.Add(TunKel.Text)
List.SubItems.Add(Pajak.Text)
List.SubItems.Add(TotGaji.Text)
LV.Items.Add(List)
End Sub
Private Sub Form1_Load()……
BuatTabel()
NIK.Items.Add("1111833")
NIK.Items.Add("1111843")
NIK.Items.Add("1111875")
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 BtnSimpan_Click,…
IsiTabel()
NIK.Text = ""
Nama.Text = ""
Jabatan.Text = ""
Status.Text = ""
Gaji.Text = ""
TunKel.Text = ""
Pajak.Text = ""
TotGaji.Text = ""
End Sub
Private Sub BtnHapusPilih_Click…. LV.Items.Remove(LV.SelectedItems(0))
End Sub
Private Sub NIK_SelectedIndexChanged……
Select Case NIK.Text
Case "1111833" : Nama.Text = "KHALID"
Case "1111843" : Nama.Text = "UMAR"
Case "1111875" : Nama.Text = "USMAN"
End Select
End Sub
Private Sub BtnProses_Click…….
TotGaji.Text = Val(Gaji.Text) + Val(TunKel.Text) - Val(Pajak.Text)
End Sub
Private Sub 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 Status_SelectedIndexChanged……
Select Case Status.Text
Case "Menikah" : TunKel.Text = 0.15 * Gaji.Text
Case "Tidak Menikah" : TunKel.Text = 0
End Select
End Sub
Private Sub BtnKeluar_Click……
End
End Sub
End Class
lalu jalan kan debug...tekan tombol proses
Inilah tampilan jika anda menekan tombol proses
Tampilan yang ke dua jika anda menekan tombol Simpan Ke ListView
Selamat Mencoba Belajar Bahasa Pemograman
Kamis, 23 Mei 2013
Langganan:
Posting Komentar (Atom)
Tidak ada komentar:
Posting Komentar