'Robbin Swanink
'16/11/2017
module Calculator
    sub main
        Dim number1 As Integer
        Dim number2 As Integer
        Dim x As Integer

        Console.Writeline("")
        Console.Writeline("Greetings, operator. This is a simple program that performs simple calculations.")
        Console.Writeline("Please enter an option.")
        Console.Writeline("---------------------------------------------------------------------")
        Console.Writeline("| 1. Addition    | 2. Subtraction | 3. Multiplication | 4. Division |")
        Console.Writeline("---------------------------------------------------------------------")
        Console.Writeline("          5. End program")
        Console.Writeline("          6. Extra")

        x = Console.Readline

        Do While x <> 5
            If x = 1 Then
                Console.Writeline("You chose ADDITION.")
                threading.thread.sleep(1000)
                Console.Writeline("Please enter the first number.")
                number1 = Console.Readline
                Console.Writeline("Please enter the second number.")
                number2 = Console.Readline
                Console.Writeline(number1+number2)

            ElseIf x = 2 Then
                Console.Writeline("You chose SUBTRACTION.")
                threading.thread.sleep(1000)
                Console.Writeline("Please enter the first number.")
                number1 = Console.Readline
                Console.Writeline("Please enter the second number.")
                number2 = Console.Readline
                Console.Writeline(number1-number2)

            ElseIf x = 3 Then
                Console.Writeline("You chose MULTIPLICATION.")
                threading.thread.sleep(1000)
                Console.Writeline("Please enter the first number.")
                number1 = Console.Readline
                Console.Writeline("Please enter the second number.")
                number2 = Console.Readline
                Console.Writeline(number1*number2)

            ElseIf x = 4 Then
                Console.Writeline("You chose DIVISION.")
                threading.thread.sleep(1000)
                Console.Writeline("Please enter the first number.")
                number1 = Console.Readline
                Console.Writeline("Please enter the second number.")
                number2 = Console.Readline
                Console.Writeline(number1/number2)

            ElseIf x = 6 Then
                Console.Writeline("                                                                                                                          _   ")
                Console.Writeline(" _____     _              _____         _           _                                       _       _           ___ ___ _| |_ ")
                Console.Writeline("|   __|_ _| |_ ___ ___   |     |___ ___| |_ ___ ___| |_    ___ ___ ___ ___    ___ ___ ___ _| |___ _| |   ___   |_  |   |   __|")
                Console.Writeline("|   __|_'_|  _|  _| .'|  |   --| . |   |  _| -_|   |  _|  | . | .'|_ -|_ -|  |   | -_| -_| . | -_| . |  |___|  |_  | | |__   |")
                Console.Writeline("|_____|_,_|_| |_| |__,|  |_____|___|_|_|_| |___|_|_|_|    |  _|__,|___|___|  |_|_|___|___|___|___|___|         |___|___|_   _|")
                Console.Writeline("                                                          |_|                                                            |_|  ")
                Console.Writeline("                                               ....................../´¯/)")
                Console.Writeline("                                               ....................,/¯../")
                Console.Writeline("                                               .................../..../")
                Console.Writeline("                                               ............./´¯/'...'/´¯¯`·¸")
                Console.Writeline("                                               ........../'/.../..../......./¨¯\")
                Console.Writeline("                                               ........('(...´...´.... ¯~/'...')")
                Console.Writeline("                                               .........\.................'...../")
                Console.Writeline("                                               ..........''...\.......... _.·´")
                Console.Writeline("                                               ............\..............(")
                Console.Writeline("                                               ..............\.............\...")




            Else
                Console.Writeline("There is no option such as: " & x & ".")
            End If
            Console.Writeline("")
            Console.Writeline("Is there something you else you want to calculate?")
            Console.Writeline("Enter the number of the option")
            x = Console.Readline
        Loop

        If x = 5 Then
            Console.Writeline("Shutting down.")
            threading.thread.sleep(1000)
            Console.Writeline("Shutting down..")
            threading.thread.sleep(1000)
            Console.Writeline("Shutting down...")
            threading.thread.sleep(1000)
            Console.Writeline("Program Ended.")
            End
        End If
    end sub
end module