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
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
