Imports System

​

Public Module Module1

​

    Private cabins() As String = {"Hetty", "Poppy", "Blue Skies", "Bay View", "Happy Days", "Summer Joy", "Walkers' Rest", "Bertie", "Green Forest Lodge", "Coppice Lodge"}

    Private capacity() As Integer = {4, 4, 4, 6, 6, 6, 8, 8, 10, 10}

    Private peak() As Integer = {400, 400, 500, 650, 695, 800, 950, 1050, 1200, 1500}

    Private offpeak() As Integer = {250, 250, 350, 500, 550, 600, 750, 850, 950, 1150}

    Private cabinWeeks(169) As String

    Private berror As Boolean

    Private starting As Integer

    Private nweeks As Integer

    Private errormessage As String = "Your input is invalid."

    Private housenumber As Integer

    Private sInput As String

    Private Bookingcode As String

    Private peakcounter As Integer

    Private offcounter As Integer

    Private overbookcount As Integer

    Private Price As Decimal

    Private discountedPrice As Decimal

​

    Sub Main()

​

        'Setting up array

​

        For i = 0 To 169

            cabinWeeks(i) = "Not Booked"

        Next

​

        'The loop begins

​

        Do

            'Displaying free weeks

            Console.WriteLine("Free Weeks:")

            Console.WriteLine("")

            For i = 0 To 9

                For j = 0 To 16

                    If cabinWeeks(j + i * 17) = "Not Booked" Then

                        Console.Write(j + 23)

                        Console.Write(" ")  'put a space between weeks

                    End If

                Next

                Console.WriteLine("{0} has a capacity of {1}. The peak and off peak prices are $ {2} and $ {3} respectively.", cabins(i), capacity(i), peak(i), offpeak(i))

            Next

            Console.WriteLine("")

​

            'Inputting the log cabin and setting up housenumber

​

            Console.WriteLine("Which cabin would you like to book? Please make sure the first letters are in CAPS as displayed above.")

​

            housenumber = 10

            Do

                sInput = Console.ReadLine()

                For i = 0 To 9

                    If cabins(i) = sInput Then

                        housenumber = i

                    End If

                Next

                If housenumber = 10 Then

                    Console.WriteLine(errormessage)

                End If

            Loop Until housenumber <> 10

​

            'Inputting the number of weeks booked

​

            Console.WriteLine("How many weeks would you like to book for?")

            Do

                berror = False

                Try

                    nweeks = Console.ReadLine()

                Catch e As Exception

                    berror = True

                End Try

                If nweeks > 17 Or nweeks <= 0 Or berror = True Then

                    berror = True

                    Console.WriteLine(errormessage)

                End If

            Loop Until berror = False

​

            'Inputting the starting week

​

            Console.WriteLine("When is the starting week?")

            Do

                berror = False

                Try

                    starting = Console.ReadLine()

                    'Making sure the weeks booked don't exceed the weeks for the cabin

​

                    If starting + nweeks > 40 Or starting < 23 Then

                        berror = True

                    End If

​

                    'Making sure the weeks are not already booked

                    overbookcount = 0

                    For i = starting - 23 To starting + nweeks - 24

                        If cabinWeeks(housenumber * 17 + i) <> "Not Booked" Then

                            overbookcount += 1

                        End If

                    Next

​

                Catch Ex As Exception

                    berror = True

                End Try

​

                If berror = True Or overbookcount > 0 Then

                    Console.WriteLine(errormessage)

                End If

            Loop Until berror = False And overbookcount = 0

​

            'Storing the booking code

​

            Bookingcode = "#" & housenumber & starting & nweeks

            For i = starting - 23 To starting + nweeks - 24

                cabinWeeks(housenumber * 17 + i) = Bookingcode

            Next

​

            'Calclating Price

​

            peakcounter = 0

            offcounter = 0

​

            For i = starting - 23 To starting + nweeks - 24

                If i > 3 And i < 13 Then

                    peakcounter += 1

                Else

                    offcounter += 1

                End If

            Next

​

            Price = peakcounter * peak(housenumber) + offcounter * offpeak(housenumber)

​

            Console.WriteLine("Your booking code is {0}.", Bookingcode)

            If nweeks >= 3 Then

                discountedPrice = Price * 0.9

                Console.WriteLine("Because you booked 3 weeks or more, your 10 percent discounted price is $ {0}. Your original price was $ {1}.", discountedPrice, Price)

            Else

                Console.WriteLine("Your booking cost is $ {0}.", Price)

            End If

            Console.WriteLine("Please press ENTER if you would like to do another booking.")

            Console.ReadLine()

        Loop

​

    End Sub

End Module