I only manage to do this assignment using combo box anyone has any idea to do this using option box???
Specifications
Create a form based application that resembles the above figure. For each order, the user selects one main course item and zero or more of the associated add-ons. When the user clicks on the Place Order button, the application displays the sub total, tax, and total due for the order. It also enables the Print Receipt button. To print a copy of the lunch order form, the user can click on the Print Receipt button. This also clears the add-on check boxes and resets the Main course option button to Hamburger.
For the three add-ons and prices change based on the main course item that’s selected. For a hamburger, the three items are: (1) Lettuce, tomato, and onions; (2) Mayonnaise and mustard; and (3) French fries. The price of each is 75 cents. For a pizza, the three items are: (1) Pepperoni, (2) Sausage, and (3) Olives. The price of each is 50 cents. For a salad, the three items are the ones shown above and the price of each is 25 cents.
The sub total is equal to the cost of the main course item, plus the cost of the
Add-ons. The tax is the sub total * .0785. And the total due is the sub total + tax. To print a copy of the lunch order form when the user clicks on the Print Receipt button, you can use the PrintForm method of the form object.
Thank you
These are my code
- Const NAME_POS = 0
-
Const ADDON_PRICE_POS = 1
-
Const MAIN_PRICE_POS = 2
-
Const ADDON_ARRAY_POS = 3
-
-
Const TAX_RATE = 0.0785
-
-
Dim Products(2, 3) As Variant
-
Dim HamburgerAddOns(0 To 2) As String
-
Dim PizzaAddOns(0 To 2) As String
-
Dim SaladAddOns(0 To 2) As String
-
-
Private Sub Form_Load()
-
InitArrays
-
InitCboMainCourse
-
ResetForm
-
End Sub
-
-
Private Sub InitArrays()
-
Products(0, NAME_POS) = "Hamburger"
-
Products(1, NAME_POS) = "Pizza"
-
Products(2, NAME_POS) = "Salad"
-
-
Products(0, ADDON_PRICE_POS) = CCur(0.75)
-
Products(1, ADDON_PRICE_POS) = CCur(0.5)
-
Products(2, ADDON_PRICE_POS) = CCur(0.25)
-
-
Products(0, MAIN_PRICE_POS) = CCur(6.95)
-
Products(1, MAIN_PRICE_POS) = CCur(5.95)
-
Products(2, MAIN_PRICE_POS) = CCur(4.95)
-
-
HamburgerAddOns(0) = "Lettuce, Tomato, and Onions"
-
HamburgerAddOns(1) = "Mayonnaise and Mustard"
-
HamburgerAddOns(2) = "French fries"
-
Products(0, ADDON_ARRAY_POS) = HamburgerAddOns
-
-
PizzaAddOns(0) = "Pepperoni"
-
PizzaAddOns(1) = "Sausage"
-
PizzaAddOns(2) = "Olives"
-
Products(1, ADDON_ARRAY_POS) = PizzaAddOns
-
-
SaladAddOns(0) = "Croutons"
-
SaladAddOns(1) = "Bacon bits"
-
SaladAddOns(2) = "Bread stick"
-
Products(2, ADDON_ARRAY_POS) = SaladAddOns
-
End Sub
-
-
Private Sub InitCboMainCourse()
-
Dim i As Integer
-
-
For i = LBound(Products, 1) To UBound(Products, 1)
-
cboMainCourse.AddItem Products(i, NAME_POS)
-
Next
-
End Sub
-
-
Private Sub ResetForm()
-
cboMainCourse.ListIndex = 0
-
cmdPrintReceipt.Enabled = False
-
End Sub
-
-
Private Sub cboMainCourse_Click()
-
Dim i As Integer
-
-
cmdPrintReceipt.Enabled = False
-
-
For i = chkAddOn.LBound To chkAddOn.UBound
-
chkAddOn(i).Value = vbUnchecked
-
chkAddOn(i).Caption = Products(cboMainCourse.ListIndex, ADDON_ARRAY_POS)(i)
-
Next
-
End Sub
-
-
Private Sub cmdPlaceOrder_Click()
-
DisplayReceipt
-
cmdPrintReceipt.Enabled = True
-
End Sub
-
-
Private Sub cmdPrintReceipt_Click()
-
Me.PrintForm
-
ResetForm
-
End Sub
-
-
Private Sub cmdExit_Click()
-
Unload Me
-
End Sub
-
-
Private Sub DisplayReceipt()
-
Dim curSubTotal As Currency
-
Dim curTax As Currency
-
Dim intAddOnCount As Integer
-
Dim i As Integer
-
Dim intSelectedProduct As Integer
-
-
intSelectedProduct = cboMainCourse.ListIndex
-
-
For i = chkAddOn.LBound To chkAddOn.UBound
-
If chkAddOn(i).Value = vbChecked Then
-
intAddOnCount = intAddOnCount + 1
-
End If
-
Next
-
-
curSubTotal = CCur(Products(cboMainCourse.ListIndex, MAIN_PRICE_POS) _
-
+ intAddOnCount * Products(intSelectedProduct, ADDON_PRICE_POS))
-
-
curTax = curSubTotal * TAX_RATE
-
-
lblSubtotal.Caption = CStr(FormatCurrency(curSubTotal, 2))
-
lblTax.Caption = CStr(FormatCurrency(curTax, 2))
-
lblTotal.Caption = CStr(FormatCurrency(curSubTotal + curTax, 2))
-
End Sub
