Imports System

imports microsoft.visualbasic

​

Public Module Module1

​

    Public Sub Main()

        Console.ForegroundColor = 15

        Dim Choise As Integer

        Dim ColourChoise1 As String = 0

        Dim ColourChoise2 As String = 0

        Dim MyShape As New Shape

​

        Console.WriteLine("This program can print out some shapes with different colours.")

        Console.WriteLine("Menu")

        Console.WriteLine("1 Square")

        Console.WriteLine("2 Triangle")

        Console.WriteLine("3 Circle")

        Console.WriteLine("99 Exit Program")

​

​

        Do

            Console.ForegroundColor = ConsoleColor.White

            Console.BackgroundColor = ConsoleColor.Black

            Console.WriteLine()

            Console.WriteLine("Enter Choise")

            Choise = Console.ReadLine()

            Select Case Choise

                Case 1

                    MyShape = New Square

                Case 2

                    MyShape = New Triangle

                Case 3

                    MyShape = New Circle

                Case 99

                    Console.WriteLine("Exiting Program, press any button to finish...")

                Case Else

                    Console.WriteLine("Invalid Entry.")

            End Select

​

            If Choise = 1 Or Choise = 2 Or Choise = 3 Then

                Console.WriteLine("Choose a text colour (R-O-Y-G-B-V). No input assumes white.")

                ColourChoise1 = Console.ReadLine

                ColourChoise1 = StrToColour(ColourChoise1)

                If ColourChoise1 = -1 Then

                    Console.WriteLine("Black text has been chosen")

                    ColourChoise1 = 15

                End If

            End If

​

            If Choise = 1 Or Choise = 2 Or Choise = 3 Then

                Console.WriteLine("Choose a highlight colour (R-O-Y-G-B-V). No input assumes black.")

                ColourChoise2 = Console.ReadLine

                ColourChoise2 = StrToColour(ColourChoise2)

                If ColourChoise2 = -1 Then

                    Console.WriteLine("Black highlight has been chosen")

                    ColourChoise2 = 0

                End If

            End If

​

            MyShape.SetShapeName(IntToShape(Choise))

            MyShape.SetForegroundColour(ColourChoise1)

            MyShape.SetBackgroundColour(ColourChoise2)

​

            If Choise = 1 Or Choise = 2 Or Choise = 3 Then

                MyShape.Draw()

            End If

​

        Loop Until Choise = 99

        'Consolea.ReadKey()

    End Sub

​

    Public Class Shape

        Private BackgroundColour As Integer

        Private ForegroundColour As Integer

        Private ShapeName As String

​

        Public Sub SetShapeName(n As String)

            ShapeName = n

        End Sub

​

        Public Function GetShapeName() As String

            Return ShapeName

        End Function

​

        Public Sub SetBackgroundColour(b As Integer)

            BackgroundColour = b

            Console.BackgroundColor = BackgroundColour

        End Sub

​

        Public Sub SetForegroundColour(f As Integer)

            ForegroundColour = f

            Console.ForegroundColor = ForegroundColour

        End Sub

​

        Public Overridable Sub Draw()

            Console.WriteLine("Drawing a {0} {1} with a {2} highlight", ColourToStr(ForegroundColour), ShapeName, ColourToStr(BackgroundColour))

        End Sub

​

    End Class

​

    Public Class Square

        Inherits Shape

        Public Overrides Sub Draw()

            MyBase.Draw()

            Console.WriteLine("##########")

            Console.WriteLine("#        #")

            Console.WriteLine("#        #")

            Console.WriteLine("#        #")

            Console.WriteLine("#        #")

            Console.WriteLine("##########")

        End Sub

    End Class

​

    Public Class Triangle

        Inherits Shape

        Public Overrides Sub Draw()

            MyBase.Draw()

            Console.WriteLine("    #     ")

            Console.WriteLine("   # #    ")

            Console.WriteLine("  #   #   ")

            Console.WriteLine(" #     #  ")

            Console.WriteLine("#       # ")

            Console.WriteLine("##########")

        End Sub

    End Class

​

    Public Class Circle

        Inherits Shape

        Public Overrides Sub Draw()

            MyBase.Draw()

            Console.WriteLine("   ####   ")

            Console.WriteLine(" ##    ## ")

            Console.WriteLine("#        #")

            Console.WriteLine("#        #")

            Console.WriteLine(" ##    ## ")

            Console.WriteLine("   ####   ")

        End Sub

    End Class

​

    Public Function IntToShape(n As Integer) As String

        Select Case n

            Case 1

                Return "Square"

            Case 2

                Return "Triangle"

            Case 3

                Return "Circle"

            Case Else

                Return "??????????"

        End Select

    End Function

​

    Public Function StrToColour(n As String) As Integer

        Select Case LCase(n)

            Case LCase("R")

                Return 12

            Case LCase("O")

                Return 6

            Case LCase("Y")

                Return 14

            Case LCase("G")

                Return 10

            Case LCase("B")

                Return 9

            Case LCase("V")

                Return 13

            Case Else

                Return -1

        End Select

    End Function

​

    Public Function ColourToStr(n As Integer) As String

        Select Case n

            Case 12

                Return "red"

            Case 6

                Return "orange"

            Case 14

                Return "yellow"

            Case 10

                Return "green"

            Case 9

                Return "blue"

            Case 13

                Return "violet"

            Case 0

                Return "black"

            Case 15

                Return "white"

            Case Else

                Return "???????????"

        End Select

    End Function

End Module

​