Gambas

Entrada y salida de Ficheros
Archivo= Open Nombre_de_Archivo For Read Input Write Output Create Append Watch
Los archivos pueden ser abiertos para diferentes fines, cuando se trabaja con archivos se utiliza
en la apertura de este instrucciones, tales como:
•
•
•
•
•

Read o Input: Ambos permiten la lectura de los archivos, Read no usa buffers para la lectura
mientras que Input si.Write o Output: Ambos permiten la escritura de los archivos, Write no usa buffers para la
escritura mientras que Output si.
Create: Si el fichero no existe se crea, si no se usa esta palabra el fichero debe existir antes de
abrirlo o dará error.
Append: Los datos se añaden al final del archivo.
Watch: Le permite a gambas el lanzamiento de eventos relacionados con los archivos
(file_read,file_write, etc).
Siempre que se termina de utilizar un archivo este debe cerrarse, para ello se usa la sentencia

Close.
Close [#] Archivo
Imprimir archivos se hace de la siguiente manera.
Print #Archivo, Expresión
Escribir archivos se hace de la siguiente manera.
Write #Archivo, Expresión, Longitud
Input #Archivo, Variable 1, Variable2...
Leer archivos se hace de la siguiente manera.
Read#Archivo, Variable, Longitud
Line Input #Archivo, Variable
Determinar Final de un Archivo.
Eof(Archivo)
Flujo de archivos.
Lof(flujo)
Si el flujo es un archivo devuelve el tamaño de este, si es conexión de red o procesos devuelve el
numero de bytes que pueden ser leídos de una sola vez.

Control de Errores
Sentencia Try: Ejecuta la sentencia sin lanzar error aunque se produzcan errores,el programa
ejecuta la instrucción después del Try existan errores o no. Para saber si hay error o no puede usarse la
sentencia Error para saberlo:
Try Kill “/tmp/prueba/”
If Error then Print “Ocurrió un Error”
Sentencia Finally: Se coloca al final de un procedimiento, las instrucciones que siguen a
continuación se ejecutan siempre, tanto si hubo errores en procedimientos o no.
SentenciaCatch: Se coloca al final de un procedimiento, las instrucciones que siguen a
continuación se ejecutan siempre y cuando hubo errores en procedimientos. Si existe una sentencia
Finally debe colocarse antes del Catch.
Public sub imprimir(nombre_archivo as string)
Dim archivo as File
Dim Linea as String
Open nombre_archivo for Read as #archivo
while not Eof(archivo)
Line Input #archivo, LineaPrint Linea
whend
Finally
Close #archivo
Catch
print “imposible mostrar archivo”; nombre_archivo
End

Formularios
SÁBADO, 16 DE JUNIO DE 2012

Como hacer una calculadora
Vamos a crear una aplicación muy conocida cuando empezamos con
un entorno visual. Una calculadora.

La imagen final sera así:

Con esta calculadora podrás hacer las operaciones básicas.
La pantalla se borraracada vez que hagamos una operación
para mostrar el resultado.

Empezamos por un formulario:

Esta formulario tiene:

Propiedad Height (Altura) del formulario: 272
Propiedad Width (Ancho) del formulario: 232

Como no queremos que la imagen se agrande, cambiaremos
la propiedad Resizable a False. Desaparecerá el icono de maximizar.

Necesitaremos para comenzar una etiqueta que seranuestra pantalla LCD.
Dentro de un formulario tenemos unas coordenadas X e Y. Fijaros en las propiedades de este. Luego,vamos a la
caja de herramientas, que tenemos todos nuestros componentes y seleccionamos label.

Situamos la etiqueta en:
X =11 e Y =15

Si no podéis colocarlo con el cursor el componente.
Usar sus propiedades X e Y. ;-)

Le damos un alto y un ancho.

Height: 32 y Width: 208Ahora fijaros. La etiqueta debería dar la sensación de que tiene profundidad.
Así que cambiaremos su propiedad Border a Sunken.(Hundida).
Probar a ver que pasa si cambiareis a otros modos.

Para que los números comiencen por su derecha, debemos cambiar su alineación. Así que en la propiedad Align
cambiaremos a RIGHT (derecha).

Vamos a la propiedad nombre y la cambiamos a Pantalla...