Spanish Ajusta Volumen en Reproduccion app de radio [SOLUCIONADO]

[desof]

Hola amigos, he creado una app que reproduce un radio por streaming basandome en este ejemplo https://www.b4x.com/android/forum/t...io-aac-decoder-for-android.59567/#post-375420.
Pero la misma no tiene la posibilidad de ajustarle el volumen desde la misma app .
Como podría hacerlo ?

Muchas Gracias!

 

[bgsoft]

Hola

Aqui te pongo como cambiar cualquier volumen de un dispositivo:

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

 

[desof]

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]

Hola desof, no he echo ninguna radio ,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]

Hola desof, si ya resolviste el problema, podrias añadir [SOLUCIONADO] al título?

Gracias

Saludos

 

[tomky]

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

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.