Hola Javier:
Lllevo sólo 2 semanas de estar aprendiendo el lenguaje Power Builder y necesito tu apoyo por favor para generar sonidos, para empezar, podría ser cualquier sonido.
Muchas gracias por tu apoyo, quedo a la espera de tu respuesta.
Claudia
Emisión de sonidos cualquier para empezar
Hola,
Aqui te envio el codigo que puedes usar:
En la declaraciones de funciones externas(Local External Function), copias este codigo:
FUNCTION boolean sndPlaySoundA (string SoundName, uint Flags) LIBRARY "WINMM. DLL"
FUNCTION uint waveOutGetNumDevs () LIBRARY "WINMM. DLL"
Y en cualquier evento o funcion donde quieras ejecutar el sonido, copias este codigo:
uint lui_numdevs
Lui_numdevs = WaveOutGetNumDevs()
IF lui_numdevs > 0 THEN
sndPlaySoundA('C:\Archivos de programa\Messenger\newalert. Wav', 0)
RETURN 1
ELSE
RETURN -1
END IF
Nota: Tendras que poner la ruta donde se encuentra tu sonido.
Un Saludo
Hola,
Aqui te envio el codigo que puedes usar:
En la declaraciones de funciones externas(Local External Function), copias este codigo:
FUNCTION boolean sndPlaySoundA (string SoundName, uint Flags) LIBRARY "WINMM. DLL"
FUNCTION uint waveOutGetNumDevs () LIBRARY "WINMM. DLL"
Y en cualquier evento o funcion donde quieras ejecutar el sonido, copias este codigo:
uint lui_numdevs
Lui_numdevs = WaveOutGetNumDevs()
IF lui_numdevs > 0 THEN
sndPlaySoundA('C:\Archivos de programa\Messenger\newalert. Wav', 0)
RETURN 1
ELSE
RETURN -1
END IF
Nota: Tendras que poner la ruta donde se encuentra tu sonido.
Un Saludo
Hola nuevamente Javier, tengo una duda, en el caso de las funciones WaveOutGetNumDevs() y sndPlaySoundA () tengo que declararlas dentro de mi evento o de mi función o sólo basta con declararlas en Local External Function?
El error es el siguiente:
"Application temrinated
Error: Error opening DLL library WINMM. DLL for external function at line 21 in clicked event of object cb_tocar of w_ventana"
Espero puedas ayudarme, muchas gracias
Hola Claudia,
Puedes mirar si el archivo WINMM. DLL está dentro de la carpeta system32, y por favor me puedes decir que versión de PB y que S.O. Tienes?.
Y sobre tu duda, solo basta con declarar las funciones en el Local External Functions.
Un Saludo
Hola Javier, muchas gracias por responder.
Tengo la version 11 y S.O. XP.
Quedo a la espera de tu respuesta.
Gracias