domingo, 26 de junio de 2011

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

No hay comentarios:

Publicar un comentario en la entrada