Aplikasi Menu Makanan dengan Visual Basic 2008 - Pada tutorial ini saya akan membuat aplikasi menu makanan sederhana dengan beberapa menu makanan yang tersedia. Adapun ketentuan dalam aplikasi ini adalah sebagai berikut :
Ketentuan :
Harga 1
porsi Bebek Presto Cabe Hijau (BPCH) adalah Rp. 30.000,-
Harga 1
porsi Ayam Guling Pedas (AGP) adalah Rp. 25.000,-
Harga 1
porsi Bakso Basoka (BB) adalah Rp. 17.000,-
Harga 1
porsi Bakso Ayam Sedap Pedas (BASP) Rp. 19.000,-
Total Bayar
= Total Harga BPCH + Total Harga AGP +
Total Harga BB + Total Harga BASP + Total Harga ABT
1. Buatlah project baru Windows
Form Application
2. Masukkan kontrol – kontrol berikut :
No
|
Object
|
Property
|
Nilai
|
1
|
Form1
|
Text
|
Menu Makanan
|
2
|
Label1
|
Text
Font
-
Name
-
Size
-
Bold
|
Resto Wong
Garang
Mistral
15,75
True
|
3
|
GroupBox1
|
Text
|
Menu Makanan
|
4
|
CheckBox1
|
Name
Text
|
CboxBPCH
Bebek Presto
Cabe Hijau
|
5
|
CheckBox2
|
Name
Text
|
CboxAGP
Ayam Guling
Pedas
|
6
|
CheckBox3
|
Name
Text
|
CboxBB
Bakso Basoka
|
7
|
CheckBox4
|
Name
Text
|
CboxBASP
Bakso Ayam
Sedap Pedas
|
8
|
CheckBox5
|
Name
Text
|
CboxABT
Ayam Bakar
Taliwang
|
9
|
Label2
|
Text
|
Rp. 30.000,-
|
10
|
Label3
|
Text
|
Rp. 25.000,-
|
11
|
Label4
|
Text
|
Rp. 17.000,-
|
12
|
Label5
|
Text
|
Rp. 19.000,-
|
13
|
Label6
|
Text
|
Rp. 35.000,-
|
14
|
TextBox1
|
Name
Text
|
TxtJlhBPCH
0
|
15
|
TextBox2
|
Name
Text
|
TxtJlhAGP
0
|
16
|
TextBox3
|
Name
Text
|
TxtJlhBB
0
|
17
|
TextBox4
|
Name
Text
|
TxtJlhBASP
0
|
18
|
TextBox5
|
Name
Text
|
TxtJlhABT
0
|
19
|
GroupBox2
|
Text
|
Proses
|
20
|
Button1
|
Name
Text
|
BtnHitung
Hitung
|
21
|
Button2
|
Name
Text
|
BtnReset
Reset
|
22
|
Button3
|
Name
Text
|
BtnKeluar
Keluar
|
23
|
Label7
|
Text
|
Total Bayar
: Rp.
|
24
|
Label8
|
Name
AutoSize
BorderStyle
Text
|
LblTBayar
False
Fixed3D
-
|
3. Desain project seperti gambar berikut :
4. Masukkan kode program berikut pada
tombol Proses dengan Event Click
Private Sub Button3_Click(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles BtnHitung.Click
Dim HrgBPCH As Integer = 30000
Dim HrgAGP As Integer = 25000
Dim HrgBB As Integer = 17000
Dim HrgBASP As Integer = 19000
Dim HrgABT As Integer = 35000
Dim JlhBPCH = TxtJlhBPCH.Text
Dim JlhAGP = TxtJlhAGP.Text
Dim JlhBB = TxtJlhBB.Text
Dim JlhBASP = TxtJlhBASP.Text
Dim JlhABT = TxtJlhABT.Text
Dim THargaBPCH As Integer
Dim THargaAGP As Integer
Dim THargaBB As Integer
Dim THargaBASP As Integer
Dim THargaABT As Integer
Dim TBayar As Integer
If CboxBPCH.Checked Then
THargaBPCH
= HrgBPCH * JlhBPCH
Else
THargaBPCH = 0
End If
If CboxAGP.Checked Then
THargaAGP =
HrgAGP * JlhAGP
Else
THargaAGP =
0
End If
If CboxBB.Checked Then
THargaBB =
HrgBB * JlhBB
Else
THargaBB =
0
End If
If CboxBASP.Checked Then
THargaBASP
= HrgBASP * JlhBASP
Else
THargaBASP
= 0
End If
If CboxABT.Checked Then
THargaABT =
HrgABT * JlhABT
Else
THargaABT =
0
End If
TBayar =
THargaBPCH + THargaAGP + THargaBB + THargaBASP + THargaABT
LblTBayar.Text
= TBayar
End Sub
5. Masukkan kode program berikut pada tombol Reset dengan Event Click :
Private Sub BtnReset_Click(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles BtnReset.Click
TxtJlhBPCH.Text
= 0
TxtJlhAGP.Text
= 0
TxtJlhBB.Text =
0
TxtJlhBASP.Text
= 0
TxtJlhABT.Text
= 0
LblTBayar.Text
= 0
End Sub
6. Masukkan kode program berikut pada tombol Keluar dengan Event Click :
Private Sub BtnKeluar_Click(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles BtnKeluar.Click
Dim pesan As String
pesan = MsgBox("Anda yakin akan keluar?", MsgBoxStyle.Question
+ MsgBoxStyle.OkCancel, "Peringatan")
If pesan = MsgBoxResult.Ok Then
End
End If
End Sub
EmoticonEmoticon