Listing Program
Public Class Form2
Sub
BuatTabel()
lv.Columns.Add("Pembeli",
80, HorizontalAlignment.Center)
lv.Columns.Add("Kode
Barang", 100, HorizontalAlignment.Left)
lv.Columns.Add("Nama
Barang", 100, HorizontalAlignment.Left)
lv.Columns.Add("Merk",
100, HorizontalAlignment.Left)
lv.Columns.Add("Jumlah
Beli", 100, HorizontalAlignment.Left)
lv.Columns.Add("Harga",
100, HorizontalAlignment.Left)
lv.Columns.Add("Total
Harga", 100, HorizontalAlignment.Left)
lv.View = View.Details
lv.GridLines = True
lv.FullRowSelect = True
End Sub
Sub
isitabel()
Dim lst
As New
ListViewItem
lst.Text = pembeli.Text
lst.SubItems.Add(kdbrg.Text)
lst.SubItems.Add(nmbrg.Text)
lst.SubItems.Add(merk.Text)
lst.SubItems.Add(jmlbeli.Text)
lst.SubItems.Add(harga.Text)
lst.SubItems.Add(totalharga.Text)
lv.Items.Add(lst)
End Sub
Private Sub kdbrg_SelectedIndexChanged(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles
kdbrg.SelectedIndexChanged
Dim XKODE As String
XKODE =
Microsoft.VisualBasic.Left(kdbrg.Text, 2)
Select Case XKODE
Case
"TS"
merk.Text = "TOSHIBA"
Case
"VG"
merk.Text = "VGEN"
End Select
XKODE =
Microsoft.VisualBasic.Right(kdbrg.Text, 3)
Select Case XKODE
Case
"001"
nmbrg.Text = "FLASHDISK 4GG"
harga.Text = 105000
Case
"002"
nmbrg.Text = "FLASHDISK 2GG"
harga.Text = 75000
End Select
End Sub
Private Sub Form2_Load(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
BuatTabel()
kdbrg.Items.Add("TS001")
kdbrg.Items.Add("TS002")
kdbrg.Items.Add("VG001")
kdbrg.Items.Add("VG002")
End Sub
Private Sub btnbatal_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles btnbatal.Click
pembeli.Text = ""
kdbrg.Text = ""
nmbrg.Text = ""
merk.Text = ""
jmlbeli.Text = ""
harga.Text = ""
End Sub
Private Sub btnhps_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles btnhps.Click
End
End Sub
Private Sub pembeli_TextChanged(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles pembeli.TextChanged
End Sub
Private Sub ListView1_SelectedIndexChanged(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles
lv.SelectedIndexChanged
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 hapusdipilih_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles hapusdipilih.Click
lv.Items.Remove(lv.SelectedItems(0))
End Sub
Private Sub simpan_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles simpan.Click
isitabel()
pembeli.Text = ""
kdbrg.Text = ""
nmbrg.Text = ""
merk.Text = ""
jmlbeli.Text = ""
harga.Text = ""
totalharga.Text = Val(harga.Text) *
Val(jmlbeli.Text)
End Sub
Private Sub jmlbeli_KeyPress(ByVal
sender As Object,
ByVal e As
System.Windows.Forms.KeyPressEventArgs) Handles
jmlbeli.KeyPress
totalharga.Text = Val(harga.Text) *
Val(jmlbeli.Text)
End Sub
Private Sub jmlbeli_TextChanged(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles jmlbeli.TextChanged
End Sub
End Class
Kuis Nomor 2
Listing Program
Public Class Form1
Private Sub Form1_Load(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
End Sub
Private Sub BTNHAPUS_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles BTNHAPUS.Click
NAMA.Text = ""
HARGA.Text = ""
JUMLAHJUAL.Text = ""
TOTAL.Text = ""
DISCOUNT.Text = ""
TOTALPEMBAYARAN.Text = ""
End Sub
Private Sub BTNPROSES_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles BTNPROSES.Click
If
TOTAL.Text > 2500000 Then
DISCOUNT.Text = 0.1 * TOTAL.Text
DISCOUNT = 0
End If
TOTAL.Text = HARGA.Text *
JUMLAHJUAL.Text
TOTALPEMBAYARAN.Text = TOTAL.Text -
DISCOUNT.Text
End Sub
Private Sub BTNKELUAR_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles BTNKELUAR.Click
Me.Close()
End Sub
Private Sub NOPEMBELIAN_TextChanged(ByVal
sender As System.Object, ByVal e As
System.EventArgs)
End Sub
End Class
