cara Latihan membuat program sederhana menggunakan listbox

Pada kesempatan kali ini Sm tutorian akan membahas tentang cara Latihan membuat program sederhana menggunakan listbox.
sebalum nya buat dlu sebuah Form baru dengan tampilan seperti di bawah ini
1.buat tamplikan seperti gambar dibawah ini
2.Sebelum memasukan kode program ganti dulu file name combo1 (cmbmenu), combo2 (cmbpaket) List1 (menu) text1 (harga) option1 (delivery) option2 (ditempat)
text2 (hrgfasilitas) checkbox1 (teh) chextbox2 (air) text3 (hrgminuman) text4 (jumlah) text5 (total) text6 (bayar)
text7 (kembalian)
3. dobel klik pada Form1. Masukan kode rumusan dibawah ini

Private Sub Form_Load()
cmbmenu = ""
cmbpaket = ""
menu.Clear
harga = ""
delivery = False
ditempat = False
hrgfasilitas = ""
teh = False
air = False
hrgminuman = ""
jumlah = ""
total = ""
bayar = ""
kembali = ""
cmbmenu.AddItem ("Sarapan Pagi")
cmbmenu.AddItem ("Makan Siang")
cmbpaket.AddItem ("Paket 1")
cmbpaket.AddItem ("Paket 2")
End Sub

3.trus klik dobel pada Command1 dan masukan kode di bawah ini

Private Sub Command1_Click()
cmbmenu = ""
cmbpaket = ""
menu.Clear
harga = ""
delivery = False
ditempat = False
hrgfasilitas = ""
teh = False
air = False
hrgminuman = ""
jumlah = ""
total = ""
bayar = ""
kembali = ""
End Sub

4.Trus Klik dobel pada Combo2 (cdmpaket) dan masukan kode dibawah ini
Private Sub cmbpaket_Click()
If cmbmenu = "Sarapan Pagi" Then
If cmbpaket = "Paket 1" Then
menu.Clear
menu.AddItem ("Nasi Uduk")
menu.AddItem ("Telur")
menu.AddItem ("Telur Orek")
harga = 5000
Else
If cmbpaket = "Paket 2" Then
menu.Clear
menu.AddItem ("Nasi Goreng")
menu.AddItem ("Telur Mata Sapi")
menu.AddItem ("Telur Goreng")
harga = 7000
End If
End If
Else
If cmbmenu = "Makan Siang" Then
If cmbpaket = "Paket 1" Then
menu.Clear
menu.AddItem ("Nasi Putih")
menu.AddItem ("Ayam Bakar")
menu.AddItem ("Lalapan")
harga = 8000
Else
If cmbpaket = "Paket 2" Then
menu.Clear
menu.AddItem ("Nasi Putih")
menu.AddItem ("Rendang")
menu.AddItem ("Sambel")
harga = 10000
End If
End If
End If
End If
End Sub

5.Selanjutnya klik dobel pada option1 (delivery) masukan kode dibawah ini
Private Sub delivery_Click()
hrgfasilitas = 5000
End Sub

6.Selanjutnya klik dobel pada option2 (Ditempat) masukan kode dibawah ini
Private Sub ditempat_Click()
hrgfasilitas = 0
End Sub

7. Selanjutnya klik dobel pada checkbox1 (teh) masukan kode dibawah ini
Private Sub teh_Click()
If teh = 1 And air = 0 Then
hrgminuman = 1500
Else
If teh = 0 And air = 1 Then
hrgminuman = 500
Else
If teh = 1 And air = 1 Then
hrgminuman = 2000
Else
hrgminuman = 0
End If
End If
End If

8. Selanjutnya klik dobel pada checkbox1 (teh) masukan kode dibawah ini
Private Sub air_Click()
If teh = 1 And air = 0 Then
hrgminuman = 1500
Else
If teh = 0 And air = 1 Then
hrgminuman = 500
Else
If teh = 1 And air = 1 Then
hrgminuman = 2000
Else
hrgminuman = 0
End If
End If
End If

9. klik dobel pade text4(jumlah) dan ganti Chenge dengan keyPress dan masukan kode dibawah ini
Private Sub jumlah_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
total = (Val(harga) + Val(hrgminuman)) * Val(jumlah) + Val(hrgfasilitas)

10. Selanjutnya klik dobel pada text6(bayar) dan masukan kode dibawah ini
kembalian = Val(bayar) - Val(total)

11 Selesai dech dan jalan kan jangan lupa masukan jumlah beli trus Enter dech
maka akan muncul Total Bayar dan anda masukan juga Uang Bayar Maka Akan muncul otomatis Unga kembali
Contoh Gambar seperti dibawah ini.. :)

selamat mencoba dan semoga tutorial ini bermanfaat bagi anda semua
salam Smmania dan kembangkan trus, jangan lupa belajar ya..