Langkah-langkah Membuat Pesanan Restaurant di Visual Basic :
1.
Cara membuat Pembuka / form 1 :
1.
Buat 2 Label seperti pada gambar, dengan
keterangan :
Object
|
Property
|
Nilai
|
Label 1
|
Caption
|
Nama Restaurant
|
Label 2
|
Caption
|
Masukkan Nama
|
2.
Buat kolom text, kemudian buat 1 label lagi dan kosongkan
captionnya.
3.
Kemudian buat frame dan isi frame dengan
checkbox dan optionbutton.
Dengan keterangan :
Object
|
Property
|
Nilai
|
Optionbutton 1
|
Caption
|
Merah
|
Optionbutton 2
|
Caption
|
Biru
|
Optionbutton 3
|
Caption
|
Hijau
|
Checkbox 1
|
Caption
|
Tebal
|
Checkbox 2
|
Caption
|
Garis bawah
|
Checkbox 3
|
Caption
|
Miring
|
4.
Buat Command Button dan ubah caption nya, seperti pada gambar.
5.
kemudian masukkan rumus ini :
-
Pada Command 1 (Ok) :
Private Sub Command1_Click()
Label3.Caption = Text1.Text
End Sub
-
Pada Command 2 (Lanjut) :
Private Sub Command2_Click()
form2.Show
End Sub
-
Pada Command 3 (Keluar) :
Private Sub Command3_Click()
End
End Sub
-
Pada Optionbutton 1 (Merah) :
Private Sub Option1_Click()
Label3.ForeColor = vbRed
End Sub
-
Pada Optionbutton 2 (Biru) :
Private Sub Option2_Click()
Label3.ForeColor = vbBlue
End Sub
-
Pada Optionbutton 3 (Hijau) :
Private Sub Option3_Click()
Label3.ForeColor = vbGreen
End Sub
-
Pada Checkbox 1 (Tebal) :
Private Sub Check1_Click()
Label3.FontBold = Check1.Value
End Sub
-
Pada Checkbox 2 (Garis Bawah) :
Private Sub Check2_Click()
Label3.FontUnderline = Check2.Value
End Sub
-
Pada Checkbox 3 (Miring) :
Private Sub Check3_Click()
Label3.FontItalic = Check3.Value
End Sub
6.
Lalu tambahkan form, caranya :
-
Klik kanan pada kolom Project-Project 1,
-
Kemudian pilih Add, Form.
-
Pada pilihan selanjutnya, pilih form.
7.
Pada form 2, kita buat 5 label, 2 TextBox, 2 ListBox, 8 Command Button.
Hasilnya seperti pada gambar :
8.
Kemudian kita masukkan rumusnya :
-
Pada Command Button 1 (Selesai) :
Private Sub Command1_Click()
List1.AddItem Text1.Text
Text1.Text = ""
End Sub
-
Pada Command Button 2 (Hapus) :
Private Sub Command2_Click()
List1.RemoveItem (list1index)
Text1.SetFocus
End Sub
-
Pada Command Button 3 (Hapus Semua) :
Private Sub Command3_Click()
Text1.Text = Clear
Text1.SetFocus
List1.Clear
End Sub
-
Pada Command Button 4 (Selesai) :
Private Sub Command4_Click()
List2.AddItem Text2.Text
Text2.Text = ""
End Sub
-
Pad Command Button 5 (Hapus) :
Private Sub Command5_Click()
List2.RemoveItem (list2index)
Text2.SetFocus
End Sub
-
Pada Command Button 6 (Hapus Semua) :
Private Sub Command6_Click()
Text2.Text = Clear
Text2.SetFocus
List2.Clear
End Sub
-
Pada Command Button 7 (Kembali) :
Private Sub Command7_Click()
Form1.Show
End Sub
-
Pada Command Button 8 (Pesan) :
Private Sub Command8_Click()
form3.Show
End Sub
9.
Kemudian buat form 3, caranya sama seperti
membuat form 2.
10.
Pada Form 3, kita buat 1 label dan 1 Command
Button.
Pada Command Button 1 (Keluar), masukkan :
Private Sub Command1_Click()
End
End Sub
0 komentar:
Posting Komentar