4.18.2008

PROGRAM SEDERHANA WITH VB 6.0



Anda ingin mencoba program sederhana dengan Visual Basic 6.0 untuk menu makanan diwarteg coba aja lihat contohnya disini. Program komputerisasi bukan hanya direstoran bintang 7 aja kamu juga bisa buat di warteg langganan kamu :O :O
***** SELAMAT MENCOBA *****

1. Desain sebuah form dengan menggunakan Frame, Label, Text box, Command button, dan Option Button. Ubahlah nilai properti dari setiap control / komponen.. Desain seperti gambar 1.1

Komponen Properti
7 Label Caption DAFTAR MENU RUMAH MAKAN 99,
Jl. Golf no. 21 Ciriung Cibinong,
HARGA MAKANAN, HARGA MINUMAN,
BAYAR, TOTAL, KEMBALI
5 Text Box Name Text1, text2, text3, text4, text5
Text Dikosongkan
11 Option Button Name Option1, Option2, Option3,
Option4, Option5, Option6, Option7,
Option8, Option9, Option10, Option11
Caption Nasi Uduk, Nasi Goreng, Ayam Bakar,
Tempe/Tahu Goreng, Ikan Bakar,
Sate Ayam, Sate Kambing, Sop Buntut,
Soft Drink, Air Mineral, Aneka Jus
2 Frame Name Frame1, Frame2
Caption DAFTAR MENU MAKANAN RM. 99,
DAFTAR MINUMAN RM. 99
3 Command Button Name Command1, Command2
Caption HITUNG, DATA BARU, KELUAR

2. Masukkan Listing program dibawah ini

Dim makan As Currency
Dim minum As Currency
Dim total As Currency
Dim bayar As Currency
Dim kembali As Currency
Private Sub Command1_Click()
If Text3.Text = "" Then
MsgBox "input bayar belum diisi", vbOKOnly + vbInformation, "isi data"
Else
makan = Text1.Text
minum = Text2.Text
bayar = Text3.Text
total = makan + minum
Text4.Text = total
kembali = bayar - total
Text5.Text = kembali
End If
End Sub
Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Option1.Value = False
Option2.Value = False
Option3.Value = False
Option4.Value = False
Option5.Value = False
Option6.Value = False
Option7.Value = False
Option8.Value = False
Option9.Value = False
Option10.Value = False
Option11.Value = False
Command2.SetFocus
End Sub
Private Sub Command3_Click()
Unload Me
End Sub
Private Sub Option1_Click()
If Option1.Value = True Then
Text1.Text = 5000
End If
End Sub
Private Sub Option10_Click()
If Option10.Value = True Then
Text2.Text = 2000
End If
End Sub
Private Sub Option11_Click()
If Option11.Value = True Then
Text2.Text = 5000
End If
End Sub
Private Sub Option2_Click()
If Option2.Value = True Then
Text1.Text = 8000
End If
End Sub
Private Sub Option3_Click()
If Option3.Value = True Then
Text1.Text = 9000
End If
End Sub
Private Sub Option4_Click()
If Option4.Value = True Then
Text1.Text = 1500
End If
End Sub
Private Sub Option5_Click()
If Option5.Value = True Then
Text1.Text = 20000
End If
End Sub
Private Sub Option6_Click()
If Option6.Value = True Then
Text1.Text = 12000
End If
End Sub
Private Sub Option7_Click()
If Option7.Value = True Then
Text1.Text = 12000
End If
End Sub
Private Sub Option8_Click()
If Option8.Value = True Then
Text1.Text = 8000
End If
End Sub
Private Sub Option9_Click()
If Option9.Value = True Then
Text2.Text = 3000
End If
End Sub

3. Eksekusi atau compile program dengan menekan tombol F5 dikeyboard atau dengan mengklik icon start pada menu bar

4. Ini yang paling kita tunggu - tunggu yaitu selesai

5 komentar:

Jiguja mengatakan...
Komentar ini telah dihapus oleh pengarang.
Jiguja mengatakan...

Tq bngt ya bangg... Sangat membantu pembelajaran VB :D

yulyo yuda mengatakan...

sangat membantu
program yang baru ditunggu min

nuur pamungkas mengatakan...

terimakasih sangat membantu

DIMAS SUKETI mengatakan...

sangat membantu bosss