Kali ini saya akan membuat sebuah program visual tentang form order makanan, langsung saja pada langkah-langkahnya yaitu sebagai berikut:
a.
Buatlah Form baru dengan nama Order.
b.
Buatlah sebuah Program Order Makanan yang bisa
melakukan operasi hitungan harga dari suatu menu makanan dan minuman yang
diinputkan oleh user.
c.
Hasil Program Order Makanan ini kurang lebih
sebagai berikut:
a.
Properties Name adalah:
cboMkn, cboMnm, CheckBox1, label2,
label4, txtBPmakan, txtBPminum, btnHitung, lbl7Jumlah.
b.
Kode Program
Public Class FrmOrdermakanan
Public hrgmakanan As Integer
Public hrgminuman As Integer
Private Sub
cboMkn_SelectedIndexChanged(sender As Object, e As EventArgs) Handles
cboMkn.SelectedIndexChanged
Select Case cboMkn.Text
Case "Nasi
Uduk"
hrgmakanan = 3500
label2.Text = "Rp.3500"
Case "Bakso"
hrgmakanan = 6000
label2.Text = "Rp.6000"
Case "Mie Ayam"
hrgmakanan = 7000
label2.Text = "Rp.7000"
End Select
End Sub
Private Sub
cboMnm_SelectedIndexChanged(sender As Object, e As EventArgs) Handles
cboMnm.SelectedIndexChanged
Select Case cboMnm.Text
Case "Es
Jeruk"
hrgminuman = 3000
label4.Text = "Rp.3000"
Case "Es Teh"
hrgminuman = 2000
label4.Text = "Rp.2000"
Case "Teh
Hangat"
hrgminuman = 1500
label4.Text = "Rp.1500"
End Select
End Sub
Public Sub New()
' This call is
required by the designer.
InitializeComponent()
cboMnm.Visible = False
label3.Visible = False
' Add any
initialization after the InitializeComponent() call.
End Sub
Private Sub
CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles
CheckBox1.CheckedChanged
If CheckBox1.Enabled =
False Then
cboMnm.Visible = False
cboMkn.Visible = False
End If
If CheckBox1.Enabled =
True Then
cboMnm.Visible = True
cboMkn.Visible = True
label3.Visible = True
End If
End Sub
Private Sub
btnHitung_Click(sender As Object, e As EventArgs) Handles btnHitung.Click
Dim porsimkn As Integer
Dim porsimnm As Integer
Dim jumlah As String
porsimkn =
txtBPMakan.Text
porsimnm =
txtBPMinum.Text
jumlah =
(porsimkn * hrgmakanan) + (porsimnm * hrgminuman)
lbl7Jumlah.Text = "Rp." & jumlah.ToString
End Sub
End Class
c.
Jalankan program dengan menekan tombol F5 atau
klik ikon Start pada toolbar.
d.
Hasil tampilan dari program.
itulah tadi hasil dari program, semoga bermanfaat ya:)
Tidak ada komentar:
Posting Komentar