Pertama masuk
ke Microsoft visual vidio 2010
Setelah masuk buat project baru dengan cara klik new project
atau filih File → New → project, kemudian pilih yang visual basic →windows for
application
Lalu buatlah form 1 menjadi sebagai berikut dengan
menggunakan tools Label, ComboBox, TextBox, Button
Keterangan :
Label1 :
makanan
Label2 :
dan jumlah
Label3 :
minuman
Label4 :
dan jumlah
Label5 :
total bayar
Label6 :
jumlah uang
Label7 :
kembalian
Label8 :
ayam
Label9 :
bebek
Label10 :
burung dara
Label11 :
ikan
Label12 :
kepiting
Label13 :
nasi
Label14 :
teh
Label15 :
jeruk
Label16 :
teh botol
Label17 :
jus
Textbox 1 : txtbayar (ubah (NAMA) pada propertis)
Textbox 2 : txtuang (ubah
(NAMA) pada propertis)
Textbox 3 : txtkembalian (ubah (NAMA) pada propertis)
Button 1 :
hitung
Button 2 :
kembalian
Button 3 :
bersihkan
Untuk ComboBox pada Group box 1 terdiri dari combobox 1-6
Untuk ComboBox pada Group box 2 terdiri dari combobox 7-10
Kemudian klik 2 kali pada button hitung dan masukan script
sebagai berikut :
Dim makanan As Integer
Dim minuman As Integer
Dim ayam As Integer
Dim bebek As Integer
Dim Dara As Integer
Dim ikan As Integer
Dim kepiting As Integer
Dim teh As Integer
Dim jeruk As Integer
Dim jus As Integer
Dim tehbotol As Integer
If (ComboBox1.Text = "0")
Then
ayam = 0
ElseIf (ComboBox1.Text = "1")
Then
ayam = 6500
ElseIf (ComboBox1.Text = "2")
Then
ayam = 13000
ElseIf (ComboBox1.Text = "3")
Then
ayam = 19500
ElseIf (ComboBox1.Text = "4")
Then
ayam = 26000
ElseIf (ComboBox1.Text = "5")
Then
ayam = 32500
End If
If (ComboBox2.Text = "0")
Then
bebek = 0
ElseIf (ComboBox2.Text = "1")
Then
bebek = 7000
ElseIf (ComboBox2.Text = "2")
Then
bebek = 14000
ElseIf (ComboBox2.Text = "3")
Then
bebek = 21000
ElseIf (ComboBox2.Text = "4")
Then
bebek = 28000
ElseIf (ComboBox2.Text = "5")
Then
bebek = 35000
End If
If (ComboBox3.Text = "0")
Then
Dara = 0
ElseIf (ComboBox3.Text = "1")
Then
Dara = 6000
ElseIf (ComboBox3.Text = "2")
Then
Dara = 12000
ElseIf (ComboBox3.Text = "3")
Then
Dara = 18000
ElseIf (ComboBox3.Text = "4")
Then
Dara = 24000
ElseIf (ComboBox3.Text = "5")
Then
Dara = 30000
End If
If (ComboBox4.Text = "0")
Then
ikan = 0
ElseIf (ComboBox4.Text = "1")
Then
ikan = 5000
ElseIf (ComboBox4.Text = "2")
Then
ikan = 10000
ElseIf (ComboBox4.Text = "3")
Then
ikan = 15000
ElseIf (ComboBox4.Text = "4")
Then
ikan = 20000
ElseIf (ComboBox4.Text = "5")
Then
ikan = 25000
End If
If (ComboBox5.Text = "0")
Then
kepiting = 0
ElseIf (ComboBox5.Text = "1")
Then
kepiting = 8000
ElseIf (ComboBox5.Text = "2")
Then
kepiting = 16000
ElseIf (ComboBox5.Text = "3")
Then
kepiting = 24000
ElseIf (ComboBox5.Text = "4")
Then
kepiting = 32000
ElseIf (ComboBox5.Text = "5")
Then
kepiting = 30000
End If
If (ComboBox7.Text = "0")
Then
teh = 0
ElseIf (ComboBox7.Text = "1")
Then
teh = 1000
ElseIf (ComboBox7.Text = "2")
Then
teh = 2000
ElseIf (ComboBox7.Text = "3")
Then
teh = 3000
ElseIf (ComboBox7.Text = "4")
Then
teh = 4000
ElseIf (ComboBox7.Text = "5")
Then
teh = 5000
End If
If (ComboBox8.Text = "0")
Then
jeruk = 0
ElseIf (ComboBox8.Text = "1")
Then
jeruk = 1500
ElseIf (ComboBox8.Text = "2")
Then
jeruk = 3000
ElseIf (ComboBox8.Text = "3")
Then
jeruk = 4500
ElseIf (ComboBox8.Text = "4")
Then
jeruk = 6000
ElseIf (ComboBox8.Text = "5")
Then
jeruk = 7500
End If
If (ComboBox9.Text = "0")
Then
tehbotol = 0
ElseIf (ComboBox9.Text = "1")
Then
tehbotol = 2000
ElseIf (ComboBox9.Text = "2")
Then
tehbotol = 4000
ElseIf (ComboBox9.Text = "3")
Then
tehbotol = 6000
ElseIf (ComboBox9.Text = "4")
Then
tehbotol = 8000
ElseIf (ComboBox9.Text = "5")
Then
tehbotol = 10000
End If
If (ComboBox10.Text = "0")
Then
jus = 0
ElseIf (ComboBox10.Text = "1")
Then
jus = 2000
ElseIf (ComboBox10.Text = "2")
Then
jus = 4000
ElseIf (ComboBox10.Text = "3")
Then
jus = 6000
ElseIf (ComboBox10.Text = "4")
Then
jus = 8000
ElseIf (ComboBox10.Text = "5")
Then
jus = 10000
End If
makanan = ayam + bebek + Dara + ikan + kepiting
minuman = teh + jeruk + tehbotol + jus
If (ComboBox6.Text = "0")
Then
makanan = makanan + 0
ElseIf (ComboBox6.Text = "1")
Then
makanan = makanan + 2000
ElseIf (ComboBox6.Text = "2")
Then
makanan = makanan + 4000
ElseIf (ComboBox6.Text = "3")
Then
makanan = makanan + 6000
ElseIf (ComboBox6.Text = "4")
Then
makanan = makanan + 8000
ElseIf (ComboBox6.Text = "5")
Then
makanan = makanan + 10000
ElseIf (ComboBox6.Text = "6")
Then
makanan = makanan + 12000
ElseIf (ComboBox6.Text = "7")
Then
makanan = makanan + 14000
ElseIf (ComboBox6.Text = "8")
Then
makanan = makanan + 16000
ElseIf (ComboBox6.Text = "9")
Then
makanan = makanan + 18000
ElseIf (ComboBox6.Text = "10")
Then
makanan = makanan + 20000
End If
txtbayar.Text = makanan + minuman
kemudian klik 2 kali pada Button kembalian dan masukan
script sebagai berikut :
Dim uang As Integer
uang
= System.Convert.ToInt32(txtuang.Text)
txtkembalian.Text = txtuang.Text - txtbayar.Text
MsgBox("total bayar :" & txtbayar.Text &
vbNewLine &
"Jumlah Uang :" &
txtuang.Text & vbNewLine &
"Kembalian :" & txtkembalian.Text
& vbNewLine)
Klik 2 kali pada Button bersihkan dan masukan
script berikut :
txtbayar.Clear()
txtkembalian.Clear()
txtuang.Clear()
Coba aplikasi dengan klik tombol play pada menu atau
tekan F5.
Kita mengimput data dengan clik ComboBox ayam,
bebek, nasi, teh dan jeruk, seperti di bawah
Maka total bayar adalah 20.000 , kemudian kita
ketikan jumlah uang yang akan dibayar misal 25.000, kemudian klik tombol
kembalian maka akan muncul tampilan sebagai berikut :
Tidak ada komentar:
Posting Komentar