Public Class Form1
Private Sub Form1_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 kdbrng_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kdbrg.SelectedIndexChanged
Dim X As String
Dim y As String
X = Microsoft.VisualBasic.Left(kdbrg.Text, 2)
y = Microsoft.VisualBasic.Right(kdbrg.Text, 3)
Select Case X
Case "TS" : merk.Text = "Toshiba"
Case "VG" : merk.Text = "V-GEN"
End Select
Select Case y
Case "001" : nmbrg.Text = "Flashdisk 4GB"
Case "002" : nmbrg.Text = "Flashdisk 2GB"
End Select
If X = "TS" And y = "001" Then
harga.Text = 105000
ElseIf X = "TS" And y = "002" Then
harga.Text = 75000
ElseIf X = "VG" And y = "001" Then
harga.Text = 50000
ElseIf X = "VG" And y = "002" Then
harga.Text = 80000
End If
End Sub
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(jlhbeli.Text)
lst.SubItems.Add(harga.Text)
lst.SubItems.Add(ttalharga.Text)
lv.Items.Add(lst)
End Sub
Private Sub btnbersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbersih.Click
pembeli.Text = ""
kdbrg.Text = ""
nmbrg.Text = ""
merk.Text = ""
harga.Text = ""
ttalharga.Text = ""
jlhbeli.Text = ""
End Sub
Private Sub Btnhapussemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapussemua.Click
pembeli.Text = ""
kdbrg.Text = ""
nmbrg.Text = ""
merk.Text = ""
harga.Text = ""
ttalharga.Text = ""
jlhbeli.Text = ""
End Sub
Private Sub btnhapusdata_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapusdata.Click
pembeli.Text = ""
kdbrg.Text = ""
nmbrg.Text = ""
merk.Text = ""
harga.Text = ""
ttalharga.Text = ""
jlhbeli.Text = ""
End Sub
Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click
End
End Sub
Private Sub btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan.Click
isitabel()
ttalharga.Text = harga.Text * jlhbeli.Text
End Sub
Private Sub jlhbeli_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jlhbeli.TextChanged
ttalharga.Text = harga.Text * jlhbeli.Text
End Sub
End Class
hasilnya :
Private Sub Form1_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 kdbrng_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kdbrg.SelectedIndexChanged
Dim X As String
Dim y As String
X = Microsoft.VisualBasic.Left(kdbrg.Text, 2)
y = Microsoft.VisualBasic.Right(kdbrg.Text, 3)
Select Case X
Case "TS" : merk.Text = "Toshiba"
Case "VG" : merk.Text = "V-GEN"
End Select
Select Case y
Case "001" : nmbrg.Text = "Flashdisk 4GB"
Case "002" : nmbrg.Text = "Flashdisk 2GB"
End Select
If X = "TS" And y = "001" Then
harga.Text = 105000
ElseIf X = "TS" And y = "002" Then
harga.Text = 75000
ElseIf X = "VG" And y = "001" Then
harga.Text = 50000
ElseIf X = "VG" And y = "002" Then
harga.Text = 80000
End If
End Sub
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(jlhbeli.Text)
lst.SubItems.Add(harga.Text)
lst.SubItems.Add(ttalharga.Text)
lv.Items.Add(lst)
End Sub
Private Sub btnbersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbersih.Click
pembeli.Text = ""
kdbrg.Text = ""
nmbrg.Text = ""
merk.Text = ""
harga.Text = ""
ttalharga.Text = ""
jlhbeli.Text = ""
End Sub
Private Sub Btnhapussemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapussemua.Click
pembeli.Text = ""
kdbrg.Text = ""
nmbrg.Text = ""
merk.Text = ""
harga.Text = ""
ttalharga.Text = ""
jlhbeli.Text = ""
End Sub
Private Sub btnhapusdata_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapusdata.Click
pembeli.Text = ""
kdbrg.Text = ""
nmbrg.Text = ""
merk.Text = ""
harga.Text = ""
ttalharga.Text = ""
jlhbeli.Text = ""
End Sub
Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click
End
End Sub
Private Sub btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan.Click
isitabel()
ttalharga.Text = harga.Text * jlhbeli.Text
End Sub
Private Sub jlhbeli_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jlhbeli.TextChanged
ttalharga.Text = harga.Text * jlhbeli.Text
End Sub
End Class
hasilnya :