Berikut
syntaxnya..
Public Class Form1
Sub
buattabel()
lv.Columns.Add("No
Pembelian", 80, HorizontalAlignment.Center)
lv.Columns.Add("Kode
Barang", 80, HorizontalAlignment.Left)
lv.Columns.Add("Nama
Barang", 80, HorizontalAlignment.Center)
lv.Columns.Add("Merk",
80, HorizontalAlignment.Left)
lv.Columns.Add("Harga",
80, HorizontalAlignment.Center)
lv.Columns.Add("Jumlah
Beli", 80, HorizontalAlignment.Left)
lv.Columns.Add("Total
Harga", 80, HorizontalAlignment.Center)
lv.View = View.Details
lv.GridLines = True
lv.FullRowSelect = True
End Sub
Sub
isitabel()
Dim lst
As New
ListViewItem
lst.Text = no.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 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
Private Sub simpan_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles simpan.Click
isitabel()
no.Text = ""
kode.Text = ""
nama.Text = ""
merk.Text = ""
harga.Text = ""
jumlah.Text = ""
total.Text = ""
End Sub
Private Sub kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles
kode.SelectedIndexChanged
Dim X As String
X =
Microsoft.VisualBasic.Left(kode.Text, 2)
Select Case X
Case
"TS" : merk.Text = "TOSHIBA"
Case
"VG" : merk.Text = "V-GEN"
End Select
Select Case kode.Text
Case
"TS001" : nama.Text = "flashdisk 4 Gb"
Case
"TS002" : nama.Text = "flashdisk 2 Gb"
Case
"VG001" : nama.Text = "flashdisk 4 Gb"
Case
"VG002" : nama.Text = "flashdisk 2Gb"
End Select
Select Case kode.Text
Case
"TS001" : harga.Text = 105000
Case
"TS002" : harga.Text = 75000
Case
"VG001" : harga.Text = 90000
Case
"VG002" : harga.Text = 60000
End Select
End Sub
Private Sub bersih_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles bersih.Click
no.Text = ""
kode.Text = ""
nama.Text = ""
merk.Text = ""
harga.Text = ""
jumlah.Text = ""
total.Text = ""
End Sub
Private Sub nama_TextChanged(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles nama.TextChanged
End Sub
Private Sub semua_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles semua.Click
lv.Items.Clear()
End Sub
Private Sub pilih_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles pilih.Click
lv.Items.Remove(lv.SelectedItems(0))
End Sub
Private Sub Label6_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles Label6.Click
End Sub
Private Sub jumlah_KeyPress(ByVal
sender As Object,
ByVal e As
System.Windows.Forms.KeyPressEventArgs) Handles
jumlah.KeyPress
Dim
tombol As Integer
= Asc(e.KeyChar)
If
tombol = 13 Then
total.Text = harga.Text *
jumlah.Text
End If
End Sub
Private Sub jumlah_TextChanged(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles jumlah.TextChanged
End Sub
Private Sub keluar_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles keluar.Click
End
End Sub
End Class
SEPERTI INILAH HASILNYA
Tidak ada komentar:
Posting Komentar