Cara Membuat Program Pemesanan Makan melalui VB6.0
CARA MEMBUAT PROGRAM PEMESANAN MAKANAN DENGAN VB
Moshi-moshi sobat jhens world kali ini saya akan menjelskan bagaimana caranya untuk membuat program
Moshi-moshi sobat jhens world kali ini saya akan menjelskan bagaimana caranya untuk membuat program
yang berfungsi untuk memesan menu makanan secara Online
atau saya sebut dengan “Café
Harajuku”.mungkin seringkali kita melihat pemesanan makanan via telpon ataupun secara langsung.di
program kali ini saya membuat login untuk member tetap atau bisa disebut
pelanggan “Café Harajuku” agar bisa masuk dan memesan secara online.karena itu
saya membuat program ini pada Microsoft visual basic dengan menggunakan Teknik
Percabangan “Select ….Case” untuk menseleksi beberapa statement saat kondisi
berlangsung atau sedang diproses misal saat kita memilih menu 2 maka otomatis
statement 1 akan terlewati dan mengeksekusi statement 2 sehingga kondisi
terpenuhi
Maka dari itu saya membuat beberapa menu sebagai pilihannya
untuk itulah diperlukan Teknik percabangan untuk menseleksi menu-menu
tersebut.pertama hal yang dilakukan ialah menyusun desain pada form 1 yang
berfungsi untuk login saat ingin menggunakan aplikasi seperti pada Gambar2 lalu masukan komponen-komponen
berikut dengan mendrag komponen tersebut ke dalam form yang telah kita buat
,berikut komponen-komponenya:
Text1(user)
Command3(keluar)
Text2(pass) Label1(judul)
Command1(ok)
Command2(hapus)
Lalu setelah itu dimulai dari tombol login yang berfungsi
untuk masuk atau mengaktifkan login saat kita selesai mengisikan nama dan
password dengan cara mendouble klik pada Command1(login)
lalu masukan koding berikut:
Private Sub ok_Click()
If user.Text =
"Jhens" And pass.Text = "999" Then
MsgBox "Hai" +
" " + user.Text, 3, "Welcome to my kafe"
Unload Me
Form2.Show
Else:
MsgBox "Wrong
Input", 3, "try again"
End
End If
End Sub
Disini fungsi “IF” sendiri adalah untuk mengaktifkan tombol
login saat diklik sehingga memunculkan Message dengan cara menambahkan
MessageBox pada statement .namun kita harus menutup password tersebut agar saat diketik menjadi tidak
terlihat atau menjadi tanda * dengan cara klik komponen Text2(password)lalu klik password char pada properties dan ubah
teks kosong menjadi * dengan mengklik dan ketik * seperti gambar berikut.
setelah itu beralih ke tombol hapus yang berfungsi untuk
menghapus riwayat pada saat user salah memasukan password atau user name maupun
lainnya dengan cara menambahkan
Koding pada tombol Command3(hapus) double klik lalu masukan koding
berikut:
Private Sub hapus_Click()
nama.Text = ""
password.Text =
""
End Sub
Setelah itu beralih ke tombol
keluar dengan cara mendouble klik komponen Command2(keluar)
Lalu masukan koding berikut dengan
mendouble klik
Private Sub keluar_Click()
End
End Sub
Namun di program login kali ini saya tidak melakukan
perubahan pada tulisan di label dengan mengklik namun menggunakan koding agar
lebih bagus lagi cara nya dengan mengetikan koding berikut di dalam form1 :
Private Sub Form_Load()
judul.Caption =
"LOGIN HARAJUKU CAFE"
Label2.Caption =
"USERNAME"
Label3.Caption =
"PASSWORD"
judul.Font.Size = 14
judul.Font =
"Castelar"
Label2.Font.Size = 12
Label2.Font = "Times
New Roman"
Label3.Font.Size = 12
Label3.Font = "Times
New Roman"
ok.Font.Size = 12
ok.Font = "Comic Sans
Ms"
keluar.Font.Size = 12
keluar.Font = "Comic
Sans Ms"
hapus.Font.Size = 12
hapus.Font = "Comic
Sans Ms"
End Sub
Setelah itu beralih ke aplikasi utama yang menggunakan
teknik percabangan Select…case fungsi teknik ini sendiri ialah untuk menyeleksi
menu saat dipilih jika memilih 2 maka statement menyeleksi statment1.maka dari itu
hal pertama yang dilakukan ialah buat desain seperti Gambar3 lalu masukan
komponen-komponen berikut dengan cara mendragnya kedalam form2
Text1(makanan) Command1(masuk)
Text2(minuman) Command2(hapus)
Text3(hasil) Command3(keluar)
Lalu double klik pada Command1(masuk)
yang berfungsi untuk memproses Text1(makanan)
dan Text2(minuman) saat di input dan masukan koding berikut ini
Dim
food As String
Dim
drink As Integer
Dim
a As Integer
Dim
b As Integer
Dim
total As Integer
Dim
totalharga As String
Private
Sub masuk_Click()
Dim
a As Integer
Dim
b As Integer
Dim
food, drink As String
Dim
total, totalharga As String
Select
Case makanan.Text
Case
Is = 1
food
= Label4.Caption
a =
15000
Case
Is = 2
food
= Label5.Caption
a =
10000
End
Select
Select
Case minuman.Text
Case
Is = 1
drink
= Label6.Caption
b =
7000
Case
Is = 2
drink
= Label7.Caption
b =
5000
End
Select
totalharga
= a + b
hasil.Text
= food + " dan " + drink + " Total harganya adalah " +
totalharga
End
Sub
Fungsi DIM sendiri adalah untuk mendeklarasikan variable
misal kita ingin mengalikan a dengan b yang merupakan variabel yang bisa
dihitung maka kita harus mendeklarasikan variable itu dengan ”Dim a as integer” dan fungsi percabangan Select…Case
sendiri ialah agar saat kita menginput pilihan menu 1 otomatis select case akan
mengeksekusi statement 1 yaitu
food = Label4.Caption
a =
15000
bila tidak maka statement yang lain akan terus diseleksi
hingga kondisi terpenuhi.
Begitu juga seterusnya pada kotak text minuman setelah
selesai dengan tombol choice maka kita beralih ke tombol hapus yang berfungsi
untuk menghapus riwayat saat kita selesai menginput yaitu dengan cara mendouble
klik pada Command2(hapus) dan masukan koding berikut
ini :
Private
Sub hapus_Click()
makanan.Text
= " "
minuman.Text
= " "
hasil.Text
= " "
End
Sub
Lalu setelah selesai otomatis pelanggan akan kembali ke awal
login bukan untuk itu kita harus memberi perintah pada tombol back agar saat di
klik tombol tersebut memindahkan aplikasi café harajuku ke menu login kembali
maka masukan koding berikut ini dengan cara mendouble klik pada Command3(keluar)
Private
Sub keluar_Click()
Form1.Show
Form2.Hide
End
Sub
Lalu jalankan program tersebut dengan mengklik start atau F5
lalu hasil dan output nya adalah seperti berikut
