Visual Basic

Module Module1
    Const dblSTATE_TAX As Double = 0.04
    Const dblCOUNTY_TAX As Double = 0.02

    Sub Main()
        'Chapter 3:     SalesTax Program
        'Programmer:    Isaac Peek
        'Date:          October 02, 2009
        'Purpose:       Revision for chapter 2 so there are modules
        '               
        '               
        '
        'Declaration
        Dim decPurchaseAmount As Decimal = 0
        Dim decTotalAmount As Decimal = 0
        Dim decTAX As Decimal = 0
        Dim decTotalTax As Decimal = 0

        'Input
        getPurchaseAmount(decPurchaseAmount)

        'Process and Output
        showPurchaseAmount(decPurchaseAmount)
        showStateTax(dblSTATE_TAX)
        showCountyTax(dblCOUNTY_TAX)
        showTAX(decTAX)
        showTotalAmount(decTotalAmount)
        showTotalTax(decTotalTax)
        showTermination()

    End Sub
    Private Sub getPurchaseAmount(ByRef decPurchaseAmount As Decimal) 'ByRef is input and output
        Console.WriteLine("Please enter the amount of your purchase: ")
        decPurchaseAmount = CDec(Console.ReadLine())
    End Sub
    Private Sub showPurchaseAmount(ByVal decPurchaseAmount As Decimal)
        Console.WriteLine("Your Purchase amount is: " & decPurchaseAmount)
    End Sub
    Private Sub showStateTax(ByVal dblSTATE_TAX As Decimal)
        Console.WriteLine("The State tax is: " & dblSTATE_TAX)
    End Sub
    Private Sub showCountyTax(ByVal dblCOUNTY_TAX As Decimal)
        Console.WriteLine("The County tax is: " & dblCOUNTY_TAX)
    End Sub
    Private Sub showTAX(ByVal decTAX As Decimal)
        decTAX = dblSTATE_TAX + dblCOUNTY_TAX
    End Sub
    Private Sub showTotalTax(ByVal decTotalTax As Decimal)
        decTotalTax = decPurchaseAmount * decTAX
        Console.WriteLine("The total tax is: " & decTotalTax)
    End Sub
    Private Sub showTotalAmount(ByVal decTotalAmount As Decimal)
        decTotalAmount = (decPurchaseAmount * decTAX + decPurchaseAmount
        Console.WriteLine("The Total Purchase amount is: " & decTotalAmount)
    End Sub
    Private Sub showTermination()
        Console.WriteLine()
        Console.WriteLine("Press the enter key to terminate the program.")
        Console.Read()
    End Sub

End Module