Write a Console Application to create shape class & derive circle & rectangle from it to demonstrate the method over-riding concept
Module Module1
Class Shape
Public area As Double
Public color As String
Public Overridable Sub calcArea()
Console.WriteLine("inside the get area method of Shape class")
Console.WriteLine()
End Sub
Public Sub printArea()
Console.WriteLine("the area of the Shape is: " + area.ToString())
End Sub
End Class
Class Circle
Inherits Shape
Public radius As Double
Public Overrides Sub calcArea()
area = 3.1415 * radius * radius
End Sub
End Class
Class Rectangle
Inherits Shape
Public width As Double
Public height As Double
Public Overrides Sub calcArea()
area = width * height
End Sub
End Class
Sub Main()
Dim sap As New Shape
sap.calcArea()
Dim cir As New Circle
Console.Write("Enter the radius of circle :")
cir.radius = Convert.ToDouble(Console.ReadLine())
cir.calcArea()
cir.printArea()
Dim rect As New Rectangle
Console.Write("please enter the height of rectangle :")
rect.height = Convert.ToDouble(Console.ReadLine())
Console.Write("please enter the widht of rectangle :")
rect.width = Convert.ToDouble(Console.ReadLine())
rect.calcArea()
rect.printArea()
Console.ReadLine()
End Sub
End Module
