PROGRAM PENJUALAN TV DENGAN MENGGUNAKAN LISTVIEW

By : Joko Syahputra

Waduh2........ udah lama ndak buka fb............. gue ingin berbagi ilmu dulu laah....
bagaimana cara Pembuatan Program Penjualan TV dengan menggunakan Listview part1... ok langsung aje................. yeee.....

PROGRAM PENJUALAN TV DENGAN MENGGUNAKAN LISTVIEW

Tapi sebelumnya alangkah baiknya jika anda desain dulu gambarnya seperti gambar punya gue yaaa...

Lalu anda bisa salin codingnya di bawah ini....

PublicClass Form3

PrivateSub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load
Call TampilNamaBarang()
Call bersih()
Call BuatTable()
EndSub
Sub BuatTable()
LV.View = View.Details
LV.GridLines = True
LV.FullRowSelect = True
LV.Columns.Add("Nama Barang", 80, HorizontalAlignment.Center)
LV.Columns.Add("Harga", 70, HorizontalAlignment.Center)
LV.Columns.Add("Jumlah Jual", 100, HorizontalAlignment.Center)
LV.Columns.Add("Total Harga", 70, HorizontalAlignment.Center)
LV.Columns.Add("Discount", 70, HorizontalAlignment.Center)
LV.Columns.Add("Total Pembayaran", 100, HorizontalAlignment.Center)
EndSub
Sub IsiTable()
Dim Lst AsNew ListViewItem
With Lst
.Text = NBarang.Text
.SubItems.Add(harga.Text)
.SubItems.Add(JJual.Text)
.SubItems.Add(THarga.Text)
.SubItems.Add(Discount.Text)
.SubItems.Add(TPembayaran.Text)
EndWith
LV.Items.Add(Lst)
EndSub
Sub TampilNamaBarang()
NBarang.Items.Add("TOSHIBA")
NBarang.Items.Add("DIGITEC")
NBarang.Items.Add("POLYTRON")
EndSub

PrivateSub NBarang_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NBarang.SelectedIndexChanged
SelectCase NBarang.Text
Case"TOSHIBA"
harga.Text = "2000000"
Case"DIGITEC"
harga.Text = "1500000"
Case"POLYTRON"
harga.Text = "1000000"
EndSelect
EndSub

PrivateSub JJual_KeyPress(ByVal sender AsObject, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles JJual.KeyPress
If Asc(e.KeyChar) = 13 Then
THarga.Text = harga.Text * JJual.Text : Call buatDiscount()
EndIf

EndSub
Sub buatDiscount()
If THarga.Text >= 2500000 Then
Discount.Text = 0.1 * THarga.Text
Else
Discount.Text = 0
EndIf
EndSub
PrivateSub JJual_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles JJual.TextChanged

EndSub

PrivateSub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TPembayaran.Text = Val(THarga.Text) - Val(Discount.Text)
EndSub
Sub bersih()
NBarang.Text = ""
harga.Text = ""
JJual.Text = ""
THarga.Text = ""
Discount.Text = ""
TPembayaran.Text = ""
EndSub

PrivateSub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Call bersih()
EndSub

PrivateSub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
End
EndSub

PrivateSub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
IsiTable()
bersih()
EndSub

PrivateSub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
LV.Items.Remove(LV.SelectedItems(0))
EndSub

PrivateSub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
LV.Items.Clear()
EndSub
EndClass

Dan lihat hasilnya........ setelah saya inputkan..... hasilnya akan seperti gambar ane ini.............. hahahahaha.....