home *** CD-ROM | disk | FTP | other *** search
/ Hot Shareware 35 / hot35.iso / ficheros / DTOOL / ONUPRO10.ZIP / EJEMPLOS.ON_ / SONIDOS.ONU < prev    next >
Text File  |  1998-03-02  |  3KB  |  90 lines
  1. ;;               ┌────────────────────────────────────────┐
  2. ;;               │     Programa Sonidos, basado en un     │
  3. ;;               │   piano cuyas teclas corresponden a    │
  4. ;;               │ las del teclado desde la A hasta la Ñ, │
  5. ;;               │   por Miguel Angel Morano Domínguez    │
  6. ;;               └────────────────────────────────────────┘
  7.  
  8. Variables
  9.   Ntono: entero
  10.   te: caracter
  11.  
  12. Principio
  13.   color (azul,celeste)
  14.   borra
  15.   OcultarCursor
  16.   posiciona(36,3); escribeln ('P I A N O')
  17.   posiciona(35,4); escribeln ('▀▀▀▀▀▀▀▀▀▀▀')
  18.   posiciona(30,21); escribeln ('(Pulse Esc para salir)')
  19.   mientras (te<>Esc) hacer
  20.     color (rojo,blanco)
  21.     posiciona(10,10); escribeln ('█████████████████████████████████████████████████████████████')
  22.     posiciona(10,11); escribeln ('█     █     █     █     █     █     █     █     █     █     █')
  23.     posiciona(10,12); escribeln ('│     │     │     │     │     │     │     │     │     │     │')
  24.     posiciona(10,13); escribeln ('│     │     │     │     │     │     │     │     │     │     │') 
  25.     posiciona(10,14); escribeln ('│     │     │     │     │     │     │     │     │     │     │')
  26.     posiciona(10,15); escribeln ('│     │     │     │     │     │     │     │     │     │     │') 
  27.     posiciona(10,16); escribeln ('│  A  │  S  │  D  │  F  │  G  │  H  │  J  │  K  │  L  │  Ñ  │')
  28.     posiciona(10,17); escribeln ('│     │     │     │     │     │     │     │     │     │     │')
  29.     posiciona(10,18); escribeln ('└─────┴─────┴─────┴─────┴─────┴─────┴─────┴─────┴─────┴─────┘')
  30.     AceptaCaracter(te)
  31.     color (amarillo,blanco)
  32.     Ntono:=0
  33.     si (te='a') o (te='A') entonces
  34.       Ntono:=100
  35.       posiciona (13,16); escribeln ('A')
  36.       espera (50)
  37.     finsi
  38.     si (te='s') o (te='S') entonces
  39.       Ntono:=200
  40.       posiciona (19,16); escribeln ('S')
  41.       espera (50)
  42.     finsi
  43.     si (te='d') o (te='D') entonces
  44.       Ntono:=300
  45.       posiciona (25,16); escribeln ('D')
  46.       espera (50)
  47.     finsi
  48.     si (te='f') o (te='F') entonces
  49.       Ntono:=400
  50.       posiciona (31,16); escribeln ('F')
  51.       espera (50)
  52.     finsi
  53.     si (te='g') o (te='G') entonces
  54.       Ntono:=500
  55.       posiciona (37,16); escribeln ('G')
  56.       espera (50)
  57.     finsi
  58.     si (te='h') o (te='H') entonces
  59.       Ntono:=600
  60.       posiciona (43,16); escribeln ('H')
  61.       espera (50)
  62.     finsi
  63.     si (te='j') o (te='J') entonces
  64.       Ntono:=700
  65.       posiciona (49,16); escribeln ('J')
  66.       espera (50)
  67.     finsi
  68.     si (te='k') o (te='K') entonces
  69.       Ntono:=800
  70.       posiciona (55,16); escribeln ('K')
  71.       espera (50)
  72.     finsi
  73.     si (te='l') o (te='L') entonces
  74.       Ntono:=900
  75.       posiciona (61,16); escribeln ('L')
  76.       espera (50)
  77.     finsi
  78.     si (te='ñ') o (te='Ñ') entonces
  79.       Ntono:=1000
  80.       posiciona (67,16); escribeln ('Ñ')
  81.       espera (50)
  82.     finsi
  83.     sonido (Ntono)
  84.     espera (200)
  85.     finsonido
  86.   finmientras
  87.   color (gris,negro)
  88.   MostrarCursor
  89.   borra
  90.