Berikut Listing Program nya :
Public Class Form1
Private Sub Form1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Me.KeyPress
If Asc(e.KeyChar) = 13 Then
THarga.Text = Val(Harga.Text) * Val(jumlahbeli.Text)
End If
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
BuatTabel()
kbarang.Items.Add("TS001")
kbarang.Items.Add("TS002")
kbarang.Items.Add("VG001")
kbarang.Items.Add("VG002")
End Sub
Private Sub kbarang_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kbarang.SelectedIndexChanged
Dim X As String
Dim y As String
X = Microsoft.VisualBasic.Left(kbarang.Text, 2)
y = Microsoft.VisualBasic.Right(kbarang.Text, 3)
Select Case X
Case "TS" : Merk.Text = "Toshiba"
Case "VG" : Merk.Text = "V-GEN"
End Select
Select Case y
Case "001" : Nbarang.Text = "Flashdisk 4GB"
Case "002" : Nbarang.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
Private Sub Btnbersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnbersih.Click
nomor.Text = ""
kbarang.Text = ""
Nbarang.Text = ""
Merk.Text = ""
jumlahbeli.Text = ""
Harga.Text = ""
End Sub
Private Sub btnhapussemuadata_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapussemuadata.Click
lv.Items.Clear()
End Sub
Private Sub nomor_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nomor.TextChanged
End Sub
Private Sub ListView1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lv.SelectedIndexChanged
End Sub
Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click
End
End Sub
Private Sub btnhapusdatayangdipilih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapusdatayangdipilih.Click
lv.Items.Remove(lv.SelectedItems(0))
End Sub
Private Sub btnsimpankelistview_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpankelistview.Click
isitabel()
nomor.Text = ""
kbarang.Text = ""
Nbarang.Text = ""
Merk.Text = ""
jumlahbeli.Text = ""
Harga.Text = ""
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.View = View.Details
lv.GridLines = True
lv.FullRowSelect = True
End Sub
Sub isitabel()
Dim lst As New ListViewItem
lst.Text = nomor.Text
lst.SubItems.Add(kbarang.Text)
lst.SubItems.Add(Nbarang.Text)
lst.SubItems.Add(Merk.Text)
lst.SubItems.Add(jumlahbeli.Text)
lst.SubItems.Add(Harga.Text)
lst.SubItems.Add(THarga.Text)
lv.Items.Add(lst)
End Sub
Private Sub THarga_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles THarga.TextChanged
THarga.Text = (Harga.Text) * (jumlahbeli.Text)
End Sub
End Class
Private Sub Form1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Me.KeyPress
If Asc(e.KeyChar) = 13 Then
THarga.Text = Val(Harga.Text) * Val(jumlahbeli.Text)
End If
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
BuatTabel()
kbarang.Items.Add("TS001")
kbarang.Items.Add("TS002")
kbarang.Items.Add("VG001")
kbarang.Items.Add("VG002")
End Sub
Private Sub kbarang_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kbarang.SelectedIndexChanged
Dim X As String
Dim y As String
X = Microsoft.VisualBasic.Left(kbarang.Text, 2)
y = Microsoft.VisualBasic.Right(kbarang.Text, 3)
Select Case X
Case "TS" : Merk.Text = "Toshiba"
Case "VG" : Merk.Text = "V-GEN"
End Select
Select Case y
Case "001" : Nbarang.Text = "Flashdisk 4GB"
Case "002" : Nbarang.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
Private Sub Btnbersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnbersih.Click
nomor.Text = ""
kbarang.Text = ""
Nbarang.Text = ""
Merk.Text = ""
jumlahbeli.Text = ""
Harga.Text = ""
End Sub
Private Sub btnhapussemuadata_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapussemuadata.Click
lv.Items.Clear()
End Sub
Private Sub nomor_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nomor.TextChanged
End Sub
Private Sub ListView1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lv.SelectedIndexChanged
End Sub
Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click
End
End Sub
Private Sub btnhapusdatayangdipilih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapusdatayangdipilih.Click
lv.Items.Remove(lv.SelectedItems(0))
End Sub
Private Sub btnsimpankelistview_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpankelistview.Click
isitabel()
nomor.Text = ""
kbarang.Text = ""
Nbarang.Text = ""
Merk.Text = ""
jumlahbeli.Text = ""
Harga.Text = ""
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.View = View.Details
lv.GridLines = True
lv.FullRowSelect = True
End Sub
Sub isitabel()
Dim lst As New ListViewItem
lst.Text = nomor.Text
lst.SubItems.Add(kbarang.Text)
lst.SubItems.Add(Nbarang.Text)
lst.SubItems.Add(Merk.Text)
lst.SubItems.Add(jumlahbeli.Text)
lst.SubItems.Add(Harga.Text)
lst.SubItems.Add(THarga.Text)
lv.Items.Add(lst)
End Sub
Private Sub THarga_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles THarga.TextChanged
THarga.Text = (Harga.Text) * (jumlahbeli.Text)
End Sub
End Class












Setiap orang pasti punya sejarah
dalam kehidupan asmaranya, begitu juga dengan kekasih Anda. Sebelum
menjalin cinta dengan Anda, mungkin si dia pernah mempunyai seseorang
yang pernah disayanginya.



















