fork download

copy

Module VBModule
 
    Sub Main()
    Dim clientName As String="NO VALUE"
    Dim feetUTP As Double=0
    Dim subTotal As Double=0
    Dim taxCost As Double=0
    Dim totalCost As Double=0
    Call inputData(clientName, feetUTP)
    Call calcCost(feetUTP, subTotal, taxCost, totalCost)
    Call finalBill(clientName, totalCost)
    Console.Write("Press enter to continue...")
    Console.ReadLine()
    End Sub
 
    Sub inputData(ByRef clientName As String, ByRef feetUTP As Double)
    Console.Write("Enter the clients name:")
    clientName=Console.ReadLine()
    Console.Write("Enter the number of feet of UTP installed:")
    feetUTP=Console.ReadLine()
    End Sub
 
    Sub calcCost(ByVal feetUTP, ByRef subTotal, ByRef taxCost, ByRef totalCost)
    subTotal=feetUTP*$0.21
    taxCost=subTotal*.06%
    totalCost=taxCost+subtotal
    End Sub
 
    Sub finalBill(ByVal clientName as string, ByVal totalCost as double)
    Console.WriteLine()
    inputData(clientName, feetUTP)
    calcCosts(feetUTP, subTotal, taxCost, totalCost)
    finalBill(clientName, totalCost)
    End Sub
 

Visual Basic.Net Compiler version 0.0.0.5914 (Mono 2.4.2 - r)
Copyright (C) 2004-2008 Rolf Bjarne Kvinge. All rights reserved.


/home/9Kv2Om/prog.vb (24,22) : Error VBNC30037: Symbol is not valid.
/home/9Kv2Om/prog.vb (25,26) : Error VBNC90002: 'IntegerTypeCharacter' type character is not valid here.
/home/9Kv2Om/prog.vb (25,26) : Error VBNC90005: Invalid literal.
/home/9Kv2Om/prog.vb (35,1) : Error VBNC90019: Expected 'End'.
Error recovery not implemented yet.
There were 4 errors and 0 warnings.
Compilation took 00:00:00.6460280

Standard output is empty