Imports System

Public Module Module1

    Public Sub Main()

        Dim Shape As String=""

        Dim Size As String=""

        Dim Choice As Integer

        Dim ChoiceSize As Integer

        Dim choice_colour As String

        Dim Colour As String=""

        Dim depth As Integer

        Dim Price As Decimal

        Dim choicedepth As Integer

        Dim Total_Volume As Decimal

        Dim Volume As Decimal

        Const Pi As Double=3.142

        Const batch_size As Integer=20

        Const grey_price As Decimal=0.05

        Const setup_cost As Integer=5

        DO

            Console.WriteLine("1.Square")

            Console.WriteLine("2.Rectangular")

            Console.WriteLine("Rounded")

            Console.WriteLine("Enter your choice(1-3):")

            Choice=Console.readline()

            SELECT CASE

            CASE 1:Shape="Square"

            CASE 2:Shape="Rectangular"

            CASE 3:Shape="Rounded"

            CASE ELSE:Console.WriteLine("Invalid shape,re-enter")

            END SELECT 

        LOOP until choice>=1 AND choice<=3

        DO

            IF choice=1 Then

                Console.WriteLine("1.600*600")

                Console.WriteLine("2.450*450")

            ELSE IF choice=2 Then

                    Console.WriteLine("1.600*700")

                    Console.WriteLine("2.600*450")

                ELSE 

                    Console.WriteLine("1.Diameter:300")

                    Console.Writeline("2.Diameter:450")

                END IF 

                Console.WriteLine("Enter choice for size(1-2):")

                ChoiceSize=console.ReadLine()

                If choicesize<1 or ChoiceSize>2 THEN

                    Console.WriteLine("INVALID SIZE CHOSEN")

                END IF

            LOOP UNTIL ChoiceSize>=1 AND ChoiceSize<=2

            IF Shape="Square" THEN

                Select CASE ChoiceSize

                CASE 1

                    Size="600*600"

                    Volume=600*600

                CASE 2

                    Size="450*450"

                    Volume=450*450

                END SELECT

            ELSE IF shape="Rectangular"THEN

                    SELECT CASE ChoiceSize

                    CASE 1 

                        Size="600*700"

                        Volume=600*700

                    END SELECT

                END IF

            CASE 2

                Size="600*450"

                Volume=600*600

            END SELECT

        END IF

        DO

        ELSE IF Shape="Rounded"THEN

                Select case ChoiceSize

                CASE 1

                    Size="Diameter:300"

                    Volume=Pi*150*150

                CASE 2

                    Size="Diameter:450"

                    Volume=pi*225*225

                END SELECT

            END IF

            DO

                Console.WriteLine("1.38")

                Console.WriteLine("2.45")

                Console.WriteLine("Enter choice for depth(1-2):")

                Choicedepth=Console.ReadLine()

                IF Choicedepth=1 THEN

                    Depth=38

                ELSE IF Choicedepth=2 THEN

                        Depth=45

                    ELSE

                        Console.WriteLine("INVALID DEPTH)

                        END IF 

                    LOOP UNTIL choicedepth=1 OR choicedepth=2

                    VOLUME=VOLUME*DEPTH

                    TOTAL_VOLUME=VOLUME*BATCH_SIZE

                    PRICE=((TOTAL_VOLUME/100000)*GREY_PRICE)

                        DO 

                            Console.Writeline("1.GREY")

                            Console.Writeline("2.RED")

                            Console.Writeline("3.GREEN")

                            Console.Writeline("4.CUSTOM")

                            Console.Writeline("Enter Colour Choice(1-4):")

                            choice_colour=console.readline()

                            Select CASE choice_colour

                            CASE 1

                                IF colour="Grey"THEN

                                    Price=price

                                CASE 2 

                                    IF colour="Red"THEN

                                        Price=price*1.1

                                    CASE 3

                                        IF colour="green"

                                            Price=price*1.1

                                        CASE 4

                                            IF colour="custom"

                                                Price=(price*1.15)+setup_cost

                                            CASE ELSE

                                                Console.writeline("Invalid Colour")

                                            END IF

                                        END SELECT

                                    Loop until choice_colour>=1 and choice_colour<=4

                                    Console.writeline("Shape is"& shape)

                                    Console.writeline("Shape is"& colour)

                                    Console.writeline("Shape is"& depth)

                                    Console.Writeline("Shape is"& size)

                                    Console.writeline("Shape is"& price)

                                    Console.readline()

                                        End Sub

            End Module