Program ListView menggunakan Select Case

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
 Jangan lupa atinggalin comen ya...