Listing Program
Public Class FormDYA
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
Sub buattabel()
LV.Columns.Add("nopeg", 80, HorizontalAlignment.Left)
LV.Columns.Add("kode", 80, HorizontalAlignment.Left)
LV.Columns.Add("nama", 100, HorizontalAlignment.Left)
LV.Columns.Add("merk", 80, HorizontalAlignment.Left)
LV.Columns.Add("harga", 80, HorizontalAlignment.Left)
LV.Columns.Add("jumlah", 80, HorizontalAlignment.Left)
LV.Columns.Add("total", 80, HorizontalAlignment.Left)
LV.View = View.Details
LV.GridLines = True
LV.FullRowSelect = True
End Sub
Sub isitabel()
Dim lst As New ListViewItem
lst.Text = nopeg.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 kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kode.SelectedIndexChanged
If kode.Text = "TS001" Then
merk.Text = "TOSHIBA"
nama.Text = "Flashdisk 4GB"
harga.Text = 105000
ElseIf kode.Text = "TS002" Then
merk.Text = "TOSHIBA"
nama.Text = "Fleshdisk 2GB"
harga.Text = 75000
ElseIf kode.Text = "VG001" Then
merk.Text = "V-Gen"
nama.Text = "Fleshdisk 4GB"
harga.Text = 9000
ElseIf kode.Text = "VG002" Then
merk.Text = "V-Gen"
nama.Text = "Fleshdisk 2GB"
harga.Text = 60000
Else : kode.Text = 0
merk.Text = 0
nama.Text = 0
harga.Text = 0
End If
End Sub
Private Sub Btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnsimpan.Click
total.Text = Val(jumlah.Text) * Val(harga.Text)
isitabel()
nopeg.Text = ""
kode.Text = ""
nama.Text = ""
merk.Text = ""
harga.Text = ""
jumlah.Text = ""
total.Text = ""
End Sub
Private Sub Btnbersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnbersih.Click
nopeg.Text = ""
kode.Text = ""
nama.Text = ""
merk.Text = ""
harga.Text = ""
jumlah.Text = ""
total.Text = ""
nopeg.Focus()
End Sub
Private Sub btnhapusdata_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapusdata.Click
LV.Items.Remove(LV.SelectedItems(0))
End Sub
Private Sub Btnhapussemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapussemua.Click
LV.Items.Clear()
End Sub
Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click
End
End Sub
End Class
Hasil Program