Ejemplos usando el Api de windows para Visual basic

225 - Establecer el balance de los altavoces

Ejemplo para poder manipular el balance de los altavoces mediante las funciones waveOutGetVolume y waveOutSetVolume

Parte de este ejemplo es del apiGuide, y muestra como usar la función waveOutSetVolume para establecer el balance y la función waveOutGetVolume para recuperar el valor del volumen actual

Formulario de ejemplo

Formulario con los controles para cambiar el balance

Controles

Se necesita añadir al form dos controles Slider ( Slider1 y Slider2 )

Código fuente en el formulario

Option Explicit ' función para establecer el balance Private Declare Function waveOutSetVolume Lib "winmm.dll" ( _ ByVal uDeviceID As Long, _ ByVal dwVolume As Long) As Long ' función para recuperar el balance Private Declare Function waveOutGetVolume Lib "winmm.dll" ( _ ByVal uDeviceID As Long, _ lpdwVolume As Long) As Long ' valor máximo para el volumen Const MAX_VALUE As Long = 65535 ' establece el balance ''''''''''''''''''''''''' Sub Set_Balance() Dim Der As Long Dim Izq As Long Dim Volumen As Long ' Convierte el porcentaje al valor Der = (Slider1.Value * MAX_VALUE) / 100 Izq = (Slider2.Value * MAX_VALUE) / 100 Volumen = Val("&h" & Hex(Izq) & String(4 - Len(Hex(Der)), "0") & Hex(Der) & "&") ' Establece el balance Call waveOutSetVolume(0, Volumen) End Sub Private Sub Form_Load() ' valores minimos y máximos Slider1.Min = 0 Slider2.Min = 0 Slider1.Max = 100 Slider2.Max = 100 ' recupera el balance Get_Balance End Sub ' Recupera el balance y le asigna el valor a los Slider ''''''''''''''''''''''''''''' Sub Get_Balance() Dim Volumen As Long Dim Der As Long Dim Izq As Long Dim st As Variant ' recupera el valor del volumen actual Call waveOutGetVolume(0, Volumen) 'MsgBox &HFFFF0000 Der = Volumen And MAX_VALUE st = Hex(Volumen And -MAX_VALUE) If Len(st) > 4 Then st = Mid(st, 1, Len(st) - 4) Else st = "0" End If Izq = CLng("&h" & st) ' Obtiene el porcentaje Slider1.Value = (Der / MAX_VALUE) * 100 Slider2.Value = (Izq / MAX_VALUE) * 100 Slider1.TickFrequency = 5 Slider2.TickFrequency = 5 End Sub Private Sub Slider1_Click() Call Set_Balance End Sub Private Sub Slider1_Scroll() Call Set_Balance End Sub Private Sub Slider2_Click() Call Set_Balance End Sub Private Sub Slider2_Scroll() Call Set_Balance End Sub

Enlaces relacionados

Buscar en Recursos vb