Imports System

​

​

Public Module Module1

​

    CONST TILES_COUNT = 10

​

    CONST PROMPT_NUMBER_OF_WALLS = "Enter the number of walls to tile."

​

    CONST PROMPT_NUMBER_OF_WALLS_ERROR = "Mistake entering the number of walls. Please try again."

​

    CONST PROMPT_HEIGHT_OF_WALL = "Enter height of wall."

​

    CONST PROMPT_HEIGHT_OF_WALL_ERROR = "Mistake entering the height of the wall. Please try again."

​

    CONST PROMPT_WIDTH_OF_WALL = "Enter width of wall."

​

    CONST PROMPT_WIDTH_OF_WALL_ERROR = "Mistake entering the width of the wall. Please try again."

​

    Public Sub Main()

        'declare and initialize all on the same line

        Dim nTilePrices() as decimal = {19.50, 25.95, 35.75, 12.50, 11.00, 52.95, 65.00, 58.98, 85.00, 62.75}

        Dim sTileNames() = {"Small Black Granite", "Small Grey Marble", "Small Powder Blue", "Medium Sunset Yellow", "Medium Berry Red", "Medium Glitter Purple", "Large Oak Wood Effect", "Large Black Granite", "Large Bamboo Effect", "Extra - Large White Marble"}

        Dim sTileCodes() = {"SBG", "SGM", "SPB", "MSY", "MBR", "MBR", "MGP", "LOWE", "LBG", "LBE", "XLWM"}

        'print out the tiles

        Dim i as integer

        Console.WriteLine("Tile descriptions")

        For i = 0 to TILES_COUNT - 1

            Console.WriteLine("{0} {1:$00.00}", sTileNames(i) & " (" & sTileCodes(i) & ")".PadRight(30), nTilePrices(i))

        'below shows special formatting how to foramt numbers as currency   

        'Console.WriteLine("{0} {1:$00.00}", sTileNames(i) & " (" & sTileCodes(i) & ")".PadRight(30), nTilePrices(i))

        Next

    console.WriteLine()

        'INPUT THE TILE CODES

        Dim sTileCode as string

        Dim nTileCode as integer = -1

        'nTileCode will hold the index of the tile code. Initially it will be -1. If a correct code is entered this value changes to a value between 0 an 9

        Do while nTileCode = -1

            Console.WriteLine("Enter tile code")

            sTileCode = console.ReadLine()

            'CONVERT THE CODE TO UPPER CASE

            sTileCode = sTileCode.ToUpper()

            'CHECK THE TILE CODE AND GET TILE INDEX, USE A WHILE LOOP AND 2 CONDITIONS FOR EFFICIENCY.

            i = 0

            Do While i <= 9 and nTileCode = -1

                if sTileCodes(i) = sTileCode

                    nTileCode = i

                end if

​

                i += 1

            loop

        Loop

​

    Dim sContinue as string

        Dim nHeight as decimal

        Dim nWidth as decimal

        Dim nArea as decimal

        Dim nBoxes as decimal

        Dim nTotalBoxes as decimal = 0

        Dim nTotalArea as decimal = 0

        Dim nPrice as decimal

        Dim nTotalPrice as decimal = 0

        Dim nWallCount as integer = 0

    'START A LOOP FOR DATA ENTRY

    Do

        nWallCount += 1

        console.WriteLine(PROMPT_HEIGHT_OF_WALL)

        nHeight = console.ReadLine()

        Do while nHeight <= 0

            console.WriteLine(PROMPT_HEIGHT_OF_WALL_ERROR)

            console.WriteLine(PROMPT_HEIGHT_OF_WALL)

            nHeight = console.ReadLine()

        Loop

​

        console.WriteLine(PROMPT_WIDTH_OF_WALL)

        nWidth = console.ReadLine()

        Do while nWidth <= 0

            console.WriteLine(PROMPT_WIDTH_OF_WALL_ERROR)

            console.WriteLine(PROMPT_WIDTH_OF_WALL)

            nWidth = console.ReadLine()

        Loop

​

        nArea = Math.Round(nHeight * nWidth)

        nBoxes = Math.Ceiling(nHeight * nWidth)

        nPrice = nTilePrices(nTileCode)

        nTotalPrice += nPrice

        nTotalBoxes += nBoxes

        Console.WriteLine("Details for wall {0}", nwallCount)

        Console.WriteLine("Area of Wall: {0}, Boxes of Tiles Required: {1}, Cost: {2:C}", nArea, nBoxes, nPrice)

        If nWallCount > 1 then

            Console.writeline("Total boxes so far: {0}, Total Cost:  {1}",nTotalBoxes,nTotalPrice)

        End IF

    Console.WriteLine("Do you want to continue. Y for yes, N for No")

    sContinue = Console.readline().ToUpper()

Loop Until sContinue = "N"

    'GET THE WASTAGE

    'prompts here are hard coded to show the differnece in style.

    'I think named constants make the code read better

    Dim nWasteage as decimal

    Console.WriteLine("Enter the amount wasted as a percentage of the amount used")

    nWasteage = Console.ReadLine()

    Do while nWasteage < 0 

        console.WriteLine("Error entering wasteage")

        Console.WriteLine("Enter the amount wasted as a percentage of the amount used")

        nWasteage = Console.ReadLine()

    Loop

    Dim nNewTotalBoxes as integer

    Dim nNewTotalCost as decimal

    nNewTotalBoxes = Math.Ceiling((nTotalBoxes * (1 + nWasteage/100)))

    nNewTotalCost = nTilePRices(nTileCode) * nNewTotalBoxes

    Console.WriteLine("Final Amounts")

    Console.Write("Total Number of Boxes Including Wasteage: {0},  Total Cost: {1:C}", nNewTotalBoxes, nNewTotalCost)

    End Sub

End Module

​