Cobol en español
  Página de Inicio Recomiéndala Contáctame Usuarios en Linea
13
     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: 1
Programando en Ms-Dos (texto)
TEMARIOPaso a paso
1.- Introducción
2.- Empezando
3.- Las variables
4.- Iniciando el proceso
5.- Pantalla inicial y Menú
6.- Mantenimiento Fichero
7.- Consulta con Scroll
8.- Opción de Listado
uN JueGo eN CoBoL

5.- Pantalla inicial y Menú

(2491 palabras totales en este texto)
(21467 Lecturas)   Versión Imprimible



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.
Programa Agenda (Imagen 1)

En el siguiente capítulo, haremos el mantenimiento del archivo de contactos de nuestra agenda.

   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]