5.- Pantalla inicial y Menú
Para el diseño de las pantallas, podemos utilizar esas plantillas de
cuadritos de 80 x 25, con las cual podemos plasmarlas en papel antes de
programarlas. Así si el diseño no es el que esperamos se puede borrar y
empezar de nuevo.
En éste capítulo, veremos como se hace
la pantalla principal de nuestra aplicación y el menú con las opciones
disponibles.
Las frases en éste color son comentarios.
| »»
PANTALLA PRINCIPAL |
Primero borraremos
toda la pantalla y generaremos dos cuadros, donde irá el menú e
información sobre la aplicación. Mostraremos con letras grandes el
nombre de nuestro programa. |
El caracter que sale aqui como Û
es (alt+219).
CERO.
MOVE
11182462 TO CUADRO PERFORM DIBUJAR THRU DIBUJA2.
MOVE 18202233 TO CUADRO
PERFORM DIBUJAR THRU DIBUJA2.
DISPLAY "
ÛÛÛ ÛÛÛÛ
ÛÛÛÛÛ Û
Û ÛÛÛÛ ÛÛÛ
"
LINE 12 COL 20 LOW CONTROL "FCOLOR=RED".
DISPLAY "Û
Û
Û
Û
ÛÛ Û
Û Û
Û Û"
LINE 13 COL 20 LOW.
DISPLAY "ÛÛÛÛÛ
Û ÛÛ ÛÛÛ
Û Û Û
Û Û ÛÛÛÛÛ"
LINE 14 COL 20 LOW.
DISPLAY "Û
Û Û
Û
Û
Û ÛÛ
Û Û
Û Û"
LINE 15 COL 20 LOW.
DISPLAY "Û
Û ÛÛÛÛ
ÛÛÛÛÛ Û
Û ÛÛÛÛ
Û Û"
LINE 16 COL 20 LOW.
aceptamos la fecha y el día,
para generar una línea informativa en nuestra pantalla
principal.
ACCEPT
FECA FROM DATE MOVE FI TO FF MOVE FA TO FI.
MOVE FF TO FA ACCEPT DIA FROM
DAY-OF-WEEK.
MOVE TSEM (DIA) TO LFDDIA
MOVE FI TO LFDNUM.
MOVE TMES (FM) TO LFDMES MOVE
FA TO LFDANO.
DISPLAY LIFEDI LINE 23 COL 22
LOW CONTROL "FCOLOR=BLUE". |
|
| »»
MENU |
En
éstos párrafos, dibujamos las opciones del menú que previamente
tenemos definidas en una tabla y las mostramos. Hacemos que el
menú funcione con las flechas arriba y abajo y Enter para
seleccionar. También mostraremos una explicación de cada opción
cuando estemos sobre ellas. Los párrafos de socios y listado son
provisionales y nos indicarán donde se dirigirá el programa una
vez seleccionados esas opciones en el menú. |
UNO.
MOVE 0
TO ELE MOVE 19 TO LI.
DOS.
ADD 1 TO ELE IF ELE > 3
MOVE 1 TO ELE GO TRES.
DISPLAY ELEOPC (ELE) LINE LI
COL 21 LOW.
ADD 1 TO LI.
GO DOS.
TRES.
IF ELE
< 1 MOVE 3 TO ELE.
IF ELE > 3 MOVE 1 TO ELE.
COMPUTE LI = ELE + 18.
DISPLAY ELEOPC (ELE) LINE LI
COL 21 LOW REVERSE.
DISPLAY ELEME1 (ELE) LINE 20
COL 35.
DISPLAY ELEME2 (ELE) LINE 21
COL 35.
ACCEPT OP LINE LI COL 21 OFF
NO BEEP
ON EXCEPTION ESCA NEXT SENTENCE.
DISPLAY ELEOPC (ELE) LINE LI
COL 21 LOW.
DISPLAY SPACES LINE 20 COL 35
SIZE 26.
DISPLAY SPACES LINE 21 COL 35
SIZE 26.
IF ESCA = 27 GO SALIR.
IF ESCA = 53 COMPUTE ELE =
ELE + 1 GO TRES.
IF ESCA = 52 SUBTRACT 1 FROM
ELE GO TRES.
IF ESCA = 13 NEXT SENTENCE
ELSE GO TRES.
DISPLAY ELEOPC (ELE) LINE LI
COL 21 LOW REVERSE.
GO SOCIOS LISTADO SALIR
DEPENDING ON ELE.
párrafos provisionales.
SOCIOS.
DISPLAY "ELIGIO
CONTACTOS" LINE 20 COL 35.
ACCEPT OP LINE 21 COL 35 OFF
NO BEEP.
GO TRES.
LISTADO.
DISPLAY "ELIGIO
LISTADO" LINE 20 COL 35.
ACCEPT OP LINE 21 COL 35 OFF
NO BEEP.
GO TRES. |
 |
En el siguiente capítulo, haremos el
mantenimiento del archivo de contactos de nuestra agenda.
|
|