FoxPro/Visual FoxPro - funcion para solidos

   
Vista:

funcion para solidos

Publicado por Loly (4 intervenciones) el 20/01/2009 02:48:49
Hola buenas noches... sabes estoy tratando de establecer una funcion en un programa que tengo como funciones.prg para emitir sonidos..

En el prg principal deseo usar la funcion sonidos funcion para emitir un sonido de inicio... pero no me sale...
**** prg principal****
local sdn
sdn=1
set procedure TO funciones
SET BELL TO lcNewDir+"SOUNDS"+sonidos(sdn)
?? CHR(7)
SET BELL TO
***** y continua el programa principal....

*****EN EL PRG FUNCIONES TENGO ESTO*****
PROCEDURE sonidos
param snd
do case
case snd = 1
sonwav = 'IR_BEGIN.WAV'
case snd = 2
sonwav = 'analysis.wav'
case snd = 3
sonwav = 'IR_BEGIN.wav'
endc
retu sonwav
*********** FIN DE LA FUNCION....

esto lo quiero tambien el los form.... o que me aconsejan...
saludos... gracias a todos
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:funcion para sonidos

Publicado por juan fernando (533 intervenciones) el 20/01/2009 20:19:29
falta al comienzo activar el sonido con Set Bell ON

SET BELL ON

local sdn
sdn=1
set procedure TO funciones
SET BELL TO lcNewDir+"SOUNDS"+sonidos(sdn)
?? CHR(7)
SET BELL TO
***** y continua el programa principal....

*****EN EL PRG FUNCIONES TENGO ESTO*****
PROCEDURE sonidos
param snd
do case
case snd = 1
sonwav = 'IR_BEGIN.WAV'
case snd = 2
sonwav = 'analysis.wav'
case snd = 3
sonwav = 'IR_BEGIN.wav'
endc
retu sonwav
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