20.36.00
 |
Buka Program visual Basic. Lalu pilih Standard EXE kemudian Open
|
 |
| Kemudian muncul Form baru. Setelah itu buat design seperti gambar di bawah ini. |
 |
Caranya:
Buatlah Tulisan (yang ditandai lingkaran merah oleh saya) menggunakan Tool Label (Tool Labelnya juga yang saya beri lingkaran merah). Begitu juga membuat Combobox (lingkaran hijau) dengan Tool Combobox (Tool yang dilingkari tanda hijau). Dan kemudian buatlah textbox (lingkaran biru) dengan Tool Textbox (Toolnya ditandai lingkaran biru).
|
 |
Ganti nama Combobox pada name (di properties) menjadi cbmenu.
|
 |
Ganti nama Textbox (untuk nama makanan) pada name (di properties) menjadi txtmakanan. Begitu pula Textbox untuk nama minuman dan Total, ubah nama pada name di properties menjadi txtminum dan txttotal.
|
Kosongkan Textbox (untuk nama makanan) pada Text (di properties). Begitu pula Textbox untuk nama minuman dan Total juga dikosongkan.
 |
Klik pada yang dilingkari merah untuk menampilkan jendela coding. Dan tuliskan codingnya sama seperti diatas. |
Private Sub cbmenu_Click()
If cbmenu.Text = "MENU001" Then
txtmakan.Text = "Soto Ayam"
txtminum.Text = "ES Jeruk"
txttotal.Text = "Rp 20.000"
ElseIf cbmenu.Text = "MENU002" Then
txtmakan.Text = "Sate Ayam"
txtminum.Text = "ES Teh Manis"
txttotal.Text = "Rp 25.000"
ElseIf cbmenu.Text = "MENU003" Then
txtmakan.Text = "Nasi Goreng"
txtminum.Text = "Teh Botol"
txttotal.Text = "Rp 15.000"
End If
End Sub
Private Sub Form_Activate()
cbmenu.SetFocus
End Sub
Private Sub Form_Load()
cbmenu.AddItem ("MENU001")
cbmenu.AddItem ("MENU002")
cbmenu.AddItem ("MENU003")
End Sub
 |
| Setelah selesai penulisan coding, running program dengan mengklik tombol play (yang dilingkari merah) |
 |
| Tampilan Runningan Coding. Combobox muncul nama pilihan menu. |
 |
| Hasil Akhir.
Sekian..
Semoga bermanfaat :)
|
