Hacer que se escuche un determinado archivo wav
Te doy las gracias por el servicio que das.
Estoy confeccionando un reloj con alarma y tengo el problema de que un botón en el formulario principal llama a otro formulario con un Text en su interior, que al poner una determinada hora en su interior suene un determinado archivo tipo wav(muy corto) y que se reproduzca hasta que que no vuelvas al botón o moviendo el ratón, y que cada vez que se reproduzca aumente de volumen.
Estoy confeccionando un reloj con alarma y tengo el problema de que un botón en el formulario principal llama a otro formulario con un Text en su interior, que al poner una determinada hora en su interior suene un determinado archivo tipo wav(muy corto) y que se reproduzca hasta que que no vuelvas al botón o moviendo el ratón, y que cada vez que se reproduzca aumente de volumen.
1 Respuesta
Respuesta de igordillo
1
Aquí tienes el código para ejecutar un wav.
En las declaraciones pones:
Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" _
(ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Const SND_ALIAS = &H10000 'el nombre esta en el registro
Const SND_ASYNC = &H1 'modo asíncrono. La función retorna una vez iniciada la música (sonido en background).
Const SND_SYNC = &H0 'modo sincrono. Modo predeterminado
Const SND_LOOP = &H8 'La música seguirá sonando repetidamente hasta
'que la función sndPlaySound sea llamada de nuevo con un valor 0 para NombreWav
Const SND_NOWAIT = &H2000 'no espera si el controlador está ocupado
Para ejecutar repetidamente:
Call sndPlaySound("SystemStart", SND_ALIAS + SND_ASYNC + SND_LOOP)
Para detener:
Call sndPlaySound(0, 0)
En las declaraciones pones:
Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" _
(ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Const SND_ALIAS = &H10000 'el nombre esta en el registro
Const SND_ASYNC = &H1 'modo asíncrono. La función retorna una vez iniciada la música (sonido en background).
Const SND_SYNC = &H0 'modo sincrono. Modo predeterminado
Const SND_LOOP = &H8 'La música seguirá sonando repetidamente hasta
'que la función sndPlaySound sea llamada de nuevo con un valor 0 para NombreWav
Const SND_NOWAIT = &H2000 'no espera si el controlador está ocupado
Para ejecutar repetidamente:
Call sndPlaySound("SystemStart", SND_ALIAS + SND_ASYNC + SND_LOOP)
Para detener:
Call sndPlaySound(0, 0)
