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,-
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.
0 Response to "Aplikasi Menu Makanan dengan Visual Basic 2008"
Post a Comment