Imports System

Public Module Module1

        Dim cabinName = New String() {"Hetty", "Poppy", "Blue Skies", "Bay View", "Happy Days", "Summer Joy", "Walkers' Rest", "Bertie", "Green Foreast Lodge", "Coppice Lodge"} 'inputing data into arrays and declaring variables

        Dim peakRate = New Integer() {400, 400, 500, 650, 695, 800, 950, 1050, 1200, 1500}

        Dim offpeakRate = New Integer() {250, 250, 350, 500, 550, 600, 750, 850, 950, 1150}

        Dim capacity = New Integer() {4, 4, 4, 6, 6, 6, 8, 8, 10, 10}

        Dim calendar(9, 16) As Double

        Dim bookingRef As Integer = 201900

        Dim cabinChoice As Integer

        Dim response As String

rejChoice:

        Console.WriteLine("This booking platform can only be used for the 2019 season, from week 23 to 39. Please select an appropriate cabin for yourself and/or your group.") 'specify the dates and year so easier for users to understand and easier to code.

        Console.WriteLine("Here are your options, please choose the number associated with the cabin of your choice:")

        For i = 0 To 9

            Console.WriteLine(i + 1 & "." & cabinName(i) & "   capacity:" & capacity(i) & "    peakrate:  $" & peakRate(i) & "    offpeakrate:  $" & offpeakRate(i)) ' give choices to the user with and relevant information to make choices

        Next

        cabinChoice = Console.ReadLine() 'save the choice of the user

        If cabinChoice < 1 Or cabinChoice > 10 Then 'The number of options are 10 and if the choices are greater than 10 and less than 0 there aren't any choices

            Console.WriteLine("Please choose a valid unit number.")

            GoTo rejChoice  'sends users back to the the options and selection

        ElseIf cabinChoice >= 1 Or cabinChoice <= 10 Then ' the option they have selected is correct and will go through the processes

            cabinChoice = cabinChoice - 1 'changes cabinChoice so that it can be used in arrays

            Console.WriteLine("You have selected " & cabinName(cabinChoice)) 'tells user their choice

            Console.WriteLine("Is this your final choice?") ' validates if they want to 

        End If

        response = Console.ReadLine() 'gets a response

        Select Case response

            Case "Yes" ' if user says that yes they will go on to select the weeks 

                Console.WriteLine("you will now move to the week section.")

                Weeks(cabinName, peakRate, offpeakRate, capacity, cabinChoice, response, calendar, bookingRef) 'sends them to the sub from weeks

            Case "No"

                Console.WriteLine("You will be directed to the booking section again.") 'sends user back to the section part 

                GoTo rejChoice

        End Select

    End Sub

    Sub Weeks(ByVal cabinName As Array, peakRate As Array, offpeakrate As Array, capacity As Array, cabinChoice As Integer, response As String, calendar As Array, bookingRef As Integer) ' declare already declared variables

        Console.WriteLine("Checkin and Checkout can only happen on Mondays and Sundays. Which is why this booking system books over a week and not days.") 'explains to users how the booking selection works 

        Dim startWeek As Integer ' declare all of the needed variables for the sub and validation

        Dim endWeek As Integer

        Dim pplstaying As Integer

        For i = 0 To 16

            If calendar(cabinChoice, i) = 0 Then    'confirms that the array for that particular cabin is free and can be used

                Console.WriteLine(cabinName(cabinChoice) & " is available in week " & i + 23)  ' relays this information to the user

            ElseIf calendar(cabinChoice, i) > 0 Then ' 't tell the user when it isn't free

                Console.WriteLine(cabinName(cabinChoice) & " is available in week " & i + 23)  ' relays this information to the user

            End If

        Next

rejDate: Console.WriteLine("Which week would you like to checkin.") 'asks the user to input when they want to come and stay at the cabin

        startWeek = Console.ReadLine - 23

        Console.WriteLine("Which week would you like to checkout.") 'asks the user to input when they want to leave

        endWeek = Console.ReadLine - 23

        Console.WriteLine("Are you sure about the weeks you have chosen.") 'asks them if they are sure is a easy validation to overcome

        response = Console.ReadLine

        Select Case response

            Case "Yes"

                Console.WriteLine("Ok, you will now  move forward.") 'goes forward \

                Exit Select

            Case "No"

                Console.WriteLine("You will now go back to the start of the selection component of the code") 'goes back to the cabin selection

                GoTo rejDate

        End Select

        Console.WriteLine("Please enter the number of guests staying at the hotel room.") 'Is a stronger validation and can weed out the fakes

        pplstaying = Console.ReadLine

        If pplstaying <= capacity(cabinChoice) Then

            Console.WriteLine("You will now move on to the payments section.") 'moves out them to the end bit of the program

            Payments(cabinName, peakRate, offpeakrate, capacity, cabinChoice, response, calendar, bookingRef) 'actually moves them

​

        ElseIf pplstaying > capacity(cabinChoice) Then

            Console.WriteLine("The number of geusts is to to much for this cabin to hold, please pick another cabin.") 'sends them back 

            Main() 'actually sends them back to the main sub

        End If

    End Sub

​

    Sub Payments(ByVal cabinName As Array, peakRate As Array, offpeakrate As Array, capacity As Array, cabinChoice As Integer, response As String, calendar As Array, bookingRef As Integer)

        Dim startWeek As Integer 'declare variables for this sub

        Dim endWeek As Integer

        Dim total As Integer

        bookingRef = bookingRef + 1 'creates a different refrence number for each refrence

        For i = startWeek To endWeek 'starts a for loop to make sure the that each week for that cabin is booked for them

            calendar(cabinChoice, i) = bookingRef

        Next

        If startWeek And endWeek < 3 Or startWeek And endWeek > 12 Then 'if statements for the each different combination(vaguely) and how to calculate the price.

            total = (endWeek - startWeek) * offpeakrate(cabinChoice)

        ElseIf startWeek < 3 And endWeek > 3 And endWeek < 13 Then

            total = (endWeek - 3) * peakRate(cabinChoice) + 3 * peakRate(cabinChoice)

        ElseIf startWeek > 3 And startWeek < 13 And endWeek >= 13 Then

            total = (endWeek - 13) * peakRate(cabinChoice) + (10 - (startWeek - 3)) * offpeakrate(cabinChoice)

        ElseIf startWeek And endWeek > 3 Or startWeek And endWeek < 13 Then

            total = (endWeek - startWeek) * peakRate(cabinChoice)

        End If

        If (endWeek - startWeek) >= 3 Then

            total = total * 0.9

        End If

        Console.WriteLine("Your booking refrence is " & bookingRef) 'tells them the their booking refrence 

        Console.WriteLine("The total cost is $" & total) 'gives them total price

        Console.WriteLine("Would you like to go back to the cabin choices again?")

        response = Console.ReadLine()

        Select Case response

            Case "Yes"

                Console.WriteLine("This program will now end.")

                Exit Select

            Case "No"

                Console.WriteLine("You will now go back to the start of the selection component of the code..") 'goes back to the cabin selection

                Main()

        End Select

    End Sub

End Module