Spanish Ajusta Volumen en Reproduccion app de radio [SOLUCIONADO]

bgsoft

Well-Known Member
Licensed User
Longtime User
Hola

Aqui te pongo como cambiar cualquier volumen de un dispositivo:

B4X:
Dim p As Phone

p.SetVolume(p.VOLUME_RING, enterovalorvolumen, False)
p.SetVolume(p.VOLUME_ALARM, enterovalorvolumen,False)
p.SetVolume(p.VOLUME_MUSIC, enterovalorvolumen, False)
p.SetVolume(p.VOLUME_NOTIFICATION, enterovalorvolumen, False)
p.SetVolume(p.VOLUME_SYSTEM, enterovalorvolumen, False)
p.SetVolume(p.VOLUME_VOICE_CALL, enterovalorvolumen,False)
' Si el ultimo valor lo pones a True, se verá el control del volumen seleccionado del sistema

' para saber volumen máximo emplea esto :
Log("Volumen máximo " & p.GetMaxVolume(p.VOLUME_RING))  ' cambia el tipo de sonido que te interese

' para saber el volumen actual
Log(" Volumen actual " & p.GetVolume(p.VOLUME_MUSIC) ' cambia el tipo de sonido que te interese

' parar un sonido (tambien si empleas el 0 (cero) en el SetVolume lo paras
p.SetMute(p.VOLUME_NOTIFICATION) ' cambia el tipo de sonido que te interese

Saludos
 
Last edited:

desof

Well-Known Member
Licensed User
Longtime User
GENIAL!!!

Muchas gracias!!

y para la reproducción de la radio estimo que debería ser esto

p.SetVolume(p.VOLUME_MUSIC, enterovalorvolumen, False)

no?
 

bgsoft

Well-Known Member
Licensed User
Longtime User
Hola desof, no he echo ninguna radio :oops: ,por lo que no lo he probado, prueba de ponerlo a 0 y al máximo y asi sabras cual control es, teoricamente tiene que ser ese, pero no me extrañaria que fuera el de sonidos del sistema

Saludos
 

bgsoft

Well-Known Member
Licensed User
Longtime User
Hola desof, si ya resolviste el problema, podrias añadir [SOLUCIONADO] al título?

Gracias

Saludos
 

tomky

Active Member
Licensed User
Hola.
Continuando con el ejemplo de bgsoft, si quieres subir el volumen multimedia con los botones laterales del dispositivo, debes hacerlo así:

B4X:
Sub Activity_KeyPress (KeyCode As Int) As Boolean     'Return True to consume the event

    If KeyCode = KeyCodes.KEYCODE_VOLUME_UP Then

        Log(p.GetVolume(p.VOLUME_MUSIC))
        p.SetVolume(p.VOLUME_MUSIC, p.GetVolume(p.VOLUME_MUSIC) + 1, True)
        Return True
    End If

    If KeyCode = KeyCodes.KEYCODE_VOLUME_DOWN Then

        Log(p.GetVolume(p.VOLUME_MUSIC))
        p.SetVolume(p.VOLUME_MUSIC, p.GetVolume(p.VOLUME_MUSIC) - 1, True)
        Return True
    End If
   
    Return True
   
End Sub

Saludos.
 
Last edited:
Top