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
TW9kdWxlIFZCTW9kdWxlCiAKICAgIFN1YiBNYWluKCkKICAgIERpbSBjbGllbnROYW1lIEFzIFN0cmluZz0iTk8gVkFMVUUiCiAgICBEaW0gZmVldFVUUCBBcyBEb3VibGU9MAogICAgRGltIHN1YlRvdGFsIEFzIERvdWJsZT0wCiAgICBEaW0gdGF4Q29zdCBBcyBEb3VibGU9MAogICAgRGltIHRvdGFsQ29zdCBBcyBEb3VibGU9MAogICAgQ2FsbCBpbnB1dERhdGEoY2xpZW50TmFtZSwgZmVldFVUUCkKICAgIENhbGwgY2FsY0Nvc3QoZmVldFVUUCwgc3ViVG90YWwsIHRheENvc3QsIHRvdGFsQ29zdCkKICAgIENhbGwgZmluYWxCaWxsKGNsaWVudE5hbWUsIHRvdGFsQ29zdCkKICAgIENvbnNvbGUuV3JpdGUoIlByZXNzIGVudGVyIHRvIGNvbnRpbnVlLi4uIikKICAgIENvbnNvbGUuUmVhZExpbmUoKQogICAgRW5kIFN1YgogICAgCiAgICBTdWIgaW5wdXREYXRhKEJ5UmVmIGNsaWVudE5hbWUgQXMgU3RyaW5nLCBCeVJlZiBmZWV0VVRQIEFzIERvdWJsZSkKICAgIENvbnNvbGUuV3JpdGUoIkVudGVyIHRoZSBjbGllbnRzIG5hbWU6IikKICAgIGNsaWVudE5hbWU9Q29uc29sZS5SZWFkTGluZSgpCiAgICBDb25zb2xlLldyaXRlKCJFbnRlciB0aGUgbnVtYmVyIG9mIGZlZXQgb2YgVVRQIGluc3RhbGxlZDoiKQogICAgZmVldFVUUD1Db25zb2xlLlJlYWRMaW5lKCkKICAgIEVuZCBTdWIKICAgIAogICAgU3ViIGNhbGNDb3N0KEJ5VmFsIGZlZXRVVFAsIEJ5UmVmIHN1YlRvdGFsLCBCeVJlZiB0YXhDb3N0LCBCeVJlZiB0b3RhbENvc3QpCiAgICBzdWJUb3RhbD1mZWV0VVRQKiQwLjIxCiAgICB0YXhDb3N0PXN1YlRvdGFsKi4wNiUKICAgIHRvdGFsQ29zdD10YXhDb3N0K3N1YnRvdGFsCiAgICBFbmQgU3ViCiAgICAKICAgIFN1YiBmaW5hbEJpbGwoQnlWYWwgY2xpZW50TmFtZSBhcyBzdHJpbmcsIEJ5VmFsIHRvdGFsQ29zdCBhcyBkb3VibGUpCiAgICBDb25zb2xlLldyaXRlTGluZSgpCiAgICBpbnB1dERhdGEoY2xpZW50TmFtZSwgZmVldFVUUCkKICAgIGNhbGNDb3N0cyhmZWV0VVRQLCBzdWJUb3RhbCwgdGF4Q29zdCwgdG90YWxDb3N0KQogICAgZmluYWxCaWxsKGNsaWVudE5hbWUsIHRvdGFsQ29zdCkKICAgIEVuZCBTdWIK
compilation info
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
stdout