judul soal : http://www.mesran.blogspot.com/2013/05/latihan-listview-perhitungan-penjualan.html
Public Class Form1
Private Sub Form1_Load(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
KDBARANG.Items.Add("TS001")
KDBARANG.Items.Add("TS002")
KDBARANG.Items.Add("VG001")
KDBARANG.Items.Add("VG002")
Call
RANCANGTABLE()
End Sub
Sub
RANCANGTABLE()
LV.Columns.Add("NO
PEMBELI", 100, HorizontalAlignment.Left)
LV.Columns.Add("KODE
BARANG", 80, 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.GridLines = True
LV.View = View.Details
LV.FullRowSelect = True
End Sub
Sub
ISITABEL()
Dim
IKAN As New
ListViewItem
IKAN.Text = NOPEMBELI.Text
IKAN.SubItems.Add(KDBARANG.Text)
IKAN.SubItems.Add(NMBARANG.Text)
IKAN.SubItems.Add(MERK.Text)
IKAN.SubItems.Add(HARGA.Text)
IKAN.SubItems.Add(JMLHBELI.Text)
IKAN.SubItems.Add(THARGA.Text)
LV.Items.Add(IKAN)
End Sub
Private Sub KDBARANG_SelectedIndexChanged(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles
KDBARANG.SelectedIndexChanged
If
KDBARANG.Text = "TS001" Then
NMBARANG.Text = "Flashdisk 4GB"
MERK.Text = "TOSHIBA"
HARGA.Text = 105000
ElseIf
KDBARANG.Text = "TS002" Then
NMBARANG.Text = "flashdisk 2GB"
MERK.Text = "TOSHIBA"
HARGA.Text = 75000
ElseIf
KDBARANG.Text = "VG001" Then
NMBARANG.Text = "Flashdisk 4GB"
MERK.Text = "V-GEN"
HARGA.Text = 90000
ElseIf
KDBARANG.Text = "VG002" Then
NMBARANG.Text = "Flashdisk 2GB"
MERK.Text = "V-GEN"
HARGA.Text = 70000
End If
End Sub
Private Sub JMLHBELI_KeyUp(ByVal
sender As Object,
ByVal e As
System.Windows.Forms.KeyEventArgs) Handles
JMLHBELI.KeyUp
If
e.KeyCode = Keys.Enter Then
THARGA.Text = HARGA.Text *
JMLHBELI.Text
End If
End Sub
Private Sub BTNSIMPANKELV_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles BTNSIMPANKELV.Click
Call
ISITABEL()
End Sub
Private Sub BTNHPSSEMUADT_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles BTNHPSSEMUADT.Click
NOPEMBELI.Text = ""
KDBARANG.Text = ""
NMBARANG.Text = ""
MERK.Text = ""
HARGA.Text = ""
JMLHBELI.Text = ""
THARGA.Text = ""
LV.Items.Remove(LV.SelectedItems(0))
End Sub
Private Sub HPSDTYGDIPLH_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles HPSDTYGDIPLH.Click
LV.Items.Remove(LV.SelectedItems(0))
End Sub
Private Sub BTNBERSIH_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles BTNBERSIH.Click
NOPEMBELI.Text = ""
KDBARANG.Text = ""
NMBARANG.Text = ""
MERK.Text = ""
HARGA.Text = ""
JMLHBELI.Text = ""
THARGA.Text = ""
End Sub
Private Sub BTNKELUAR_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles BTNKELUAR.Click
Dim
tanya As String
tanya = MsgBox("apaah
anda ingin keluar ?", MsgBoxStyle.Question + MsgBoxStyle.YesNo)
If
tanya = vbYes Then
End If
End Sub
End Class
