Control de volumen para VFP.

Mira si esto te sirve:

http://www.portalfox.com/article.php?sid%0

Luis María Guayán
Tucumán, Argentina
________________________________
SysOp de www.PortalFox.com
Microsoft Visual FoxPro MVP
________________________________
La palabra imposible solo figura
en el diccionario de los tontos


"Ricardo De Castro Aquino" escribió en el
mensaje news:

Hola amigos.

Necesito un control de volumen para ser usado en un formulario con VFP8.
Alguien conoce alguno?

Gracias a todos por cualquier ayuda.

-
Saludos volumétricos

Ricardo De Castro Aquino
Asunción - Paraguay

Hola Luis Ma.

Gracias por responder.
Es un comienzo... En último caso, yo necesito una casa y ya tengo la arcilla
para fabricar los ladrillos... =)
Probaré en el grupo principal, a ver si alguien conoce un control ya
terminado.
Es que no entiendo cómo podría variar los valores mencionados por medio de
un slider o algo así...
Si nadie sabe de nada trataré de fabricarlo, pero lo necesito con cierta
premura y eso tomará un largo tiempo de pesquisa y prueba.

Repito, gracias de todos modos. Es un comienzo...

Saludos controlables

Ricardo De Castro Aquino
Asunción - Paraguay

"Luis María Guayán" escribió en el mensaje
news:%

Mira si esto te sirve:

http://www.portalfox.com/article.php?sid%0

Luis María Guayán
Tucumán, Argentina
________________________________
SysOp de www.PortalFox.com
Microsoft Visual FoxPro MVP
________________________________
La palabra imposible solo figura
en el diccionario de los tontos


"Ricardo De Castro Aquino" escribió en el
mensaje news:
> Hola amigos.
>
> Necesito un control de volumen para ser usado en un formulario con VFP8.
> Alguien conoce alguno?
>
> Gracias a todos por cualquier ayuda.
>
> -
> Saludos volumétricos
>
> Ricardo De Castro Aquino
> Asunción - Paraguay
>
>

Ricardo, aqui va una función que controla un poco mejor la función
waveOutSetVolume de la API, y le puedes enviar como parámetros el porcentaje
de volumen de los altavoces izquierdo y derecho. Con esto creo que ya te
queda mas facil asociar dos controles Slider que llamen a la función con los
parámetros correspondientes:

? SetVolume(50,50)

*
* FUNCTION SetVolume(tnIzq, tnDer)
*
* Configura el volumen de los altavoces de la PC
* PARAMETROS:
* tnIzq = Porcentaje de volumen altavoz izquierdo
* tnDer = Porcentaje de volumen altavoz derecho
* RETORNO: Logico .T. si pudo configurar
* USO: SetVolume(50,50)
*
FUNCTION SetVolume(tnIzq, tnDer)
LOCAL lnVol
DECLARE INTEGER waveOutSetVolume IN Winmm ;
INTEGER wDeviceID, ;
INTEGER dwVolume
tnIzq = MAX(0,MIN(tnIzq,100))
tnDer = MAX(0,MIN(tnDer,100))
lnVol = EVALUATE("0x" + ;
RIGHT(TRANSFORM(tnDer*0xFFFF/100,"@0"),4) + ;
RIGHT(TRANSFORM(tnIzq*0xFFFF/100,"@0"),4))
RETURN 0 = waveOutSetVolume(0,lnVol )
ENDFUNC
*


Luis María Guayán
Tucumán, Argentina
________________________________
SysOp de www.PortalFox.com
Microsoft Visual FoxPro MVP
________________________________
La palabra imposible solo figura
en el diccionario de los tontos


"Ricardo De Castro Aquino" escribió en el
mensaje news:%

Hola Luis Ma.

Gracias por responder.
Es un comienzo... En último caso, yo necesito una casa y ya tengo la

arcilla

para fabricar los ladrillos... =)
Probaré en el grupo principal, a ver si alguien conoce un control ya
terminado.
Es que no entiendo cómo podría variar los valores mencionados por medio de
un slider o algo así...
Si nadie sabe de nada trataré de fabricarlo, pero lo necesito con cierta
premura y eso tomará un largo tiempo de pesquisa y prueba.

Repito, gracias de todos modos. Es un comienzo...

Saludos controlables

Ricardo De Castro Aquino
Asunción - Paraguay

"Luis María Guayán" escribió en el mensaje
news:%
> Mira si esto te sirve:
>
> http://www.portalfox.com/article.php?sid%0
>
> Luis María Guayán
> Tucumán, Argentina
> ________________________________
> SysOp de www.PortalFox.com
> Microsoft Visual FoxPro MVP
> ________________________________
> La palabra imposible solo figura
> en el diccionario de los tontos
>
>
> "Ricardo De Castro Aquino" escribió en el
> mensaje news:
> > Hola amigos.
> >
> > Necesito un control de volumen para ser usado en un formulario con

VFP8.

> > Alguien conoce alguno?
> >
> > Gracias a todos por cualquier ayuda.
> >
> > -
> > Saludos volumétricos
> >
> > Ricardo De Castro Aquino
> > Asunción - Paraguay
> >
> >
>
>

Guau! Síii

Ahora mejoró, medio camino andado.
Probaré y aviso como me quedó...
Gracias por todo.

Ricardo De Castro Aquino
Asunción - Paraguay

"Luis María Guayán" escribió en el mensaje
news:u5lTT%

Ricardo, aqui va una función que controla un poco mejor la función
waveOutSetVolume de la API, y le puedes enviar como parámetros el

porcentaje

de volumen de los altavoces izquierdo y derecho. Con esto creo que ya te
queda mas facil asociar dos controles Slider que llamen a la función con

los

parámetros correspondientes:

? SetVolume(50,50)

*
* FUNCTION SetVolume(tnIzq, tnDer)
*
* Configura el volumen de los altavoces de la PC
* PARAMETROS:
* tnIzq = Porcentaje de volumen altavoz izquierdo
* tnDer = Porcentaje de volumen altavoz derecho
* RETORNO: Logico .T. si pudo configurar
* USO: SetVolume(50,50)
*
FUNCTION SetVolume(tnIzq, tnDer)
LOCAL lnVol
DECLARE INTEGER waveOutSetVolume IN Winmm ;
INTEGER wDeviceID, ;
INTEGER dwVolume
tnIzq = MAX(0,MIN(tnIzq,100))
tnDer = MAX(0,MIN(tnDer,100))
lnVol = EVALUATE("0x" + ;
RIGHT(TRANSFORM(tnDer*0xFFFF/100,"@0"),4) + ;
RIGHT(TRANSFORM(tnIzq*0xFFFF/100,"@0"),4))
RETURN 0 = waveOutSetVolume(0,lnVol )
ENDFUNC
*


Luis María Guayán
Tucumán, Argentina
________________________________
SysOp de www.PortalFox.com
Microsoft Visual FoxPro MVP
________________________________
La palabra imposible solo figura
en el diccionario de los tontos


"Ricardo De Castro Aquino" escribió en el
mensaje news:%
> Hola Luis Ma.
>
> Gracias por responder.
> Es un comienzo... En último caso, yo necesito una casa y ya tengo la
arcilla
> para fabricar los ladrillos... =)
> Probaré en el grupo principal, a ver si alguien conoce un control ya
> terminado.
> Es que no entiendo cómo podría variar los valores mencionados por medio

de

> un slider o algo así...
> Si nadie sabe de nada trataré de fabricarlo, pero lo necesito con cierta
> premura y eso tomará un largo tiempo de pesquisa y prueba.
>
> Repito, gracias de todos modos. Es un comienzo...
>
> Saludos controlables
>
> Ricardo De Castro Aquino
> Asunción - Paraguay
>
> "Luis María Guayán" escribió en el mensaje
> news:%
> > Mira si esto te sirve:
> >
> > http://www.portalfox.com/article.php?sid%0
> >
> > Luis María Guayán
> > Tucumán, Argentina
> > ________________________________
> > SysOp de www.PortalFox.com
> > Microsoft Visual FoxPro MVP
> > ________________________________
> > La palabra imposible solo figura
> > en el diccionario de los tontos
> >
> >
> > "Ricardo De Castro Aquino" escribió en

el

> > mensaje news:
> > > Hola amigos.
> > >
> > > Necesito un control de volumen para ser usado en un formulario con
VFP8.
> > > Alguien conoce alguno?
> > >
> > > Gracias a todos por cualquier ayuda.
> > >
> > > -
> > > Saludos volumétricos
> > >
> > > Ricardo De Castro Aquino
> > > Asunción - Paraguay
> > >
> > >
> >
> >
>
>