Jonggan
Private Sub bersih()
nama.Text = Clear
no.Text = Clear
jenis.Text = Clear
jenis.Text = "Pilih Paket"
ayamgoreng.Value = False
ikanbakar.Value = False
sotoayam.Value = False
sotobabat.Value = False
eskelapa.Value = False
jusjeruk.Value = False
estehmanis.Value = False
jusalpukat.Value = False
makanan.Text = Clear
minuman.Text = Clear
hargamakanan.Text = Clear
hargaminuman.Text = Clear
total.Text = Clear
End Sub
Private Sub Check1_Click()
End Sub
Private Sub ayamgoreng_Click()
makanan.Text = "Ayam Goreng"
hargamakanan.Text = 10000
End Sub
Private Sub cmdbersih_Click()
Call bersih
nama.SetFocus
End Sub
Private Sub cmdhitung_Click()
Dim a, b, c As Integer
a = Val(hargamakanan.Text)
b = Val(hargaminuman.Text)
total.Text = Val(a + b)
End Sub
Private Sub cmdkeluar_Click()
Dim keluar As String
keluar = MsgBox("...:::Keluar Dari Aplikasi:::...", vbOKCancel + 32, "Info")
If keluar = vbOK Then
End
End If
End Sub
Private Sub eskelapa_Click()
minuman.Text = "Es Kelapa"
hargaminuman.Text = 8000
End Sub
Private Sub estehmani_Click()
minuman.Text = "Es Teh Manis"
hargaminuman.Text = 5000
End Sub
Private Sub estehmanis_Click()
minuman.Text = "Es Teh Manis"
hargaminuman.Text = 5000
End Sub
Private Sub Form_Activate()
nama.SetFocus
End Sub
Private Sub Form_Load()
Call bersih
jenis.Text = "Pilih Paket"
jenis.AddItem "Paket 1"
jenis.AddItem "paket 2"
jenis.AddItem "Paket 3"
End Sub
Private Sub ikanbakar_Click()
makanan.Text = "Ikan Bakar"
hargamakanan.Text = 15000
End Sub
Private Sub jusalpukat_Click()
minuman.Text = "Jus Alpukat"
hargaminuman.Text = 10000
End Sub
Private Sub jusjeruk_Click()
minuman.Text = "Jus Jeruk"
hargaminuman.Text = 9000
End Sub
Private Sub sotoayam_Click()
makanan.Text = "Soto Ayam"
hargamakanan.Text = 12000
End Sub
Private Sub sotobabat_Click()
makanan.Text = "Soto Babat"
hargamakanan.Text = 13000
End Sub
Posted in: Visual Basic
