Latihan Listview Perhitungan Penjualan Barang

Written By Mesran on Rabu, 29 Mei 2013 | 09.05

Kasus Pemrograman : latihan listview perhitungan penjualan barang.

Design Form seperti gambar di bawah

Private Sub jumlahbeli_keypress(ByVal sender As System.Object, ByVal e As System.EventArgs)
    If Asc(e.keychar) = 13 Then
        totalharga.text = harga.text * jumlahbeli.text
    End If
End Sub
Public Class Form1_load

    Private Sub BuatTabel()
        lv.Columns.Add("No Pembelian ", 80, HorizontalAlignment.Center)
        lv.Columns.Add("Kode Barang ", 180, HorizontalAlignment.Left)
        lv.Columns.Add("Nama Barang", 80, HorizontalAlignment.Left)
        lv.Columns.Add("Merk ", 80, HorizontalAlignment.Left)
        lv.Columns.Add("Harga ", 80, HorizontalAlignment.Left)
        lv.Columns.Add("Jumlah Beli", 80, HorizontalAlignment.Left)
        lv.Columns.Add("Total Harga", 80, HorizontalAlignment.Left)
        lv.View = View.Details
        lv.GridLines = True
        lv.FullRowSelect = True

    End Sub

    Private Sub IsiTabel()
        Dim lst As New ListViewItem
        lst.Text = nopembelian.Text
        lst.SubItems.Add(kodebarang.Text)
        lv.Items.Add(lst)

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        kodebarang.Items.Add("TS001")
        kodebarang.Items.Add("TS002")
        kodebarang.Items.Add("VG001")
        kodebarang.Items.Add("VG002")
    End Sub

    Private Sub btnsimpankelitsview_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpankelitsview.Click
        IsiTabel()
        nopembelian.Text = ""
        kodebarang.Text = ""
        namabarang.Text = ""
        merk.Text = ""
        harga.Text = ""
        jumlahbeli.Text = ""
        totalharga.Text = ""


    End Sub

    Private Sub btnbersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbersih.Click
        lv.Items.Clear()

    End Sub

    Private Sub btnhapusdatayangdipilih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapusdatayangdipilih.Click
        lv.Items.Remove(lv.SelectedItems(0))

    End Sub

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

    Private Sub btnhapussemuadata_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapussemuadata.Click
        nopembelian.Text = ""
        kodebarang.Text = ""
        namabarang.Text = ""
        merk.Text = ""
        harga.Text = ""
        jumlahbeli.Text = ""
        totalharga.Text = ""
    End Sub



    Private Sub kodebarang_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kodebarang.SelectedIndexChanged
        Select Case kodebarang.Text
            Case "TS001"
                namabarang.Text = "Flashdisk 4GB"
                merk.Text = "TOSHIBA"
                harga.Text = "105000"
            Case "TS002"
                namabarang.Text = "Flashdisk 2GB"
                merk.Text = "TOSHIBA"
                harga.Text = "75000"
            Case "VG001"
                namabarang.Text = "Flashdisk 4GB"
                merk.Text = "V-Gen"
                harga.Text = "90000"
            Case "VG002"
                namabarang.Text = "Flashdisk 2GB"
                merk.Text = "V-Gen"
                merk.Text = "60000"
        End Select
    End Sub