Buatlah Program Untuk Menampilkan Hasil ke Listview Untuk kasus Latihan Listview Perhitungan Pejualan Barang!
Public Class Form1
Private Sub Form1_Load(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
buattabel()
kode.Items.Add("TS001")
kode.Items.Add("TS002")
kode.Items.Add("VG001")
kode.Items.Add("VG002")
End Sub
Private Sub kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles
kode.SelectedIndexChanged
Dim x As String
x =
Microsoft.VisualBasic.Left(kode.Text, 2)
Select Case x
Case
"TS" : merk.Text = "Toshiba"
Case
"VG" : merk.Text = "V-GEN"
End Select
x =
Microsoft.VisualBasic.Right(kode.Text, 3)
Select Case x
Case
"001" : nama.Text = "Flashdisk 4GB"
Case
"002" : nama.Text = "Flashdisk 2GB"
End Select
Select
kode.Text
Case
"TS001" : harga.Text = "105000"
Case
"TS002" : harga.Text = "75000"
Case
"VG001" : harga.Text = "90000"
Case
"VG002" : harga.Text = "60000"
End Select
End Sub
Private Sub jumlah_TextChanged(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles jumlah.TextChanged
total.Text = Val(harga.Text) *
Val(jumlah.Text)
End Sub
Sub
buattabel()
lv.Columns.Add("No
Pembelian", 50, HorizontalAlignment.Left)
lv.Columns.Add("Kode
Barang", 80, HorizontalAlignment.Left)
lv.Columns.Add("Nama
Barang", 120, HorizontalAlignment.Left)
lv.Columns.Add("Merk",
120, HorizontalAlignment.Left)
lv.Columns.Add("Harga",
120, HorizontalAlignment.Left)
lv.Columns.Add("Jumlah
Pembelian", 120, HorizontalAlignment.Left)
lv.Columns.Add("Total
Harga", 120, HorizontalAlignment.Left)
Lv.View = View.Details
Lv.GridLines = True
Lv.FullRowSelect = True
End Sub
Sub
isitabel()
Dim lst
As New
ListViewItem
lst.Text = no.Text()
lst.SubItems.Add(kode.Text)
lst.SubItems.Add(nama.Text)
lst.SubItems.Add(merk.Text)
lst.SubItems.Add(harga.Text)
lst.SubItems.Add(jumlah.Text)
lst.SubItems.Add(total.Text)
Lv.Items.Add(lst)
End Sub
Private Sub simpan_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles simpan.Click
isitabel()
End Sub
Sub
bersih()
No.Text = ""
kode.Text = ""
nama.Text = ""
merk.Text = ""
harga.Text = ""
jumlah.Text = ""
total.Text
= ""
End Sub
Private Sub bersih_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles btnbersih.Click
bersih()
End Sub
Private Sub hapussemua_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles hapussemua.Click
lv.Items.Clear()
End Sub
Private Sub hapus_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles hapus.Click
lv.Items.Remove(lv.SelectedItems(0))
End Sub
Private Sub keluar_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles keluar.Click
End
End Sub
End Class
Berikut Jawaban Program:
