FoxPro/Visual FoxPro - sonidos - auxilio!!

   
Vista:

sonidos - auxilio!!

Publicado por antonela (1 intervención) el 15/04/2009 00:31:02
hola amigos tengo este gran dilema:
tengo q hacer sonar 5 sonidos distintos en forma discontinua, con un determinado tiempo de un a otro sonido, y quien lo identifique o lo escuche pulsando una tecla lo guardo en una variable,
y no se como hacer!!!!!! ayuda porfi
yo tengo esto pero nu funciona me ejecuta el ultimo sonido y ni me guarda la variable

command 1 - click
SET BELL TO "C:mgksonidosdespas.WAV"
??CHR(7)
for x=1 to 20000000
esc=si
endfor

SET BELL TO "C:mgksonidosmedio.WAV"
??CHR(7)
for x=1 to 20000000
esc1=si
endfor

SET BELL TO "C:mgksonidosmedioal.WAV"
??CHR(7)
for x=1 to 20000000
esc2=si
endfor
a asi las cinco repeticiones, pero no funciona q hago?
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:sonidos - auxilio!!

Publicado por Saul -Guatemalteco.. (676 intervenciones) el 15/04/2009 21:19:52
Archivo_Wav = 'c:apersoncaribesistemasdigital_vfpAlert.Wav'

=PlayWav(Archivo_Wav,1)

*!* *----------------------------------------
*!* * FUNCTION PlayWav(lcWaveFile, lnPlayType)
*!* *----------------------------------------
*!* * Ejecuta un archivo .WAV
*!* * USO: PlayWave( [,<ejecucion>])
*!* * Archivo_Wav = Ruta completa del archivo .Wav
*!* * Ejecucion = 1 - Ejecución en background (default)
*!* * 0 - La aplicación espera la ejecución
*!* * 2 - Si el archivo no existe, no ejecuta el default
*!* * 4 - Apaga el sonido que se está ejecutando
*!* * 8 - Continuado
*----------------------------------------
FUNCTION PlayWav(lcWaveFile, lnPlayType)
lnPlayType = IIF(VARTYPE(lnPlayType) = "N", lnPlayType, 1)
DECLARE INTEGER PlaySound IN WINMM.DLL ;
STRING cWave, ;
INTEGER nModule, ;
INTEGER nType
RETURN IIF(PlaySound(lcWaveFile,0,lnPlayType) = 1, .T., .F.)
ENDFUNC


SUERTE

Saul Hernandez
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:sonidos - auxilio!!

Publicado por Rennybus (2 intervenciones) el 18/04/2009 22:41:03
bueno yo voy por otro lado... es mejor construir sobre lo que uno ya sabe...

define una variable nsonido y un arreglo de 5 (o mas)
nsonido = 0
declare sonidos(5)
sonido(1)='sonido1.wav'
sonido(2)='sonido1.wav'
sonido(3)='sonido1.wav'
sonido(4)='sonido1.wav'
sonido(5)='sonido1.wav'

Utilizá un control Timer y lo programas para que lance su evento TIMER cada n milisegundos y luego colocas el siguiente codigo y en su evento Timer:
-----
if between(nsonido,0,4)
nsonido=nsonido+1
else
nsonido=1
endif
SET BELL TO sonido(nsonido)
??CHR(7)
----

espero te ayude

rennybus@hotmail.com
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar