EJEMPLO 2. CLASES ABSTRACTAS

EN ESTE PROGRAMA ESTAMOS IMPLEMENTANDO CLASES ABSTRACTAS.
CONTIENE 3 CLASES Y UN MODULO PRINCIPAL

Public MustInherit Class poligono
Protected m_x, m_y As Double
Public Property x() As Double
Get
Return m_x
End Get
Set(ByVal Value As Double)
m_x = Value
End Set
End Property
Public Property y() As Double
Get
Return m_y
End Get
Set(ByVal Value As Double)
m_y = Value
End Set
End Property

Public MustOverride Function calcular() As Double

End Class


Public Class cuadrado
Inherits poligono

Public Overrides Function calcular() As Double
Return m_x * m_y
End Function

Public Sub New(Optional ByVal x As Double = 0, Optional ByVal y As Double = 0)
m_x = x
m_y = y
End Sub
End Class


Public Class triangulo
Inherits poligono
Public Overrides Function calcular() As Double
Return (x * y) / 2
End Function
Public Sub New(Optional ByVal x As Double = 0, Optional ByVal y As Double = 0)
m_x = x
m_y = y
End Sub

End Class

' MODULO PRINCIPAL

Module Module1
Sub Main
Dim pol As poligono = New cuadrado (10,5)
MSGBOX(CStr(pol.calcular())

pol = New triangulo (10,10)
MSGBOX(CStr(pol.calcular())
End sub
End Module