Program Pbego CaFe city

Program Pbego CaFe city

Ketentuan Soal

Pilih Menu	Pilih Paket	List Menu	Harga
Sarapan Pagi	Paket 1	Nasi Uduk Telur Tempe Orek	5000
	Paket 2	Nasi Goreng Telur Ceplok Tempe Goreng	7000
Makan Siang	Paket 1	Nasi Putih Lalapan Ayam Bakar	8000
	Paket 2	Nasi Putih Rendang Sambal Sayur	10000

Minuman	Harga
Es teh manis	2000
Air Mineral	1000

Fasilitas	harga
Delivery	5000
Makan Ditempat	0

Total harga = jumlah beli * (harga + harga minuman + harga fasilitas)

Uangkembali = Uang bayar – Total Harga

 

Listing Kode Program.a sebagai berikut :      

‘masukan pada check air mineral

Private Sub chkair_Click()

If chkteh = 1 And chkair = 1 Then

txthm.Text = 3000

ElseIf chkteh = 1 And chkair = 0 Then

txthm.Text = 2000

ElseIf chkteh = 0 And chkair = 1 Then

txthm.Text = 1000

Else

txthm.Text = 0

End If

End Sub

‘masukan pada check es teh manis

Private Sub chkteh_Click()

If chkteh = 1 And chkair = 1 Then

txthm.Text = 3000

ElseIf chkteh = 1 And chkair = 0 Then

txthm.Text = 2000

ElseIf chkteh = 0 And chkair = 1 Then

txthm.Text = 1000

Else

txthm.Text = 0

End If

End Sub

‘masukan pada combo box pilihan paket

Private Sub cmbpaket_Click()

If cmbmenu.Text = "Sarapan Pagi" Then

If cmbpaket.Text = "Paket1" Then

lstmenu.AddItem ("Nasi Uduk")

lstmenu.AddItem ("Telur")

lstmenu.AddItem ("Tempe Orek")

txth.Text = 5000

Else

lstmenu.AddItem ("Nasi Goreng")

lstmenu.AddItem ("Telur Ceplok")

lstmenu.AddItem ("Tempe Goreng")

txth.Text = 7000

End If

Else

If cmbpaket.Text = "Paket1" Then

lstmenu.AddItem ("Nasi Putih")

lstmenu.AddItem ("Lalapan")

lstmenu.AddItem ("Ayam Bakar")

txth.Text = 8000

Else

lstmenu.AddItem ("Nasi Putih")

lstmenu.AddItem ("Rendang")

lstmenu.AddItem ("Sayur")

txth.Text = 10000

End If

End If

End Sub

‘double click form masukan kode berikut

Private Sub Form_Load()

cmbmenu.AddItem ("Sarapan Pagi")

cmbmenu.AddItem ("Makan Siang")

cmbpaket.AddItem ("Paket1")

cmbpaket.AddItem ("Paket2")

End Sub

‘masukan pada option delivery

Private Sub rdod_Click()

txthm.Text = 5000

End Sub

‘masukan pada option makan ditempat

Private Sub rdom_Click()

txthf.Text = 0

End Sub

‘masukan pada timer 1

Private Sub Timer1_Timer()

Label12.Caption = Format(Date, "dddd,d mm yyyy") & " " & Format(Time)

End Sub

‘masukan pada textbox jumlah beli

Private Sub txtjb_Change()

txtth.Text = Val(txtjb.Text) * (Val(txth.Text) + Val(txthm.Text) + Val(txthf.Text))

End Sub

‘masukan pada text box uang bayar

Private Sub txtub_Change()

txtuk.Text = Val(txtub.Text) - Val(txtth.Text)

End Sub