Aplikasi Menu Makanan dengan Visual Basic 2008


Baca Juga

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,-
Harga 1 porsi Ayam Bakar Taliwang (ABT) Rp. 35.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 AsSystem.Object, ByVal e AsSystem.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 AsSystem.Object, ByVal e AsSystem.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 AsSystem.Object, ByVal e AsSystem.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
7. Jalankan program dengan menekan tombol F5 pada keyboard, kemudian cobalah untuk memesan makanan dari aplikasi tersebut.


Subscribe to receive free email updates:

0 Response to "Aplikasi Menu Makanan dengan Visual Basic 2008"

Post a Comment