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