MEMBUAT MENU MAKANAN SEDERHANA DENGAN VISUAL BASIC 6.0

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 :)