H/W 3

Module Module1

    Sub Main()

        Console.ForegroundColor = ConsoleColor.Green

        'Payroll()
        'TimesTable()
        'Numbers()
        'Addition()
        GuessTheNumber()
    End Sub

    Sub Payroll()
        Dim TotalHours As Integer = 0
        Dim Hours As Integer
        Dim day As String = "Monday"
        Dim days As Integer
        Dim Payrate As Single
        Dim TotalPay As Single

        Console.WriteLine("What is you pay per hour??")
        Payrate = Console.ReadLine()

        For days = 1 To 7

            If days = 1 Then
                day = "Monday"
            ElseIf days = 2 Then
                day = "Tuesday"
            ElseIf days = 3 Then
                day = "wednesday"
            ElseIf days = 4 Then
                day = "Thursday"
            ElseIf days = 5 Then
                day = "Friday"
            ElseIf days = 6 Then
                day = "Saturday"
            ElseIf days = 7 Then
                day = "Sunday"
            End If

            Console.WriteLine("how many hours do you work on " & day)
            Hours = Console.ReadLine()
            TotalHours = TotalHours + Hours
        Next

        TotalPay = TotalHours * Payrate
        Console.WriteLine("Your total earnings are £" & TotalPay)
        Console.ReadKey()

    End Sub

    Sub TimesTable()
        Dim UserInput As Integer
        Dim Output As Integer
        Dim Multiple As Integer = 1

        Console.WriteLine("Please input the times table you would like displayed")
        UserInput = Console.ReadLine()
        Console.WriteLine()
        Console.ForegroundColor = ConsoleColor.Red

        For Multiple = 1 To 12
            Output = UserInput * Multiple
            Console.WriteLine(Output)
        Next

        Console.ForegroundColor = ConsoleColor.Green
        Console.ReadKey()
    End Sub

    Sub Numbers()
        Dim UserInput As Integer
        Dim Sum As Integer
        Dim Average As Single
        Dim LargestNumber As Integer
        Dim SmallestNumber As Integer


        Console.WriteLine("Please enter a number")
        UserInput = Console.ReadLine()
        LargestNumber = UserInput
        SmallestNumber = UserInput

        For v = 1 To 9
            Console.WriteLine("Please enter another number")
            UserInput = Console.ReadLine()
            Sum = Sum + UserInput

            If UserInput > LargestNumber Then
                LargestNumber = UserInput
            End If

            If UserInput < SmallestNumber Then
                SmallestNumber = UserInput
            End If
        Next

        Average = Sum / 10
        Console.WriteLine()
        Console.WriteLine("Sum: " & Sum)
        Console.WriteLine("Average: " & Average)
        Console.WriteLine("Largest number: " & LargestNumber)
        Console.WriteLine("Smallest number: " & SmallestNumber)
        Console.ReadKey()

    End Sub

    Sub Addition()
        Dim number As Integer
        Dim Numbers As Integer

        Console.ForegroundColor = ConsoleColor.Red
        Console.WriteLine("  1 2 3 4")
        Console.ForegroundColor = ConsoleColor.Green
        number = 2

        For Numbers = 1 To 4
            Console.ForegroundColor = ConsoleColor.Red
            Console.Write(Numbers)
            For i = 1 To 4
                Console.Write(number)
                number = number + 1
                Console.Write("")
            Next
            Console.WriteLine()
            Console.ForegroundColor = ConsoleColor.Green
        Next

        Console.ReadKey()

    End Sub

    Sub GuessTheNumber()
        Dim UserInput As Integer
        Dim RandomNumber As Integer = Int(Rnd() * 100) + 1
        Dim Guesses As Integer
        Dim Difficulty As String
        Dim GameOver As Boolean = False
        Dim PlayAgain As String

        Console.WriteLine("Would you like to play on easy, medium or hard difficulty?")
        Difficulty = Console.ReadLine()
        If Difficulty = "easy" Then
            Guesses = 10
        ElseIf Difficulty = "medium" Then
            Guesses = 7
        ElseIf Difficulty = "hard" Then
            Guesses = 4
        End If

        Console.WriteLine("A random number between 1 and 100 has been generated...")
        Console.WriteLine("Try to guess the number...")

            For i = 1 To Guesses
                UserInput = Console.ReadLine()
                If UserInput > RandomNumber Then
                    Console.WriteLine("Your Guess was too high")
                ElseIf UserInput < RandomNumber Then
                    Console.WriteLine("Your Guess was too low")
                ElseIf UserInput = RandomNumber Then
                    Console.WriteLine("Correct!!!")
                    GameOver = True
                    Exit For
            End If
        Next

        If GameOver = False Then
            Console.WriteLine("")
            Console.ForegroundColor = ConsoleColor.Red
            Console.WriteLine("You Lose!!")
            Console.ForegroundColor = ConsoleColor.Green
        ElseIf GameOver = True Then
            Console.WriteLine("")
            Console.WriteLine("You Win!!")
        End If
        Console.WriteLine("Would you like to play again? (y/n)")
        PlayAgain = Console.ReadLine()
        If PlayAgain = "y" Then
            GuessTheNumber()
        End If
    End Sub
End Module