Program Sederhana Harga Pembelian Komputer

anda ingin membuat program sederhana untuk daftar pembelian komputer

1. Desain sebuah form dengan menggunakan Label, Text box, Command Button, List box, Picture. Ubahlah nilai properti dari setiap control / komponen.. Desain seperti gambar

Komponen Properti
7 Label Caption DAFTAR HARGA PEMBELIAN KOMPUTER,
Jumlah Unit, Nomor Pilihan, Harga,
Diskon, Total, Total Bayar
5 Text Box Name Txtjumlah, txtpilihan, txtharga,
txtdiskon, txttotal, txtot
Text Dikosongkan
1 List box Name lstdaftar
list Monitor, CPU, Motherboard,
Processor, Harddisk, Floppydisk,
CD – ROM, RAM
1 Picture box Name Picdaftar
Picture None
3 Command Button Name Cmdhitung, cmddatabaru, cmdkeluar
Caption HITUNG, DATA BARU, KELUAR

2. Masukkan Listing Program berikut ini :

Dim pilihan As Integer
Dim harga As Currency
Dim jumlah As Integer
Dim bayar As Currency
Dim diskon As Single
Dim total As Currency
Private Sub cmddatabaru_Click()
txtjumlah.Text = ""
txtpilihan.Text = ""
txtharga.Text = ""
txtdiskon.Text = ""
txttotal.Text = ""
txttot.Text = ""
picdaftar.Visible = False
lstdaftar.ListIndex = 0
End Sub
Private Sub cmdhitung_Click()
If txtjumlah.Text = "" Then
MsgBox "Anda belum masukkan jumlah unit", vbOKOnly + vbInformation, "Isi Data"
lstdaftar.SetFocus
Exit Sub
End If
txtpilihan.Text = lstdaftar.Text
Select Case lstdaftar.Text
Case "Monitor"
picdaftar.Visible = True
txtharga.Text = 500000
picdaftar.Picture = LoadPicture("D:\Student Day\data\monitor.jpg")
Case "CPU"
picdaftar.Visible = True
txtharga.Text = 100000
picdaftar.Picture = LoadPicture("D:\Student Day\data\CPU.jpg")
Case "Motherboard"
picdaftar.Visible = True
txtharga.Text = 1350000
picdaftar.Picture = LoadPicture("D:\Student Day\data\motherboard.jpg")
Case "Processor"
picdaftar.Visible = True
txtharga.Text = 1550000
picdaftar.Picture = LoadPicture("D:\Student Day\data\processor.jpg")
Case "Harddisk"
picdaftar.Visible = True
txtharga.Text = 775000
picdaftar.Picture = LoadPicture("D:\Student Day\data\harddisk.jpg")
Case "Floppydisk"
picdaftar.Visible = True
txtharga.Text = 70000
picdaftar.Picture = LoadPicture("D:\Student Day\data\floppy.jpg")
Case "CD - ROM"
picdaftar.Visible = True
txtharga.Text = 150000
picdaftar.Picture = LoadPicture("D:\Student Day\data\cdrom.jpg")
Case "RAM"
picdaftar.Visible = True
txtharga.Text = 225000
picdaftar.Picture = LoadPicture("D:\Student Day\data\ram.jpg")
End Select

jumlah = txtjumlah.Text
harga = txtharga.Text
total = jumlah * harga
If txtjumlah.Text > 10 Then
diskon = total * 0.1
Else
diskon = total * 0
End If
txtdiskon.Text = diskon
txttotal.Text = total
txttot.Text = total - txtdiskon.Text
End Sub
Private Sub cmdkeluar_Click()
End
End Sub
Private Sub Form_Load()
lstdaftar.AddItem "Monitor"
lstdaftar.AddItem "CPU"
lstdaftar.AddItem "Motherboard"
lstdaftar.AddItem "Processor"
lstdaftar.AddItem "Harddisk"
lstdaftar.AddItem "Floppydisk"
lstdaftar.AddItem "CD - ROM"
lstdaftar.AddItem "RAM"
End Sub

3. Eksekusi atau compile program dengan menekan tombol F5 dikeyboard atau dengan mengklik icon start pada menu bar. Maka akan muncul tampilan seperti gambar