PROCEDURE AYUDA_OSCILOSCOPIO;

LABEL SAL;

VAR
  TECLA:CHAR;
  APUNTE:POINTER;
  DIME:WORD;
  ER:INTEGER;

BEGIN
    DIME:=IMAGESIZE(98,48,402,302);
    {$I-} GETMEM(APUNTE,DIME) {$I+};
    ER:=IORESULT;
    IF ER<>0 THEN GOTO SAL;
    {$I-} GETIMAGE(98,48,402,302,APUNTE^) {$I+};
    ER:=IORESULT;
    IF ER<>0 THEN GOTO SAL;

BEGIN
SETFILLSTYLE(1,BLUE);
SETCOLOR(YELLOW);
BAR(98,48,402,302);
OUTTEXTXY(115,55,'>>> VOLT/DIV');
SETCOLOR(LIGHTMAGENTA);
OUTTEXTXY(370,55,'F2');
SETCOLOR(WHITE);
RECTANGLE(102,52,398,298);
OUTTEXTXY(115,75,'Funci¢n para determinar  en eje de');
OUTTEXTXY(115,85,'ordenadas la tensi¢n por divisi¢n,');
OUTTEXTXY(115,95,'con unos rangos de  tensi¢n deter-');
OUTTEXTXY(115,105,'minados de: 2.5, 1, 0.25 VOLT/DIV.');
OUTTEXTXY(115,115,'Se tendr  presente  que la inicia-');
OUTTEXTXY(115,125,'lizaci¢n  la  realiza el  programa');
OUTTEXTXY(115,135,'en 2.5  VOLT/DIV. Por  tanto en el');
OUTTEXTXY(115,145,'caso de utilizar la  aplicaci¢n de');
OUTTEXTXY(115,155,'cargar ondas desde  fichero, el u-');
OUTTEXTXY(115,165,'suario  inicializar  de forma ade-');
OUTTEXTXY(115,175,'cuada el valor de la tensi¢n.');
OUTTEXTXY(115,185,'La pantalla de visuali¢n de formas');
OUTTEXTXY(115,195,'de onda est   dividida con una al-');
OUTTEXTXY(115,205,'tura  de ocho  cuadr¡culas, consi-');
OUTTEXTXY(115,215,'guiendo  una  escala  m xima de 20');
OUTTEXTXY(115,225,'voltios de  pico a pico, y  m¡nima');
OUTTEXTXY(115,235,'de 2 voltios  de pico a  pico.Cada');
OUTTEXTXY(115,245,'cuadr¡cula a  su vez contiene cin-');
OUTTEXTXY(115,255,'co  divisiones, aumentando la pre-');
OUTTEXTXY(115,265,'cisi¢n  en diez veces cada  una de');
OUTTEXTXY(115,275,'‚stas £ltimas con el cursor.');
OUTTEXTXY(185,290,'>>> siguiente, pulse TECLA')
END;
DESCARGARTECLADO;
TECLA:=READKEY;
BEGIN
BAR(98,48,402,302);
SETCOLOR(YELLOW);
OUTTEXTXY(115,55,'>>> TIME');
SETCOLOR(LIGHTMAGENTA);
OUTTEXTXY(370,55,'F3');
SETCOLOR(WHITE);
RECTANGLE(102,52,398,298);
OUTTEXTXY(115,75,'Funci¢n para determinar en  eje de');
OUTTEXTXY(115,85,'abcisas los tiempos de representa-');
OUTTEXTXY(115,95,'ci¢n de las  ondas. Estos  tiempos');
OUTTEXTXY(115,105,'son  para  ambos canales y  pueden');
OUTTEXTXY(115,115,'variarse en dos valores distintos.');
OUTTEXTXY(115,125,'11.6 ms/DIV  • 1.6 ms/DIV. La pan-');
OUTTEXTXY(115,135,'talla se halla  dividida horizon--');
OUTTEXTXY(115,145,'talmente  en diez cuadr¡culas  con');
OUTTEXTXY(115,155,'cinco  partes  cada una, obtenien-');
OUTTEXTXY(115,165,'do una  divisi¢n de 50  partes por');
OUTTEXTXY(115,175,'cuadr¡cula,  si  realizamos segui-');
OUTTEXTXY(115,185,'miento con el cursor.');
OUTTEXTXY(115,195,'                                   ');
OUTTEXTXY(115,205,'                                   ');
OUTTEXTXY(115,215,'                                   ');
OUTTEXTXY(115,225,'                                   ');
OUTTEXTXY(115,235,'                                   ');
OUTTEXTXY(115,245,'                                   ');
OUTTEXTXY(115,255,'                                   ');
OUTTEXTXY(115,265,'                                   ');
OUTTEXTXY(115,275,'                                   ');
OUTTEXTXY(185,290,'>>> siguiente, pulse TECLA')
END;
DESCARGARTECLADO;
TECLA:=READKEY;
BEGIN
BAR(98,48,402,302);
SETCOLOR(YELLOW);
OUTTEXTXY(115,55,'>>> VISUALIZA');
SETCOLOR(LIGHTMAGENTA);
OUTTEXTXY(370,55,'F4');
SETCOLOR(WHITE);
RECTANGLE(102,52,398,298);
OUTTEXTXY(115,75,'Es la opci¢n m s  compleja  de las');
OUTTEXTXY(115,85,'que se presentan. Con ella se per-');
OUTTEXTXY(115,95,'mite realizar el conjunto de  ope-');
OUTTEXTXY(115,105,'raciones que caracterizan el osci-');
OUTTEXTXY(115,115,'loscopio.');
OUTTEXTXY(115,125,'Seg£n la elecci¢n  visualizamos el');
OUTTEXTXY(115,135,'CANAL 1, el CANAL 2 o  AMBOS; man-');
OUTTEXTXY(115,145,'teniendose  la  visualizaci¢n   en');
OUTTEXTXY(115,155,'pantalla hasta la pulsaci¢n de una');
OUTTEXTXY(115,165,'tecla.');
OUTTEXTXY(115,175,'Una vez determinada la(s)  onda(s)');
OUTTEXTXY(115,185,'que permanece(n) en pantalla,  po-');
OUTTEXTXY(115,195,'demos  salvarla(s) sobre impresora');
OUTTEXTXY(115,205,'o sobre disco, siguiendo  las ins-');
OUTTEXTXY(115,215,'trucciones que se dan a tal efecto.');
OUTTEXTXY(115,225,'Por  £ltimo  ‚sta  opci¢n  permite');
OUTTEXTXY(115,235,'cargar formas de onda  que se  han');
OUTTEXTXY(115,245,'salvado previamente  sobre  disco;');
OUTTEXTXY(115,255,'adem s de realizar seguimiento con');
OUTTEXTXY(115,265,'el cursor en tensi¢n y en frecuen-');
OUTTEXTXY(115,275,'cia.');
OUTTEXTXY(185,290,'>>> siguiente, pulse TECLA')
END;
DESCARGARTECLADO;
TECLA:=READKEY;
BEGIN
BAR(98,48,402,302);
SETCOLOR(YELLOW);
OUTTEXTXY(115,55,'>>> CANALES');
SETCOLOR(LIGHTMAGENTA);
OUTTEXTXY(370,55,'F5');
SETCOLOR(WHITE);
RECTANGLE(102,52,398,298);
OUTTEXTXY(115,75,'Opci¢n simple  para la  asignaci¢n');
OUTTEXTXY(115,85,'a los canales (1 y/o 2)  del osci-');
OUTTEXTXY(115,95,'loscopio  de los  correspondientes');
OUTTEXTXY(115,105,'de la tarjeta PCLAB-812  sobre los');
OUTTEXTXY(115,115,'que realizar el test.             ');
OUTTEXTXY(115,125,'(Con un total de 16,  numerados de');
OUTTEXTXY(115,135,'0 a 15).');
OUTTEXTXY(115,145,'Por defecto al arrancar el progra-');
OUTTEXTXY(115,155,'ma se hallan asignados  el canal 0');
OUTTEXTXY(115,165,'de la targeta PCLAB-812 al canal 1');
OUTTEXTXY(115,175,'del osciloscopio, y el canal 1  de');
OUTTEXTXY(115,185,'la targeta al canal 2 del oscilos-');
OUTTEXTXY(115,195,'copio.');
OUTTEXTXY(115,205,'                                  ');
OUTTEXTXY(115,215,'                                  ');
OUTTEXTXY(115,225,'                                  ');
OUTTEXTXY(115,235,'                                  ');
OUTTEXTXY(115,245,'                                  ');
OUTTEXTXY(115,255,'                                  ');
OUTTEXTXY(115,265,'                                  ');
OUTTEXTXY(115,275,'                                  ');
OUTTEXTXY(185,290,'>>> siguiente, pulse TECLA')
END;
DESCARGARTECLADO;
TECLA:=READKEY;
BEGIN
BAR(98,48,402,302);
SETCOLOR(YELLOW);
OUTTEXTXY(115,55,'>>> SALIR');
SETCOLOR(LIGHTMAGENTA);
OUTTEXTXY(370,55,'F6');
SETCOLOR(WHITE);
RECTANGLE(102,52,398,298);
OUTTEXTXY(115,75,'Opci¢n para salir del osciloscopio');
OUTTEXTXY(115,85,'y regresar al men£ principal.');
OUTTEXTXY(115,95,'Con  la  verificaci¢n  mediante la');
OUTTEXTXY(115,105,'se¤al de APAGADO, se  ha  materia-');
OUTTEXTXY(115,115,'lizado la salida, y cualquier  re-');
OUTTEXTXY(115,125,'torno ser  imposible. En este  mo-');
OUTTEXTXY(115,135,'mento  la pulsaci¢n  de  cualquier');
OUTTEXTXY(115,145,'tecla nos devolver   al men£ prin-');
OUTTEXTXY(115,155,'cipal.                            ');
OUTTEXTXY(115,165,'');
OUTTEXTXY(115,175,'Desde cualquier men£ o submen£  se');
OUTTEXTXY(115,185,'puede salir al men£ o  submen£ an-');
OUTTEXTXY(115,195,'terior  con s¢lo  pulsar la  tecla');
OUTTEXTXY(115,205,'F6. O elegir la opci¢n "SALIR".');
OUTTEXTXY(115,215,'                                  ');
OUTTEXTXY(115,225,'                                  ');
OUTTEXTXY(115,235,'                                  ');
OUTTEXTXY(115,245,'                                  ');
OUTTEXTXY(115,255,'                                  ');
OUTTEXTXY(115,265,'                                  ');
OUTTEXTXY(115,275,'                                  ');
OUTTEXTXY(185,290,'>>> siguiente, pulse TECLA')
END;
DESCARGARTECLADO;
TECLA:=READKEY;
BEGIN
BAR(98,48,402,302);
SETCOLOR(YELLOW);
OUTTEXTXY(115,55,'            GENERAL');
SETCOLOR(WHITE);
RECTANGLE(102,52,398,298);
OUTTEXTXY(115,75,'El entorno de  utilizaci¢n del os-');
OUTTEXTXY(115,85,'ciloscopio ha sido ideado para que');
OUTTEXTXY(115,95,'su  manejo sea  sencillo y  c¢modo');
OUTTEXTXY(115,105,'al  usuario. Por  ello las  letras');
OUTTEXTXY(115,115,'en azul claro  para el monitor  en');
OUTTEXTXY(115,125,'color  permiten un eficaz y r pido');
OUTTEXTXY(115,135,'uso de las opciones presentadas en');
OUTTEXTXY(115,145,'pantalla. Esto unido a las  teclas');
OUTTEXTXY(115,155,'de funci¢n del men£ principal y  a');
OUTTEXTXY(115,165,'la elecci¢n si procede con  teclas');
OUTTEXTXY(115,175,'de  cursor (e INTRO), hace  que se');
OUTTEXTXY(115,185,'optimice el  tiempo de  elecci¢n y');
OUTTEXTXY(115,195,'que la misma  no sea una tarea pe-');
OUTTEXTXY(115,205,'sada.');
OUTTEXTXY(115,215,'                                  ');
OUTTEXTXY(115,225,'                                  ');
OUTTEXTXY(115,235,'                                  ');
OUTTEXTXY(115,245,'                                  ');
OUTTEXTXY(115,255,'                                  ');
OUTTEXTXY(115,265,'           FIN                    ');
OUTTEXTXY(115,275,'                                  ');
OUTTEXTXY(270,290,'>>> pulse TECLA')
END;

DESCARGARTECLADO;
TECLA:=READKEY;
PUTIMAGE(98,48,APUNTE^,COPYPUT);
FREEMEM(APUNTE,DIME);
SAL :

END;