APLIKASI Rumah Makan VB

Aplikasi yang di buat oleh mahasiswa STMIK

Adi yulianto

RM. KOMAR BERSAUDARA

Private Sub cmbMakanan_Click()

If cmbMakanan.Text = "Sate Ayam" Then txtHargaMakan.Text = 10000

If cmbMakanan.Text = "Sate Kambing" Then txtHargaMakan.Text = 15000

End Sub

Private Sub cmbMinuman_Click()

If cmbMinuman.Text = "Es Jeruk" Then txtHargaMinum.Text = 3000

If cmbMinuman.Text = "Tea Botol Sosro" Then txtHargaMinum.Text = 2500

End Sub

Private Sub cmdBersih_Click()

Form_Load

End Sub

Private Sub cmdHitung_Click()

'If txtJumlahMakan.Text = "" Or txtJumlahMinum.Text = "" Then MsgBox "Makan/Minum berapa lu..?": Exit Sub

txtTotalMakan.Text = Val(txtHargaMakan.Text) * Val(txtJumlahMakan.Text)

txtTotalMinum.Text = Val(txtHargaMinum.Text) * Val(txtJumlahMinum.Text)

txtBayar.Text = Val(txtTotalMakan.Text) + Val(txtTotalMinum.Text)

End Sub

Private Sub Command1_Click()

End

End Sub

Private Sub Form_Load()

cmbMakanan.Clear

cmbMakanan.AddItem "Sate Ayam"

cmbMakanan.AddItem "Sate Kambing"

cmbMinuman.Clear

cmbMinuman.AddItem "Es Jeruk"

cmbMinuman.AddItem "Tea Botol Sosro"

txtHargaMakan.Text = ""

txtHargaMinum.Text = ""

txtJumlahMakan.Text = ""

txtJumlahMinum.Text = ""

txtTotalMakan.Text = ""

txtTotalMinum.Text = ""

txtBayar.Text = ""

End Sub

contoh form :

 

perancang