Fungsi IF

Ketentuan Soal :

1. Setiap perpindahan antara textbox dengan menggunakan Enter
2. Input No. Pesanan, No. Meja, Kode Menu, Jenis Menu, Harga Permenu dan terakhir Banyak Pesana.
3. Setelah Banyak pesanan di Input  dan di Enter maka Bayar, Diskon, Pajak, Total Bayar muncul secara otomatis dan tidak bisa di ubah.
4. Bayar = Harga Permenu * Banyak Pesanan
5. Diskon didapat Jika Pembelian >= 3 maka akan dapat diskon sebesar 5 % dari Harga Permenu, Jika kurang maka tidak dapat Diskon
6. Pajak = 10% dari Harga Bayar
7. Total Bayar = ( Harga + Pajak ) -  Diskon 
8. Pada saat Klik bersih Form Kosong. 

Listing Program :


Listing Programnya :

Private Sub cmdBersih_Click()
Me.txtbayar = ""
Me.txtbykpesanan = ""
Me.txtdiskon = ""
Me.txthargapermenu = ""
Me.txtjenismenu = ""
Me.txtkodemenu = ""
Me.txtnomeja = ""
Me.txtnopesana = ""
Me.txtpajak = ""
Me.txttobar.Text = ""
Me.txtnopesana.SetFocus
End Sub

Private Sub cmdkeluar_Click()
Unload Me
End Sub

Private Sub txtbykpesanan_KeyPress(KeyAscii As Integer)
'Perintah Enter
If KeyAscii = 13 Then
'Mencari Bayar
Me.txtbayar.Text = Val(Me.txthargapermenu.Text) * Val(Me.txtbykpesanan.Text)

'Mencari Diskon
If Me.txtbykpesanan.Text >= 3 Then
'Jika ada Diskon
Me.txtdiskon.Text = 0.05 * Val(Me.txthargapermenu.Text)
Else
'Jika Tidak ada Diskon
Me.txtdiskon = 0
End If

'Mencari pajak
Me.txtpajak.Text = 0.1 * (Me.txtbayar.Text)
'Mencari Total Bayar
Me.txttobar.Text = Val(Me.txtbayar.Text) + Val(Me.txtdiskon.Text) + Val(Me.txtpajak.Text)
"menonaktifkan Textbox
Me.txtbayar.Enabled = False
Me.txtdiskon.Enabled = False
Me.txtpajak.Enabled = False
Me.txttobar.Enabled = False
Me.cmdbersih.SetFocus
End If
End Sub

Private Sub txthargapermenu_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Me.txtbayar.SetFocus
End If
End Sub

Private Sub txtjenismenu_KeyPress(KeyAscii As Integer)
 If KeyAscii = 13 Then
Me.txthargapermenu.SetFocus
End If
End Sub

Private Sub txtkodemenu_KeyPress(KeyAscii As Integer)
 If KeyAscii = 13 Then
Me.txtjenismenu.SetFocus
End If
End Sub

Private Sub txtnomeja_KeyPress(KeyAscii As Integer)
 If KeyAscii = 13 Then
Me.txtkodemenu.SetFocus
End If
End Sub
 
Private Sub txtnopesana_KeyPress(KeyAscii As Integer)
 If KeyAscii = 13 Then
Me.txtnomeja.SetFocus
End If
End Sub