elecciones

principal


' Gambas module file

' Gambas class file

INHERITS seresvivos

PUBLIC SUB main()
DIM mono AS seresvivos
DIM persona AS hombre

mono = NEW seresvivosmono.nacido(CDate("2/2/1992"))
mono.ponepatas(2)

PRINT "CLASE seresvivos:"
PRINT "***mono***"
PRINT "edad: "
PRINT mono.edad()
PRINT "nro de patas: "
PRINT mono.dicepatas()

persona =NEW nombre
persona.nacido(CDate("2/18/1972"))
persona.pone.nombre("ubaldo")
persona.ponenombre.apellido("dias ")

PRINT "SUB Clase(hereda de la clase servivo)"
PRINT "* * * nombre ***"PRINT "edad: "
PRINT persona.edad()
PRINT "nombrecompleto: "
PRINT persona.nombrecompleto()
WAIT 100

END



hombre
Gambas class file
PRIVATE nombre AS String
PRIVATEapellido AS String

principal


' Gambas module file

' Gambas class file

INHERITS seresvivos

PUBLIC SUB main()
DIM mono AS seresvivos
DIM persona AS hombre

mono = NEWseresvivos
mono.nacido(CDate("2/2/1992"))
mono.ponepatas(2)

PRINT "CLASE seresvivos:"
PRINT "***mono***"
PRINT "edad: "
PRINT mono.edad()
PRINT "nro de patas: "
PRINTmono.dicepatas()

persona = NEW nombre
persona.nacido(CDate("2/18/1972"))
persona.pone.nombre("ubaldo")
persona.ponenombre.apellido("dias ")

PRINT "SUB Clase(hereda de la clase servivo)"PRINT "* * * nombre ***"

PRINT "edad: "
PRINT persona.edad()
PRINT "nombrecompleto: "
PRINT persona.nombrecompleto()
WAIT 100

END



hombre
Gambas class file
PRIVATEnombre AS String
PRIVATE apellido AS String

principal


' Gambas module file

' Gambas class file

INHERITS seresvivos

PUBLIC SUB main()
DIM mono AS seresvivos
DIM persona AShombre

mono = NEW seresvivos
mono.nacido(CDate("2/2/1992"))
mono.ponepatas(2)

PRINT "CLASE seresvivos:"
PRINT "***mono***"
PRINT "edad: "
PRINT mono.edad()
PRINT "nro de...