Imports System

​

Public Module Module1

​

    Public Sub Main()

        Task4()

    End sub

    Public Sub task1()

        dim storedbookings(170)

        for i = 0 to storedbookings.length - 1

            storedbookings(i) = 0

        next

    Dim bookingC as decimal

        dim YN as string

        Do until YN = "no"

            dim cabins() = {"--Hetty--              ", "--Poppy--              ", "--Blue Skies--         ", "--Bay view--           ", "--Happy Days--         ", "--Summer Joy--         ", "--Walkers' Rest--      ", "--Bertie--             ", "--Green Forest Lodge--", "--Coppice Lodge--     "}

            dim capacities() = {4, 4, 4, 6, 6, 6, 8, 8, 10, 10}

            dim peakPrice = {400, 400, 500, 650, 695, 800, 950, 1050, 1200, 1500}

            dim offPeakPrice = {250, 250, 350, 500, 550, 600, 750, 850, 950, 1150}

            Console.WriteLine("[ID]         [Name]                   [Capacity]       [PeakPrice]       [OffpeakPrice]")

            for i = 0 to cabins.length - 1

                console.Writeline(" " & i & "          " & cabins(i) & "       " & capacities(i) & "                " & peakprice(i) & "                " & offpeakPrice(i))

            Next

            console.Writeline("cabins that have already been booked " & BookingC)

            console.Writeline("Enter An ID")

            dim cabinID as integer = console.Readline()

            do until CabinID < 10 and cabinID >= 0

                Console.WriteLine("Enter an ID between 0-9 incl.")

                cabinID = console.ReadLine()

            Loop

​

            dim cabin = cabins(cabinID)

            console.Writeline("You have chosen " & Cabin)

            console.writeline("Enter start week for " & cabin & " between the weeks 23-39")

            dim startweek as decimal = console.readline()

            do until startweek >= 23 And startweek <= 39

                Console.WriteLine("Enter a value between 23 and 39 (inclusive)")

                startweek = Console.readline()

            Loop

​

            console.writeline("Enter end week for " & cabin & " between the weeks 23-39")

            dim endweek as decimal = console.Readline()

            do until endweek >= 23 And endweek <= 39

                Console.WriteLine("Enter a value between 23 and 39 (inclusive)")

                endweek = Console.readline()

            Loop

​

            BookingC = startweek * 10000 + endweek * 100 + cabinID

            dim bookable = true

            for i = startweek to endweek

                if storedbookings(cabinID * 17 + i - 23) > 0 then

                    bookable = false

                end if

            Next

​

            if bookable = true

                Console.Writeline("Your booking code is :" & BookingC)

                dim price as decimal

                for i = startweek to endweek

                    if i >= 27 and i <= 35 then

                        price += PeakPrice(cabinID)

                    else

                        price += Offpeakprice(CabinID)

                    end if

                Next

​

                dim discountedprice as decimal

                dim week = (endweek+1) - startweek

                if week >= 3 then

                    discountedprice = price - (price * 0.1)

                else

                    console.Writeline("No discount given")

                end if

​

                console.Writeline("Original Price :$" & Price)

                console.Writeline("Discounted Price :$" & discountedprice)

            end if

​

            if bookable = false then

                console.Writeline("This Cabin Has Been Booked For These Weeks, Please Try Again")

            end if

​

            for i = startweek to endweek

                if bookable = true then

                    storedbookings(cabinID * 17 + i - 23) = bookingC

                end if

            Next

​

            console.Writeline("do you wish to make another booking?")

            YN = console.Readline()

        Loop

    End sub

​

public sub task3()

dim bookingC as integer

​

            dim cabins() = {"--Hetty--              ", "--Poppy--              ", "--Blue Skies--         ", "--Bay view--           ", "--Happy Days--         ", "--Summer Joy--         ", "--Walkers' Rest--      ", "--Bertie--             ", "--Green Forest Lodge--", "--Coppice Lodge--     "}

            dim capacities() = {4, 4, 4, 6, 6, 6, 8, 8, 10, 10}

            dim peakPrice = {400, 400, 500, 650, 695, 800, 950, 1050, 1200, 1500}

            dim offPeakPrice = {250, 250, 350, 500, 550, 600, 750, 850, 950, 1150}

            Console.WriteLine("[ID]         [Name]                   [Capacity]       [PeakPrice]       [OffpeakPrice]")

            for i = 0 to cabins.length - 1

                console.Writeline(" " & i & "          " & cabins(i) & "       " & capacities(i) & "                " & peakprice(i) & "                " & offpeakPrice(i))

            Next

            console.Writeline("cabins that have already been booked " & BookingC)

​

end sub

​

Public sub task4()

dim cabins() = {"--Hetty--              ", "--Poppy--              ", "--Blue Skies--         ", "--Bay view--           ", "--Happy Days--         ", "--Summer Joy--         ", "--Walkers' Rest--      ", "--Bertie--             ", "--Green Forest Lodge--", "--Coppice Lodge--     "}

            dim capacities() = {4, 4, 4, 6, 6, 6, 8, 8, 10, 10}

            dim peakPrice = {400, 400, 500, 650, 695, 800, 950, 1050, 1200, 1500}

            dim offPeakPrice = {250, 250, 350, 500, 550, 600, 750, 850, 950, 1150}

            Console.WriteLine("[ID]         [Name]                   [Capacity]       [PeakPrice]       [OffpeakPrice]")

            for i = 0 to cabins.length - 1

                console.Writeline(" " & i & "          " & cabins(i) & "       " & capacities(i) & "                " & peakprice(i) & "                " & offpeakPrice(i))

            Next

            console.Writeline("Enter An ID")

            dim cabinID as integer = console.Readline()

            do until CabinID < 10 and cabinID >= 0

                Console.WriteLine("Enter an ID between 0-9 incl.")

                cabinID = console.ReadLine()

            Loop

​

console.Writeline("How many people are staying in this cabin?")

dim cap = console.Readline()

if cap > capacities(cabinID) or cap > 0

console.Writeline("Too many people, Please try again")

end if

ENd sub

End Module

​