Como un ejercicio final, vamos a convertir este programa en algo más completo, para una aplicación GUI con Visual PRO/5. Para hacer eso, vamos a crear una ventana de terminal invisible en el config.bbx.

ALIAS T2 SYSWINDOW "Terminal Invisible" INVISIBLE

Luego entonces cambie el programa de modo que termine con un RELEASE, no con un END.

0070 RELEASE

Ahora también vamos a adaptar un icono cualquiera.

0035 PRINT (1)'MINICON'("PROGMAN.EXE",10)

Ahora modificaremos un icono en Windows para que invoque el comando de esa línea (y utilice un icono cualquiera a opción suya).

vpro5 –tT3 Ejerc1

El programa Ejerc1 ahora correrá y terminará sin que aparezca la ventana de la consola.

Ejercicio de SYSGUI #2: Haciendo que las cosas trabajen

En este Ejercicio, vamos a trabajar en modo inmediato, para realizar un experimento con algunos de los mnemónicos que trabajan con el sistema del GUI.

Vamos a comenzar creando una ventana y poniendo un botón en ella, similarmente a como se hizo con el programa Hola Mundo. Observemos que esta vez no usaremos banderas para la creación de ventanas.

0001 REM "EJERC2 Práctica de pág.25/26
0010 BEGIN; OPEN (1)"X0"
0020 PRINT (1)'SEMICHARS'
0030 PRINT (1)'WINDOW'(50,50,50,50,"Test",$$)

¡NOTA! Desde que usted está trabajando en modo inmediato, el SYSWINDOW inmediatamente llegará al frente, para obtener su siguiente línea de entrada. Lo normal es que al dar ENTER, la ventana de GUI que usted está creando aparezca y desvanezca en forma inmediata. Todo eso es correcto. Usted puede hacer que reaparezca oprimiendo <Alt>+<Tab>. Escriba ahora:

0040 PRINT (1)'BUTTON'(1,5,15,40,0,"Ok",$$)

El uno en negrita corresponde al ID asignado al botón.

En este punto, la ventana debería ser similar a la del ejemplo de Hola Mundo, excepto que la ventana no tiene caja de cierre, no puede ser minimizada, y tampoco cambiada de tamaño.

Seguidamente, trate ahora de crear otro botón usando como ID siempre el número 1.

0050 PRINT (1)'BUTTON'(1,5,30,40,0,"Cancelar",$$)

Córralo y verá que un ERROR=29 será dado, cuyo TCB(10) será igual a 12.