home *** CD-ROM | disk | FTP | other *** search
/ Hot Shareware 35 / hot35.iso / ficheros / DTOOL / ONUPRO10.ZIP / EJEMPLOS.ON_ / BOTON.ONU < prev    next >
Text File  |  1998-03-02  |  2KB  |  58 lines
  1. ;;                  ┌─────────────────────────────────────┐
  2. ;;                  │      Programa Boton, basado en      │
  3. ;;                  │      la simulacion de un botón,     │
  4. ;;                  │  por Miguel Angel Morano Domínguez  │
  5. ;;                  └─────────────────────────────────────┘
  6.  
  7. ;;***************************** PROCEDIMIENTOS ******************************
  8.  
  9. Procedimiento pantalla
  10. principio
  11.   Color (blanco,azul)
  12.   Borra
  13.   Posiciona (32,3)
  14.   Escribeln ('EJEMPLO DE BOTON')
  15.   Posiciona (32,4)
  16.   Escribeln ('▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀')
  17.   Posiciona (32,24)
  18.   Color (blanco+parpadeo,azul)
  19.   Escribeln ('Pulse una tecla')
  20. Finprocedimiento
  21.  
  22. Procedimiento boton1 (nombre:cadena; posX,posY: entero)
  23. principio
  24.   Color (blanco,azul);
  25.   Posiciona (posX,posY);   escribeln ('┌────────────────────')
  26.   Posiciona (posX,posY+1); escribeln ('│');
  27.   Color (blanco,azul);
  28.   Posiciona (posX+((22-longitud(nombre)) dividido 2),posY+1)
  29.   Escribe (nombre)
  30.   Color (negro,azul);
  31.   Posiciona (posX+1,posY+2);  escribeln ('────────────────────┘')  
  32.   Posiciona (posX+21,posY+1); escribeln ('│')
  33. Finprocedimiento
  34.  
  35. Procedimiento boton2 (nombre: cadena; posX,posY: entero)
  36. principio
  37.   Color (negro,azul);
  38.   Posiciona (posX,posY);   escribeln ('┌────────────────────')
  39.   Posiciona (posX,posY+1); escribeln ('│');
  40.   Color (gris,azul);
  41.   Posiciona (posX+((22-longitud(nombre)) dividido 2),posY+1)
  42.   Escribe (nombre)
  43.   Color (blanco,azul);
  44.   Posiciona (posX+1,posY+2);  escribeln ('────────────────────┘')  
  45.   Posiciona (posX+21,posY+1); escribeln ('│')
  46. Finprocedimiento
  47.  
  48. ;;******************************** PROGRAMA *********************************
  49.  
  50. Principio
  51.   Pantalla
  52.   Boton1 ('ACEPTAR',29,11)
  53.   Posiciona (80,25)
  54.   Aceptatecla
  55.   Boton2 ('ACEPTAR',29,11)
  56.   Posiciona (80,25)
  57.   Aceptatecla
  58.