Pages

February 19, 2013

Aplikasi Restoran Jawa dengan VB 6.0

Penggunaan ListBox, Combobox, frame, dan command button pd IDE VB 6.0



Buatlah Design nya dan copykan Code berikut ini :

Private Sub cmdclose_Click()
End
End Sub

Private Sub cmdhapus_Click()
List1.RemoveItem List1.ListIndex
End Sub

Private Sub cmdpilih_Click()
List1.AddItem cmbsayur.Text
End Sub
Private Sub cmdpilih2_Click()
List1.AddItem cmblauk.Text
End Sub
Private Sub cmdpilih3_Click()
List1.AddItem cmbminum.Text
End Sub
Private Sub Form_Load()
cmbsayur.AddItem "Sayur Asem"
cmbsayur.AddItem "Sayur Sop"
cmbsayur.AddItem "Sayur Lodeh"
cmbsayur.AddItem "Garang Asem"
cmbsayur.AddItem "Pecel"
cmbsayur.AddItem "Megono"
cmbsayur.AddItem "Sop Buntut"
cmbsayur.AddItem "Sayur Bayam"

cmblauk.AddItem "Tempe"
cmblauk.AddItem "Tahu"
cmblauk.AddItem "Ayam Goreng"
cmblauk.AddItem "Telur"
cmblauk.AddItem "Lele Goreng"
cmblauk.AddItem "Bebek Goreng"
cmblauk.AddItem "Ikan Bakar"

cmbminum.AddItem "Teh Manis"
cmbminum.AddItem "Es Teh"
cmbminum.AddItem "Jeruk Hangat"
cmbminum.AddItem "Es Jeruk"
cmbminum.AddItem "Jus Alpukat"
cmbminum.AddItem "Jus Jambu"
cmbminum.AddItem "Jus Durian"
cmbminum.AddItem "Jus Melon"
End Sub
 

Comments
0 Comments

0 komentar:

Post a Comment