' Basic Programming

' Ch. 6 Demo Program #7

' by Mr. Minich

' purpose - to illustrate the use of a general function



Option Explicit

Private Sub cmdCompute_Click()
   Dim sngBasePrice As Single
   Dim sngFinalPrice As Single
   Dim sngAmountOfTax As Single
   Const sngTAX_RATE As Single = 0.06

   sngBasePrice = Val(txtInput.Text)
   sngAmountOfTax = sngComputeTax(sngBasePrice, sngTAX_RATE)    ' calling computeTax
   sngFinalPrice = sngBasePrice + sngAmountOfTax
   lblOutput.Caption = "The final price including tax is " & sngFinalPrice
End Sub

Private Function sngComputeTax(sngBase As Single, sngTaxRate As Single) As Single
   Dim sngTaxAmount As Single

   sngTaxAmount = sngBase * sngTaxRate
   sngComputeTax = sngTaxAmount
End Function