Jumat, 28 Oktober 2016

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






4 komentar:

Rachmat Ramadhani Prasetya mengatakan...

Saya buat kok bisa jalan iya mbak.
Gimana solusinya.

Rachmat Ramadhani Prasetya mengatakan...

Saya buat kok Gak bisa jalan iya mbak.
Gimana solusinya.

Unknown mengatakan...

Alhamdulillah bisa makasih kk😊🙏

Tania Gabbyyy mengatakan...

Mantul Bisa Kak Makasih 🙇