- Code: Select all
PROGRAM Tutorial_0;
GLOBAL:
DIR_naveFPG ="tutorial\tutor0.fpg";
/* este archivo contiene varios graficos
* lugar 1 : la nave
* lugar 2 : el fondo
*/
ID_naveFPG;
fondo = 0; //identificador del fondo
fuenteprueba;
dir_fuente = "help\help.fnt";
BEGIN
fuenteprueba = load_fnt(dir_fuente);
TRY
//comienzo del bloq TRy lineas q pueden generar un error
ID_naveFPG = load_fpg(DIR_naveFPG); // Loads grphics' file
END //del bloque TRY
CATCH //esto se ejecuta si ocurre un error
write(fuentePrueba, 0, 0, 3, "Error al cargar archivo");
END
FINALLY
//este bloq siempre se ejecuta hayya error o no
END
put_screen(fondo,2); // Sets graphic number 2 as screen background
ship(); // Creates a "ship" type process
END
esto seria muy uitl no para probar las cargas de archivo...
sino para las transacciones con la base datos...
- Code: Select all
... TRY
//comienzo del bloq TRy lineas q pueden generar un error
AbrirConeccionBD(My_DB);
TRY //inicio del bloque try de las transacciones
ActualizarRegistro(My_DB, registro); //siendo registro una estructura...
END //del bloque try de las transacciones
CATCH
write(fuentePrueba, 0, 0, 3, "Error al realizar la actualizacion de datos");
END //del bloque TRY de conexxion
CATCH //esto se ejecuta si ocurre un error
write(fuentePrueba, 0, 0, 3, "Error al stablecer conexxion con la base d datos");
END
FINALLY
//este bloq siempre se ejecuta hayya error o no
CerrarCoeccionBD(My_DB);
END
...
