clase
Una clase (class), es un objeto especial en Gambas que permite agrupar características en común que tienen los objetos del mismo tipo.
Ejemplo de declaración y uso de una clase
Crear un nuevo proyecto de aplicación de consola.
Agregue una clase (Que se llame Class1)
Y en la
SUB Main cree dos instancias de Class1.
Observe que: Usted tiene todas las variables dos veces, es la misma estructura para cada instancia.
Observe que: Es necesario crear una instancia usando la instrucción
NEW.
El codigo para la Clase
' Gambas class file
PUBLIC fNumero AS Float
PUBLIC sCadena AS String
PUBLIC SUB Rutina()
PRINT "La rutina de la clase fue ejecutada"
fNumero = 4.5
sCadena = "Modificado desde la rutina"
END
El codigo ejemplo para el modulo MMain
' Gambas module file
PUBLIC cUno AS Class1
PUBLIC cDos AS Class1
PUBLIC SUB Main()
'Class1.sCadena = "Modificado desde Main" '<-- Marcaria el error: 'Class1.sCadena' is not static
'cUno.sCadena = "Modificado desde Main" ' <--- Marcaria el error: Null Object
cUno = NEW Class1
cDos = NEW Class1
cUno.sCadena = "Modificado desde Main"
cDos.sCadena = "Modificado desde main"
cUno.Rutina()
PRINT cUno, cUno.fNumero, cUno.sCadena
PRINT cDos, cDos.fNumero, cDos.sCadena
END
El resultado seria:
(Class1 0x9d26f0) 4.5 Modificado desde la rutina
(Class1 0x9d2740) 0 Modificado desde main
Véase también