CREACION DE OBJETOS EN GAMBAS

Crear un nuevo de proyecto de consola en Gambas
Crear dos Clases con los siguientes nombres:

1.- SerVivo
2.- Hombre

******************
Clase SerVivo
******************
' Gambas class file
PRIVATE patas AS Integer
PRIVATE nacimiento AS Integer

PUBLIC SUB nacido(fecha AS Date)
nacimiento = Year(fecha)
END

PUBLIC SUB PonePatas(numero AS Integer)
Patas = numero
END

PUBLIC FUNCTION edad() AS Integer
RETURN Year(Now) - nacimiento
END

PUBLIC FUNCTION dicePatas() AS Integer
RETURN patas
END


*****************
Clase Hombre
*****************
' Gambas class file
INHERITS SeresVivos
PRIVATE Nombre AS String
PRIVATE Apellido AS String

PUBLIC SUB PoneNombre(cadena AS String)
Nombre = cadena
END

PUBLIC SUB PoneApellido(cadena AS String)
Apellido = cadena
END

PUBLIC FUNCTION Nombrecompleto() AS String
RETURN Nombre & " " & Apellido
END


*******************
modulo
******************
' Gambas module file
PUBLIC SUB Main()
DIM mono AS SeresVivos
DIM persona AS Hombre
‘*******************************
mono = NEW SeresVivos
mono.nacido(CDate("2/2/1992"))
mono.PonePatas(3)
PRINT mono.edad()
PRINT mono.dicePatas()
‘********************************
persona = NEW Hombre
persona.nacido(CDate("2/18/1969"))
persona.PoneNombre("Vicente")
persona.PoneApellido("Perez")
PRINT persona.edad()
PRINT persona.Nombrecompleto()
END

*****************
FIN
***************