Módulo VAR: Declarar Variables

En este proyecto vamos a utilizar variables tipo globales (osea que se pueden acceder a sus valores desde cualquier parte del programa).



Para ello en el módulo “var”, es donde vamos a declararlas (PUBLIC) y iniciarlas (RESIZE) (los arrays o matrices de datos hay que iniciarlos para poderlos utilizar).



Nuestros datos son las siguientes variables:

Datos	Nombre de la variable	Declaración
Id	id()	PUBLIC id AS NEW String[]
D.N.I.	dni()	PUBLIC dni AS NEW String[]
Nombre	nombre()	PUBLIC nombre AS NEW String[]
Apellidos	apellidos()	PUBLIC apellidos AS NEW String[]
Empresa	empresa()	PUBLIC empresa AS NEW String[]
Puesto de trabajo	puesto()	PUBLIC puesto AS NEW String[]
Telefono empresa	telf_empresa()	PUBLIC telf_empresa AS NEW String[]
Telefono particular	telf_parti()	PUBLIC telf_parti AS NEW String[]
Fax	fax()	PUBLIC fax AS NEW String[]
Movil Empresa	movil_empresa()	PUBLIC movil_empresa AS NEW String[]
Movil Particular	movil_parti()	PUBLIC movil_parti AS NEW String[]
Página web	pag()	PUBLIC pag AS NEW String[]
foto	foto()	PUBLIC foto AS NEW String[]
direccion	direccion()	PUBLIC direccion AS NEW String[]
observaciones	observaciones()	PUBLIC observaciones AS NEW String[]
Fecha de los datos	fecha_datos()	PUBLIC fecha_datos AS NEW String[]
Nota: Los datos serán cadenas de caracteres (string) y arrays (o matrices) por ello la palabra clave “NEW” y los corchetes “[]”

Ademas vamos a crear dentro de este módulo, una subrutina que reinicie las variables (esto se hace cada vez que se inicia el programa Listin, o cuando carguemos un archivos de datos).



Quedaría una cosa así: Modulo VAR

' Gambas module file

PUBLIC id AS NEW String[]

PUBLIC dni AS NEW String[]

PUBLIC nombre AS NEW String[]

PUBLIC apellidos AS NEW String[]

PUBLIC empresa AS NEW String[]

PUBLIC puesto AS NEW String[]

PUBLIC telf_empresa AS NEW String[]

PUBLIC telf_parti AS NEW String[]

PUBLIC fax AS NEW String[]

PUBLIC movil_empresa AS NEW String[]

PUBLIC movil_parti AS NEW String[]

PUBLIC pag AS NEW String[]

PUBLIC foto AS NEW String[]

PUBLIC direccion AS NEW String[]

PUBLIC observaciones AS NEW String[]

PUBLIC fecha_datos AS NEW String[]

PUBLIC correo AS NEW String[]

PUBLIC SUB reinicio()

var.id.Resize(0)

var.dni.Resize(0)

var.nombre.Resize(0)

var.apellidos.Resize(0)

var.empresa.Resize(0)

var.puesto.Resize(0)

var.telf_empresa.Resize(0)

var.telf_parti.Resize(0)

var.fax.Resize(0)

var.movil_empresa.Resize(0)

var.movil_parti.Resize(0)

var.pag.Resize(0)

var.foto.Resize(0)

var.direccion.Resize(0)

var.observaciones.Resize(0)

var.fecha_datos.Resize(0)

var.correo.Resize(0)

END

Para terminar en el formulario Fmain, cuando se produzca el evento abrir el formulario Form (“Open”) se debe ejecutar la subrutina reinicio del modulo var . Para ello introducimos el siguiente código en el formulario Fmain:

PUBLIC SUB Form_Open()

var.reinicio()

END