Program Penjualan PC Peripherals
Tutorial VB kali ini saya akan membahas "Program Penjualan Spare Part PC ". Program ini dibuat untuk melakukan transaksi antara customer dan penjual. Masih dengan banner saya yang lama, karena memang senang dengan bannernya.
Apa itu Penjualan PC Pheripheral ?
Saya akan sedikit jabarkan tentang program visual basic ini. Ketentuan pada form program ini adalah:- Calon Pembeli melakukan transaksi dengan memilih langsung Komponen PC, bisa melakukan input di text boxnya yang menghasilkan pencarian otomatis pada list box.
- Akan Muncul keterangan mengenai harganya
- Jumlah + pemesanannya
Selebihnya kamu bisa menilai sendiri program ini
Listing Code dan penjelasannya
'==========================================
Option Explicit
Private Declare Function SendMessageByString _
Lib "user32" _
Alias "SendMessageA" _
(ByVal hwnd As Long, _
ByVal wMsg As Long, _
ByVal wParam As Long, _
ByVal lParam As String) _
As Long
Private Const LB_SELECTSTRING = &H18C
'==========================================
' untuk perhitungan pada text total dan kembalian
Private Sub cacad_Click()
total.Text = Val(hargas.Text) * Val(jumlah.Text)
kembalian.Text = Val(uang.Text) - Val(total.Text)
End Sub
'==========================================
' Ini saya gunakan ketika list box telah terpilih, maka menghasilkan msgbox baru
Private Sub Command1_Click()
processor.Text = list1.Text
MsgBox "You selected " _
& processor.Text _
& vbNewLine _
& "Harga = " _
& list1.ItemData(list1.ListIndex)
If list1.Text = "Athlon 64 X2 4800+ (AM2)" Then
a.Text = 629520
ElseIf list1.Text = "Core 2 Duo E8500" Then
a.Text = 2094960
ElseIf list1.Text = "Core 2 Extreme QX9775 " Then
a.Text = 15985680
ElseIf list1.Text = "Core 2 Duo E7400" Then
a.Text = 1269230
ElseIf list1.Text = "Athlon 64 X2 5600+ (AM2)" Then
a.Text = 774000
ElseIf list1.Text = "Athlon 64 X2 6000+ (AM2)" Then
a.Text = 897840
ElseIf list1.Text = "Athlon 64 X2 7750 Black Edition" Then
a.Text = 877200
ElseIf list1.Text = "Phenom X4 9600" Then
a.Text = 2528400
End If
End Sub
Untuk melihat listing code dan download program Penjualan PC Peripherals, click
