Question

Exercise: Pinata pricing

You sell three different types of pinatas. Pandas cost $14 each, lambs cost $12 each, and bunnies cost $9 each. Write a program that computes the total price of an order.

Here’s a sample:

4 5 4 3 2 1 How many pinatas of each type would you like? 3 Panda 4 Lamb 5 Bunny Run 9 Price 35

The program validates the three input fields. They should all be numbers zero or more. If any of them is bad, show one error message, like this:

Don’t create your own workbook. Download this one instead. It has some code already there:

Private Sub cmdRun_Click()

    Dim pandas As Integer

    Dim lambs As Integer

    Dim bunnies As Integer

    Dim inputOK As Boolean

    Dim totalPrice As Integer

    ‘Input

    getInputs pandas, lambs, bunnies, inputOK

    If Not inputOK Then

        ‘There was a problem with the input.

        End

    End If

    ‘Compute the total price.

    computePrice pandas, lambs, bunnies, totalPrice

    ‘Output the total prie.

    outputPrice totalPrice

End Sub

Don’t change this code! Don’t add or remove anything. Your job is to write the Subs. All the usual coding standards apply.

Answer 1

VBA Code:

Option Explicit

Private Sub cmdRun_Click()
    Dim pandas As Integer
    Dim lambs As Integer
    Dim bunnies As Integer
    Dim inputOK As Boolean
    Dim totalPrice As Integer
  
    'Input
    getInputs pandas, lambs, bunnies, inputOK
    If Not inputOK Then
        'There was a problem with the input.
        MsgBox ("Sorry, all three inputs must be numbers, zero or more ")
        End
    End If
  
    'Compute the total price.
    computePrice pandas, lambs, bunnies, totalPrice
  
    'Output the total prie.
    outputPrice totalPrice
  
End Sub

'Getting inputs from cells and checking values
Private Sub getInputs(ByRef pandas As Integer, ByRef lambs As Integer, ByRef bunnies As Integer, ByRef inputOK As Boolean)

    'Checking for numeric input or not
    If IsNumeric(Cells(3, 2)) = True And IsNumeric(Cells(4, 2)) = True And IsNumeric(Cells(5, 2)) = True Then
      
        ' Fetching values from cells
        pandas = Cells(3, 2)
        lambs = Cells(4, 2)
        bunnies = Cells(5, 2)
      
        ' Checking for values zero or more
        If pandas < 0 Or lambs < 0 Or bunnies < 0 Then
      
            ' Set to false
            inputOK = False
      
        Else
          
            ' Set to true
            inputOK = True
          
        End If
      
    Else
  
        ' Set values to 0
        pandas = 0
        lambs = 0
        bunnies = 0
      
        ' Set to false
        inputOK = False
      
    End If
  
End Sub

'Calculates total price
Private Sub computePrice(ByVal pandas As Integer, ByVal lambs As Integer, ByVal bunnies As Integer, ByRef totalPrice As Integer)
  
    ' Calculating total price as per individual price of each item
    totalPrice = (14 * pandas) + (12 * lambs) + (9 * bunnies)
  
End Sub

' Outputs total price to cell
Private Sub outputPrice(ByVal totalPrice As Integer)
  
    ' Writing output to cell
    Cells(9, 2) = totalPrice
  
End Sub

______________________________________________________________________________________________

Sample Run:

2 1 How many pinatas of each type would you like? 3 Panda 4 Lamb 5 Bunny test 6 Run Microsoft Excel 10 11 Sorry, al three inputs must be numbers, zero or more 13 14 OK 16 2 4 1 How many pinatas of each type would you like? 3 Panda 4 Lamb 5 Bunny Run 9 Price 130 10