En este grupo En todos

Foro de PowerBuilder



Emisión de sonidos cualquier para empezar

Claudia
Lima, Perú
Escrito por Claudia Santander
el 11/12/2009

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

Javier Cruzado Gutierrez
Ingeneria informatica y de sistemas un...
Escrito por Javier Cruzado Gutierrez
el 11/12/2009

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

Javier Cruzado Gutierrez
Ingeneria informatica y de sistemas un...
Escrito por Javier Cruzado Gutierrez
el 11/12/2009

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

Escrito por Claudia Santander
el 15/12/2009

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

Javier Cruzado Gutierrez
Ingeneria informatica y de sistemas un...
Escrito por Javier Cruzado Gutierrez
el 15/12/2009

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

Escrito por Claudia Santander
el 17/12/2009

Hola Javier, muchas gracias por responder.

Tengo la version 11 y S.O. XP.

Quedo a la espera de tu respuesta.

Gracias

Escrito por Claudia Santander
el 11/01/2010

Gracias