Vamos a pasar a describir un ejemplo de herencia y polimorfismo en Gambas3.
El objetivo es hacer un programa que calcule el perímetro de rectángulos, cuadrados y circunferencia, usando la programación orientada a objetos.
Podemos crear una clase, la llamaremos classfigura, que englobe a los diversos tipos (rectangulo,cuadrado,circuferencia).
Esta clase figura tendrá un método para calculo del perimetro (CalculoPerimetro) y otro que he añadido para que nos de información de la figura.
'
Gambas class file
Public
Function
CalculoPerimetro() As
Float
End
Public
Function
define() As
String
End
Ahora añadiremos varias clases, que hereden de la clase figura. Esto se hace haciendo click con el botón derecho en el menu del proyecto:
Pulsando en el menu "Nuevo" y luego "Clase"
Ahora eligimos que herede de la clase Figura y le pondremos el nombre de ClassCuadrado
Repetimos los pasos para crear las clases ClassRectangulo y ClassCirculo, todas ellas heredan de la la classFigura.
Ahora, nos vamos a la clase Cuadrado, y redefinimos las funciones (a esto se le llama polimorfismo):
'
Gambas class file
Export
Inherits
ClassFigura
Private
$lado As
Float
Public
Sub
_new(lado As
Float) ''constructor:
pide las longitudes del lado
$lado
=
lado
End
Public
Function
CalculoPerimetro() As
Float ''
calculo del perimetro
Dim
perimetro As
Float
perimetro
=
$lado *
4
Return
perimetro
End
Public
Function
define() As
String
''Escribe
que figura es
Return
"Cuadrado"
End
Ahora la clase Réctangulo: classRectangulo
'
Gambas class file
Export
Inherits
ClassFigura
Private
$ladoA As
Float
Private
$ladoB As
Float
Public
Sub
_new(ladoA As
Float, ladoB As
Float) ''constructor:
pide las longitudes de los lados A y B
$ladoA
=
ladoA
$ladoB
=
ladoB
End
Public
Function
CalculoPerimetro() As
Float ''
calculo del perimetro
Dim
perimetro As
Float
perimetro
=
$ladoA *
2
+
2
*
$ladoB
Return
perimetro
End
Public
Function
define() As
String
''Escribe
que figura es
Return
"Rectangulo"
End
Y ahora la clase Circulo: classCirculo
'
Gambas class file
Export
Inherits
ClassFigura
Private
$radio As
Float
Public
Sub
_new(radio As
Float) ''constructor:
pide el radio del circulo
$radio
=
radio
End
Public
Function
CalculoPerimetro() As
Float ''
calculo del perimetro
Dim
perimetro As
Float
perimetro
=
2
*
$radio *
Pi
Return
perimetro
End
Public
Function
define() As
String
''Escribe
que figura es
Return
"Circulo"
End
Por ahora no vemos nada nuevo.. ninguna utilidad...¿no?... ahora verás...
En la clase de inicio, vamos a definir varias instancias y una función "infome":
'
Gambas module file
Public
Sub
Main()
Dim
cua As
New
ClassCuadrado(19)
Dim
rect As
New
ClassRectangulo(10,
5)
Dim
cir As
New
ClassCirculo(8)
Print
"Escribimos
los perimetros de las figuras creadas anteriormente"
informe(cua)
informe(rect)
informe(cir)
End
Public
Function
informe(a As
ClassFigura) As
Float
Print
a.define();
"
";
Print
a.CalculoPerimetro()
End
Fíjate que la función
informe recibe como
argumento una clase figura, y en la funcion Main, le estamos mandando diversas clases (pero todas ellas heredan de la clase figura!!!)
Lo que nos va a imprimir, va a hacer el cálculo del perímetro, siendo la forma de calcularmo como lo hayamos definido en la figura que le mandemos...
Resultado en la consola:
Escribimos
los perimetros de las figuras creadas anteriormente
Cuadrado
76
Rectangulo
30
Circulo
50,2654824574367
La gran ventaja que tiene este método, es que el día de mañana, que añadamos una nueva figura (por ejemplo una elipse), la función "informe" no cambiará en nada, siendo capaz de darnos el cálculo del perímetro.
Actividad:
1) Añade la claseElipse, para que nos calcule el perimetro.
2) Añade a las clases anteriores la fórmula de cálculo del área. Y que el programa principal sea capaz de darnos el área de las figuras.
Enlace de descarga del ejemplo:
Enlace
