TTS Volume control

[mkvidyashankar]

How to control volume of TTS ?

 

[Erel]

You can use Phone.SetVolume and set the VOLUME_MUSIC channel. It will change the TTS volume.

 

[joseanquiles]

I have tried TTS and it's works fine. Very easy and very powerful.
However, it doesn't seem possible to adjust the volume in a physical device. Volume phone buttons doesn't work......
How can I achieve volume buttons to respond?

 

[Erel]

This code, which requires the reflection library, will set the MUSIC channel to be the default channel:

   Dim r As Reflector
   r.Target = r.GetActivity
   r.RunMethod2("setVolumeControlStream", 3, "java.lang.int")

 

[JohnK]

You can use Phone.SetVolume and set the VOLUME_MUSIC channel. It will change the TTS volume.

I will assume by this that there is no way to have TTS at a different volume to the music channel volume?

 

[Erel]

It is not possible to change the channel.

 

[Erel]

It is technically impossible. The TTS service plays the sound and there is no way to change its channel.

 

[Sgardy]

I have tried TTS and it's works fine. Very easy and very powerful.
However, it doesn't seem possible to adjust the volume in a physical device. Volume phone buttons doesn't work......
How can I achieve volume buttons to respond?

It seems that the volume act while TTS is speaking, also the phone setvolume method have to be placed after the Speak function.

 

[Erel]

This is an old thread. You should have started a new thread for these questions / suggestions.

It is now possible to change the TTS volume with:

Sub Process_Globals
   Private tts As TTS
End Sub

Sub Globals
 

End Sub

Sub Activity_Create(FirstTime As Boolean)
   If FirstTime Then
     tts.Initialize("tts")
   End If
End Sub

Sub tts_Ready (Success As Boolean)
   Log($"ready: ${Success}"$)
End Sub

Sub activity_click
   SpeakWithVolume(tts, "strong", False, 1)
   SpeakWithVolume(tts, "soft", False, 0.2)
End Sub

'volume should be between 0 to 1.
Private Sub SpeakWithVolume(TTSObject As TTS, Text As String, ClearQueue As Boolean, Volume As Float)
   Dim m As JavaObject
   Dim f As String = Volume
   m.InitializeNewInstance("java.util.HashMap", Array(CreateMap("volume": f)))
   Dim jo As JavaObject = TTSObject
   Dim queue As Int
   If ClearQueue Then queue = 0 Else queue = 1
   jo.RunMethod("speak", Array(Text, queue, m))
End Sub

This will work on Android 4+.

Note that there are other keys that can be modified: http://developer.android.com/refere...ch.Engine.html#KEY_FEATURE_EMBEDDED_SYNTHESIS

 

[Erel]

Maybe I am wrong, but I currently have the impression that Forum members are more inclined to reply to already running threads than to new threads

Not me. I tend not to answer questions in existing threads as such discussions are "unsearchable".

You cannot change the audio balance.

 

[Erel]

The search engine does return results from all the thread posts (you can see the small links in the results). However such posts are more difficult to be found.