home *** CD-ROM | disk | FTP | other *** search
/ Hot Shareware 35 / hot35.iso / ficheros / DTOOL / ONUPRO10.ZIP / EJEMPLOS.ON_ / VENTANAS.ONU < prev   
Text File  |  1998-03-02  |  1KB  |  45 lines
  1. ;;               ┌─────────────────────────────────────────┐
  2. ;;               │      Programa Ventanas, basado en       │
  3. ;;               │  la utilización de ventanas y botones,  │
  4. ;;               │    por Miguel Angel Morano Domínguez    │
  5. ;;               └─────────────────────────────────────────┘
  6.  
  7. variables
  8.   c: caracter
  9. principio
  10.   limpia
  11.   AbrirVentana ('Bienvenido','═',22,10,57,16,blanco,azul)
  12.   posiciona (8,3)
  13.   escribe ('Elija un botón...')
  14.   Boton ('ACEPTAR','_A_ceptar',6,5,blanco,rojo)
  15.   Boton ('CANCELAR','_C_ancelar',20,5,blanco,rojo)
  16.   c:='s'
  17.   OcultarCursor
  18.   mientras (c<>'A') y (c<>'C') hacer
  19.     posiciona (80,24)
  20.     AceptaCaracter(c)
  21.   finmientras
  22.   si c='A' entonces
  23.     BotonPulsado('ACEPTAR')
  24.     AbrirVentana ('Confirmación','─',21,12,58,20,amarillo,rojo)
  25.     posiciona (6,4)
  26.     escribe ('Ha elegido la opción Aceptar')
  27.     Boton ('SALIR','_S_alir',14,7,blanco,azul)
  28.   finsi
  29.   si c='C' entonces
  30.     BotonPulsado('CANCELAR')
  31.     AbrirVentana ('Confirmación','─',21,12,58,20,amarillo,rojo)  
  32.     posiciona (5,4)
  33.     escribe ('Ha elegido la opción Cancelar')
  34.     Boton ('SALIR','_S_alir',14,7,blanco,azul)
  35.   finsi
  36.   Mientras c<>'S' hacer
  37.     AceptaCaracter (c)
  38.   Finmientras  
  39.   BotonPulsado ('SALIR')
  40.   CerrarVentana
  41.   Espera (500)
  42.   CerrarVentana
  43.   Espera (500)
  44.   MostrarCursor
  45.