Contoh Penggunaan LISTVIEW Pada Visual Basic

Pada tutorial kali ini, kita bahas bersama contoh program visual basic. Langkah-langkah nya sbb:

1. Buka Microsoft Visual Studio

2. Buka New>>Project

3. Beri nama project anda pada name, kemudian klik ok

4. Setelah itu maka akan keluar From1 di project kita, kemudian desain From tersebut dengan menggunakan Label, Textbox, Combobox, Listview dan Botton yang dapat kata pilih pada proporties.

 5. Listing Program

Public Class Form1

    Private Sub BTNSIMPAN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNSIMPAN.Click
        isitabel()

        nopem.Text = ""
        kode.Text = ""
        nabar.Text = ""
        harga.Text = ""
        jumbel.Text = ""
        total.Text = ""
        pembayaran.Text = ""
        ket.Text = ""
        merk.Text = ""
        bonus.Text = ""
        hargatambahan.Text = ""
        tambahan.Text = ""
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        buattabel()

        kode.Items.Add("001")
        kode.Items.Add("002")
        kode.Items.Add("003")

        merk.Items.Add("Samsung")
        merk.Items.Add("Motorola")
        merk.Items.Add("Nokia")

        merk.Items.Add("Vodovone")
        merk.Items.Add("flash")
        merk.Items.Add("three")

        merk.Items.Add("ACER")
        merk.Items.Add("ASUS")
        merk.Items.Add("TOSHIBA")

        bonus.Items.Add("Tas")
        bonus.Items.Add("Binder")
        bonus.Items.Add("Sticker")

        bonus.Items.Add("Assesoris")
        bonus.Items.Add("Dompet Hp")
        bonus.Items.Add("Sticker")

        bonus.Items.Add("Sticker")
        bonus.Items.Add("Assesoris")
        bonus.Items.Add("SIM Card")

        tambahan.Items.Add("Charger")
        tambahan.Items.Add("Kabel UTP")
        tambahan.Items.Add("Cool Air")
        tambahan.Items.Add("Kartu GSM")

    End Sub
    Sub buattabel()
        With ListView1
            .Columns.Add("nopem", 50, HorizontalAlignment.Center)
            .Columns.Add("kode", 60, HorizontalAlignment.Center)
            .Columns.Add("nabar", 80, HorizontalAlignment.Center)
            .Columns.Add("harga", 75, HorizontalAlignment.Center)
            .Columns.Add("merk", 80, HorizontalAlignment.Center)
            .Columns.Add("jumbel", 75, HorizontalAlignment.Center)
            .Columns.Add("pembayaran", 75, HorizontalAlignment.Center)
            .Columns.Add("bonus", 75, HorizontalAlignment.Center)
            .Columns.Add("tambahan", 75, HorizontalAlignment.Center)
            .Columns.Add("hargatambahan", 100, HorizontalAlignment.Center)
            .Columns.Add("total", 70, HorizontalAlignment.Center)
            .Columns.Add("ket", 90, HorizontalAlignment.Left)
            .GridLines = True
            .FullRowSelect = True
        End With
    End Sub
    Sub isitabel()
        Dim lst As New ListViewItem
        lst.Text = nopem.Text
        lst.SubItems.Add(kode.Text)
        lst.SubItems.Add(nabar.Text)
        lst.SubItems.Add(harga.Text)
        lst.SubItems.Add(merk.Text)
        lst.SubItems.Add(jumbel.Text)
        lst.SubItems.Add(pembayaran.Text)
        lst.SubItems.Add(bonus.Text)
        lst.SubItems.Add(tambahan.Text)
        lst.SubItems.Add(hargatambahan.Text)
        lst.SubItems.Add(total.Text)
        lst.SubItems.Add(ket.Text)
        ListView1.View = View.Details
        ListView1.Items.Add(lst)
    End Sub

    Private Sub kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kode.SelectedIndexChanged
        merk.Items.Clear()
        Select Case kode.Text
            Case "001"
                nabar.Text = "MODEM"
                merk.Items.Add("Vodovone")
                merk.Items.Add("Flash")
                merk.Items.Add("Three")
               
            Case "002"
                nabar.Text = "HP"
                merk.Items.Add("Samsung")
                merk.Items.Add("Motorola")
                merk.Items.Add("Nokia")
              
            Case "003"
                nabar.Text = "LAPTOP"
                merk.Items.Add("ACER")
                merk.Items.Add("ASUS")
                merk.Items.Add("TOSHIBA")
              
        End Select
    End Sub
    Sub florida()
        If kode.Text = "001" Then
            merk.Items.Add("Vodovone")
            merk.Items.Add("Flash")
            merk.Items.Add("Three")
           
        ElseIf kode.Text = "002" Then
            merk.Items.Add("Samsung")
            merk.Items.Add("Motorola")
            merk.Items.Add("Nokia")
           
        ElseIf kode.Text = "003" Then
            merk.Items.Add("ACER")
            merk.Items.Add("ASUS")
            merk.Items.Add("TOSHIBA")
           
        End If
    End Sub

    Private Sub BTNHAPUSSEMUA_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNHAPUSSEMUA.Click
        ListView1.Items.Clear()
    End Sub

    Private Sub BTNHAPUSLV_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNHAPUSLV.Click
        ListView1.Items.Remove(ListView1.SelectedItems(0))
    End Sub

    Private Sub merk_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles merk.SelectedIndexChanged
        bonus.Items.Clear()
        Select Case merk.Text
            Case "Vodovone"
                bonus.Items.Add("Sticker")
                bonus.Items.Add("Assesoris")
                bonus.Items.Add("SIM Card")
            Case "Flash"
                bonus.Items.Add("Sticker")
                bonus.Items.Add("Assesoris")
                bonus.Items.Add("SIM Card")
            Case "Three"
                bonus.Items.Add("Sticker")
                bonus.Items.Add("Assesoris")
                bonus.Items.Add("SIM Card")

            Case "Samsung"
                bonus.Items.Add("Assesoris")
                bonus.Items.Add("Dompet Hp")
                bonus.Items.Add("Sticker")
            Case "Motorola"
                bonus.Items.Add("Assesoris")
                bonus.Items.Add("Dompet Hp")
                bonus.Items.Add("Sticker")
            Case "Nokia"
                bonus.Items.Add("Assesoris")
                bonus.Items.Add("Dompet Hp")
                bonus.Items.Add("Sticker")

            Case "ACER"
                bonus.Items.Add("Tas")
                bonus.Items.Add("Binder")
                bonus.Items.Add("Sticker")
            Case "ASUS"
                bonus.Items.Add("Tas")
                bonus.Items.Add("Binder")
                bonus.Items.Add("Sticker")
            Case "TOSHIBA"
                bonus.Items.Add("Tas")
                bonus.Items.Add("Binder")
                bonus.Items.Add("Sticker")
        End Select
    End Sub

    Sub flo()
        If merk.Text = " Vodovone" Then
            bonus.Items.Add("Sticker")
            bonus.Items.Add("Assesoris")
            bonus.Items.Add("SIM Card")
        ElseIf merk.Text = "Flash" Then
            bonus.Items.Add("Sticker")
            bonus.Items.Add("Assesoris")
            bonus.Items.Add("SIM Card")
        ElseIf merk.Text = "Three" Then
            bonus.Items.Add("Sticker")
            bonus.Items.Add("Assesoris")
            bonus.Items.Add("SIM Card")

        ElseIf merk.Text = "Samsung" Then
            bonus.Items.Add("Assesoris")
            bonus.Items.Add("Dompet Hp")
            bonus.Items.Add("Sticker")
        ElseIf merk.Text = "Motorola" Then
            bonus.Items.Add("Assesoris")
            bonus.Items.Add("Dompet Hp")
            bonus.Items.Add("Sticker")
        ElseIf merk.Text = "Nokia" Then
            bonus.Items.Add("Assesoris")
            bonus.Items.Add("Dompet Hp")
            bonus.Items.Add("Sticker")

        ElseIf merk.Text = "ACER" Then
            bonus.Items.Add("Tas")
            bonus.Items.Add("Binder")
            bonus.Items.Add("Sticker")
        ElseIf merk.Text = "ASUS" Then
            bonus.Items.Add("Tas")
            bonus.Items.Add("Binder")
            bonus.Items.Add("Sticker")
        ElseIf merk.Text = "TOSHIBA" Then
            bonus.Items.Add("Tas")
            bonus.Items.Add("Binder")
            bonus.Items.Add("Sticker")
        End If
    End Sub

    Private Sub pembayaran_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles pembayaran.KeyPress
        If Asc(e.KeyChar) = 13 Then
            pembayaran.Text = jumbel.Text * harga.Text

        End If

    End Sub

    Private Sub total_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles total.KeyPress
        total.Text = Val(pembayaran.Text) + Val(hargatambahan.Text)
    End Sub

    Private Sub tambahan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tambahan.SelectedIndexChanged
        Select Case tambahan.Text
            Case "Charger"
                hargatambahan.Text = 25000
            Case "Kabel UTP"
                hargatambahan.Text = 33000
            Case " Cool Air"
                hargatambahan.Text = 30000
            Case "Kartu GSM"
                hargatambahan.Text = 50000
        End Select
    End Sub
End Class

NB:

No Pembeli = Tentukan Sendiri
Kode barang menentukan nama barang ,harga dan merk
Merk menentukan bonus ( bonus minimal isinya 3 dari setiap di pilih 1 merk )
Tambahan pembelian menentukan harga tambahan
Jumlah beli (keypres) di saat di enter pada bagian Jumlah beli maka akan muncul pembayaran
Tambahan pembelian(keypress) di saat enter pada bagian total biaya keseluruhan akan muncul
keterangan terserah mau buat gimn ( credit atau cash )
total biaya keseluruhan =pembayaran + harga tambahan