home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 11 / CDACTUAL11.iso / cdactual / demobin / share / DOS / SERENATA / EJEMPLO.BAS < prev    next >
Encoding:
BASIC Source File  |  1995-10-24  |  1.5 KB  |  33 lines
  1. DECLARE SUB TocarArchivo (archivo$)
  2. ' ***************************************************************************
  3. ' *         RUTINA PARA REPRODUCIR ARCHIVOS CREADOS CON SERENATA            *
  4. ' *                    Por Luis Aguilar - 1995 BASS                         *
  5. ' ***************************************************************************
  6.  
  7. CLS                                              ' Borrar pantalla
  8. PRINT "PULSA UNA TECLA PARA ESCUCHAR VACA.SND"   ' Imprimimos mensaje
  9. DO: LOOP UNTIL INKEY$ <> ""                      ' Esperamos 1 tecla     
  10. TocarArchivo ("C:\SERENATA\SND\VACA.SND")        ' Tocamos archivo
  11. PRINT "¿QUE TE HA PARECIDO?"                     ' Imprimimos mensaje     
  12. END                                              ' Fin del programa    
  13.  
  14. SUB TocarArchivo (archivo$)
  15.   
  16.   ' Este procedimiento reproduce un archivo .SND compuesto con SERENATA
  17.   ' por el PC-Speaker.                                     
  18.      
  19.      Handle = FREEFILE                  ' Obtenemos el próximo número
  20.                                         ' de fichero libre       
  21.      OPEN archivo$ FOR INPUT AS #Handle ' Abrimos el fichero de sonido
  22.      INPUT #Handle, titulo$             ' Leemos el título de la canción
  23.      
  24.      WHILE NOT EOF(1)                   ' Vamos a leer el fichero completo
  25.         INPUT #Handle, melodia$         ' Leemos una nota del fichero
  26.         PLAY melodia$                   ' Suena esa nota por el PC-Speaker
  27.      WEND
  28.      
  29.      CLOSE #Handle                      ' Cerramos el fichero
  30.   
  31. END SUB
  32.  
  33.