Variable Name | Declare String clientName | Declare Real feetUTP | Declare Real subTotal | Declare Real taxCost | Declare Real totalCost |

Module Name | Module inputData () | Module calcCosts () | Module displayBill () |
Module Main () //Declare local variables 1. Declare String clientName = No Value 2. Declare Real feetUTP = 0 3. Declare Real subTotal = 0 4. Declare Real taxCost = 0 5. Declare Real totalCost = 0
//Module calls 6. Call inputData (feetUTP, clientName) 7. Call calcCosts (feetUTP, subtotal, taxCost, totalCost) 8. Call displayBill (clientName, totalCost)
End Module
//this module takes in the required user input. There will be a display and input for each variable
Module inputData (Real Ref feetUTP, String Ref clientName)

9. Display “Please enter client name:” 10. Input clientName 11. Display “Please enter the amount of UTP (in feet) needed:” 12. Input feetUTP
End Module //this module calculates subTotal, taxCost, and totalCost //you also need feetUTP passed in to calculate subTotal Module calcCosts (13. Real feetUTP, Real Ref subTotal, Real Ref taxCost, Real Ref totalCost
14. Set subTotal = feetUTP * .21
15. Set taxCost = subtotal * 0.06
16. Set totalCost = subtotal + taxCost
End Module //this module displays clientName and totalCost
Module displayBill (17. String clientName, Real totalCost) 18. Display “The order for:”, clientName 19. Display “has a total cost of:”, totalCost
End Module

Unit 4 Modules
Lab 4.2 Flowchart

Unit 4 Modules
Lab 4.3 – Visual Basic
Module Module1

Sub Main () 'declare variables 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 modules inputData (clientName, feetUTP) calcCosts (feetUTP, subTotal, taxCost, totalCost) displayBill (clientName, totalCost) Console.Write ("Press enter to continue.....") Console.ReadLine () End Sub

Sub inputData (ByRef clientName As String, ByRef feetUTP As Double) Console.Write ("Please enter client name: ") clientName = Console.ReadLine () Console.WriteLine ("") Console.Write ("Please enter the amount of UTP (in feet) needed: ") feetUTP = Console.ReadLine () Console.WriteLine ("") End Sub

Sub calcCosts (ByVal feetUTP As Double, ByRef subTotal As Double, ByRef taxCost As Double, ByRef totalCost As Double) subTotal = feetUTP * 0.21 taxCost = subTotal * 0.06 totalCost = subTotal + taxCost End Sub

Sub displayBill (ByVal clientName As String, ByVal totalCost As Double) Console.WriteLine ("The order for” & clientName & " ") Console.WriteLine ("has a total cost of $" & totalCost & ".") Console.WriteLine ("") Console.WriteLine ("") Console.ReadLine ()

End Sub

End Module

Unit 4 Modules
Lab 4.4 – Challenge: Pings and Web Site Launches
Module Module1

Sub Main () Console.WriteLine ("") Console.WriteLine ("") Console.WriteLine ("This program uses serious modules!!!") Console.WriteLine ("") pingMe () openWebsite () finalOutput ()

End Sub 'Let’s ping something Sub pingMe () Shell ("Ping.exe 127.0.0.1", True) End Sub

'Now let’s open a website Sub openWebsite () Dim myTargetURL As String = "http://www.abettersounddj.com" System.Diagnostics.Process.Start (myTargetURL)

End Sub

'Time to explain what we did Sub finalOutput () Console.WriteLine ("") Console.WriteLine ("")

Console.WriteLine ("This lab has taught budding programmers how to write programs using") Console.WriteLine ("Modules in Visual Basic.") Console.WriteLine ("")

Console.WriteLine ("First, the programmer executed a module called 'pingMe' which pinged 127.0.0.1.") Console.WriteLine ("")

Console.WriteLine ("Then, the programmer executed a module named 'openWebsite' using") Console.WriteLine ("System.Diagnostics.Process.Start (myTargetURL)") Console.WriteLine ("To open a browser and go to a predetermined website.") Console.WriteLine ("")

Console.WriteLine ("Finally, the programmer executed one last module named 'finalOutput'") Console.WriteLine ("Which allows the user to know exactly what was done in the program.") Console.WriteLine ("") Console.WriteLine ("")

Console.WriteLine ("End Transmission") Console.WriteLine ("") Console.WriteLine ("") End Sub

End Module