Usando una API con Visual Basic 6

[Pip]

Hola.

Tengo una duda con una API, se trata de waveOutSetVolume, para modificar el volumen del Wave del Windows. Cuando uso waveOutSetVolume de esta manera:

waveOutSetVolume 0, 0

No tengo problema, sin embargo si el parámetro del volumen (el segundo) es mayor de 0 (sin volumen), por ejemplo así:

waveOutSetVolume 0, 1
waveOutSetVolume 0, 25689
waveOutSetVolume 0, 65000

Entonces el balance se inclina al altavoz izquierdo por completo. ¿Alguien sabría decirme por qué y como prevenirlo?

Gracias de antemano.

[Eternal Idol]

Si los parlantes son stereo los dos primeros bytes son los del parlante izquierdo y los dos últimos los del derecho, en este caso estas poniendo 65000 al izquierdo y 0 al derecho.

#define MAKELONG(a, b) ((LONG)(((WORD)((DWORD_PTR)(a) & 0xffff)) | ((DWORD)((WORD)((DWORD_PTR)(b) & 0xffff))) << 16))

Tendrías que conseguir este macro en VB.

[Pip]

Hola Eternal Idol, no sé usar bien esa macro, ya que no sé hacer macros en Visual Basic 6 pero tampoco en C. Y no conseguí, preguntando a otra gente, que me pasaran esta macro a vb6.

¿Existe alguna manera de poder conseguirlo sin esta macro? ¿Cómo es que pongo 65000 al izquierdo y 0 al derecho, en qué parte elijo el valor que le pongo al altavoz derecho en el balance?

Gracias por la ayuda.

[lic_dahool]

Te transcribo un codigo que puede serte útil:

Código:

'Example submitted by Danjel Nyberg
'It needs a textbox (Text1) and two command buttons (Command1, Command2)
Private Declare Function waveOutSetVolume Lib "Winmm" (ByVal wDeviceID As Integer, ByVal dwVolume As Long) As Integer
Private Declare Function waveOutGetVolume Lib "Winmm" (ByVal wDeviceID As Integer, dwVolume As Long) As Integer
Private Sub Command1_Click()
    Dim a, i As Long
    Dim tmp As String
    a = waveOutGetVolume(0, i)
    tmp = "&h" & Right(Hex$(i), 4)
    Text1 = CLng(tmp)
End Sub
Private Sub Command2_Click()
    Dim a, i As Long
    Dim tmp, vol As String
    vol = Text1
    tmp = Right((Hex$(vol + 65536)), 4)
    vol = CLng("&H" & tmp & tmp)
    a = waveOutSetVolume(0, vol)
End Sub

Saludos.

[Pip]

Hola lic_dahool.

Te agradezco que me pusieras el ejemplo. Lamentablemente no sé qué es lo que pretenden hacer con él. Es decir, usando un textbox y dos botones (cuyo único cometido es llamar a las funciones del ejemplo) no sé qué hacen. Yo he puesto el código del ejemplo de esta manera:

Código:

Dim a, i As Long
Dim vol,tmp As String

a = waveOutGetVolume(0, i)
tmp = "&h" & Right(Hex$(i), 4)
vol = CLng(tmp)
tmp = Right((Hex$(vol + 65536)), 4)
vol = CLng("&H" & tmp & tmp)
a = waveOutSetVolume(0, vol)

Lo que hace es bajarme el sonido al mínimo y el balance se queda centrado, pero esto ya sucede siempre que pongo el sonido al mínimo, es decir, con valor 0. He omitido el text porque no parece servir para nada más que para mostrar el valor del sonido... no entiendo la manera en la que esto funciona, la verdad.

Si puede alguien explicarme de qué depende el balance del wave, lo agradecería.

[Eternal Idol]

Depende de la relación entre el valor de volumen de cada uno de los parlantes.

[lic_dahool]

Lo que pretenden hacer con el TextBox es que cuando vos pones un valor ahi, presionando el Command2 el volumen se setea con el valor del Text.

Es simple, el codigo del Command1 te da el valor del volumen actual.

Con respecto al codigo del Command2, donde dice vol = Text1, ahí a la variable vol le das el valor que quieras y se establece el volumen (el master, es decir derecho e izquierdo juntos).

Saludos.

[Pip]

Hola de nuevo.

Ya me funciona (esto es lo principal para el caso), sin embargo, no tengo demasiado claro el por qué (tendré que mirar un poco más línea a línea). Así que muchas gracias a los dos, tu última respuesta, lic_dahool, me aclaró un poco más. Si le quiero poner un volumen de 45000 al sonido, se lo he de pasar como segundo parámetro a waveOutSetVolume como esto: -1345802296

Supongo que será cosa de las conversiones que hace a hexadecimal, esta es la parte que, aun funcionándome, no logro entender.

Lo dicho, muchas gracias a los dos, espero que mi torpeza sirva en el futuro para gente que tenga el mismo o parecido problema.