Imports System

Public Module Module1

    Public Sub Main()

        Console.WriteLine("Pick a shape")

        Console.WriteLine("1) Square")

        Console.WriteLine("2) Circle")

        Console.WriteLine("3) Rectangle")

        Console.WriteLine("4) Rhombus")

        Console.WriteLine("5) Triangle")

        Console.WriteLine("6) Kite")

        Dim choice as Integer

        choice = Console.ReadLine()

        Select case choice

        case 1:

            Console.WriteLine("Enter the side length")

            Dim s as new square

            s.side = Console.ReadLine()

            Console.WriteLine("Area:" & s.Area())

            Console.WriteLine("Perimeter:" & s.Perimeter())

        case 2:

            Console.WriteLine("Enter the radius")

            Dim c as new circle

            c.radius = Console.ReadLine()

            Console.WriteLine("Area:" & c.Area())

            Console.WriteLine("Perimeter:" & c.Perimeter())

        case 3:

            Console.WriteLine("Enter the side length")

            Console.WriteLine("Enter the other side length")

            Dim s as new rectangle

            s.side1 = Console.ReadLine()

            s.side2 = Console.ReadLine()

            Console.WriteLine("Area:" & s.Area())

            Console.WriteLine("Perimeter:" & s.Perimeter())

        case 4

            Console.WriteLine("Enter the first Diagonal")

            Console.WriteLine("Enter the second Diagonal")

            Console.WriteLine("Enter the Side")

            Dim s as new rhombus

            s.diagnol1 = Console.ReadLine()

            s.diagnol2 = Console.ReadLine()

            s.side = Console.ReadLine()

            Console.WriteLine("Area:" & s.Area())

            Console.WriteLine("Perimeter:" & s.Perimeter())

        case 5

            Console.WriteLine("Enter the base")

            Console.WriteLine("Enter the height_base")

            Console.WriteLine("Enter side1")

            Console.WriteLine("Enter side2")

            Dim s as new triangle

            s.base = Console.ReadLine()

            s.height_base = Console.ReadLine()

            s.side1 = Console.ReadLine()

            s.side2 = Console.ReadLine()

            Console.WriteLine("Area:" & s.Area())

            Console.WriteLine("Perimeter:" & s.Perimeter())

        case 6

            Console.WriteLine("Enter the first Diagonal")

            Console.WriteLine("Enter the second Diagonal")

            Console.WriteLine("Enter the Side1")

            Console.WriteLine("Enter the Side2")

            Dim s as new kite

            s.diagnol1 = Console.ReadLine()

            s.diagnol2 = Console.ReadLine()

            s.side1= Console.ReadLine()

            s.side2= Console.ReadLine()

            Console.WriteLine("Area:" & s.Area())

            Console.WriteLine("Perimeter:" & s.Perimeter())

        End Select

    End Sub

    Public Class Square

        Public property side as integer

            Public Function Area() as Integer

                return side * side

            End Function

            Public Function Perimeter() as Integer

                return 4*side

            End Function

    End Class

        Public Class Circle

            Public property radius as integer

            Public Function Area() as Integer

                    return Math.PI * radius *radius

            End Function

            Public Function Perimeter() as Integer

                    return Math.pi * radius * 2

            End Function

    End Class

        Public Class Rectangle

        Public property side1 as integer

        Public property side2 as integer

            Public Function Area() as Integer

            return side1 * side2

            End Function

            Public Function Perimeter() as Integer

            return 2*side2+2*side1

            End Function

    End Class

        Public Class rhombus

            Public property diagnol1 as integer

            Public property diagnol2 as integer

            Public property side as integer

            Public Function Area() as Integer

            return diagnol1*diagnol2/2

            End Function

            Public Function Perimeter() as Integer

            return 4*side

            End Function

    End Class

        Public Class triangle

            Public property base as integer

            Public property height_base as integer

            Public property side1 as integer

            Public property side2 as integer

            Public Function Area() as Integer

            return height_base*base/2

            End Function

            Public Function Perimeter() as Integer

            return side1+base+side2

            End Function

    End Class

            Public Class kite

            Public property diagnol1 as integer

            Public property diagnol2 as integer

            Public property side1 as integer

            Public property side2 as integer

            Public Function Area() as Integer

            return diagnol1*diagnol2/2

            End Function

            Public Function Perimeter() as Integer

            return side1+side2*2

            End Function

    End Class

End Module