Cobol en español
  Página de Inicio Recomiéndala Contáctame Usuarios en Linea
12
     Crea Una cuenta  
Video 1
Video 2
Video 3

Si te ha servido la web
o te han gustado los videos, colabora haciendo click en el botón.

MANUALES
TEMATICOS
BASES DE DATOS
COBOL / WINDOWS
COBOL / UNIX
HISTORIA /DOCS
 
BUSCADOR
PROGRAMANDO-Dos
TRUCOS
AÑO 2.000
TEORIA POWCOB-3
PROG. POWCOB-3
TEORIA POWCOB-5
PROG. POWCOB-5
OCX-ESCOBOL
RUTINAS/MANUALES
OCX / JUEGOS
HERRAMIENTAS
COMPILADORES
ENCUESTAS
ENLACES
FOROS
TOP 10

CHAT   Usuarios: 0
Trucos
TEMARIONúmeros Aleatorios
Sec. Escape a Impresoras
Imp. ¿Pantalla o Impresora?
Dibujar Cuadros o Líneas
Años Bisiestos
Ventana de Opciones
Campos Tipo Hora
Busqueda de Cadenas
Mandar un e-mail
Pequeño Editor Texto
Día de la Semana
Registros / Fichero
ListBox en modo caracter

Ventana de Opciones

(722 palabras totales en este texto)
(12599 Lecturas)   Versión Imprimible



A todos nos gusta que nuestros programas sean lo mas fáciles y agradables para el usuario. Una de las tareas que mas nos ayuda a conseguirlo es el mostrar las opciones posibles en una ventana y poder movernos por las opciones con las flechas. Desde aquí voy a explicar una manera sencilla de hacerlo, eso si con un número limitado de opciones, en la sección utilidades podréis encontrar una rutina para hacerlo con un número ilimitado de íineas siempre dentro de una pequeña ventana.

Antes de nada, nos definimos nuestro menú de opciones o cualquier otra cosa, que queramos mostrar a modo de elección, por ejemplo en una tabla en la Working-Storage y dibujamos la ventana como queramos, a mano, con la rutina de mas arriba o una ventana real utilizando para ello lo explicado en la sección de manuales. Yo voy a hacerlo con la ventana virtual en RM/Cobol.

...
WORKING-STORAGE SECTION.
01  TABLA-OPCIONES.
(definimos 7 opciones de 10 caracteres cada una).
     02  FILLER PIC X(30) VALUE "CONSULTAS LISTADOS   EXTRACTOS ".
     02  FILLER PIC X(30) VALUE "ALTAS      BAJAS     MODIFACION".
     02  FILLER PIC X(10) VALUE "SALIR      ".
01  RTABLA REDEFINES TABLA-OPCIONES.
     02  ELEMEN     PIC X(10) OCCURS 7 TIMES.
01  LI      PIC 99.
01  OP     PIC X.
01  ESCA PIC 9 COMP-1.
01  QW    PIC 9.

PROCEDURE DIVISION.
INICIO.
     MOVE 7 TO WINLIN.
     MOVE 15 TO WINCOL.
     MOVE " OPCIONES " TO WINTIT MOVE 10 TO WINTITLO.
     DISPLAY WCB LINE 10 COL 10 LOW ERASE
                 CONTROL "WINDOW-CREATE".
     MOVE 1 TO LI.
(aqui dibujamos las opciones dentro de la ventana.)
UNO.
     DISPLAY ELEMEN (LI) LINE LI COL 2 LOW.
     ADD 1 TO LI IF LI > 7 NEXT SENTENCE ELSE GO UNO.
DOS.
(con ésto conseguimos que nunca se salga de las opciones y ponemos en reverso la linea seleccionada.)
     IF LI < 1 MOVE 7 TO LI.
     IF LI > 7 MOVE 1 TO LI.
     DISPLAY ELEMEN (LI) LINE LI COL 2 LOW REVERSE.
TRES.
     ACCEPT OP LINE LI COL 1 OFF NO BEEP
                ON EXCEPTION ESCA MOVE 1 TO QW.
     DISPLAY ELEMEN (LI) LINE LI COL 2 LOW.
     IF ESCA = 52 SUBTRACT 1 FROM LI GO DOS.
     IF ESCA = 53 ADD 1 TO LI GO DOS.
     IF ESCA = 13 NEXT SENTENCE ELSE GO TRES.
CUATRO.
(si ha llegado aqui, es porque ha pulsado enter y ha seleccionado alguna opción, a partir de aqui, dependiendo del valor de la variable LI, actuaremos en consecuencia.)
     ...
     ...

Espero que os sirvan éstas explicaciones y podáis aprovecharlas en vuestros programas.

   Inicio de Página   
Sitio desarrollado con PHP-Nuke. Todos los Derechos Reservados.
PHP-Nuke es un Software Libre realizado con licencia GNU/GPL.
Página creada en Junio de 1.998, con el proposito de difundir el lenguaje Cobol en nuestra lengua.
Andres Montes [98/11]