iOS Question TTS Problem

kattah

Active Member
Licensed User
Hi all

I wrote this code for TTS, but it is not working:

B4X:
Sub Process_Globals
    'These global variables will be declared once when the application starts.
    'Public variables can be accessed from all modules.
    Public App As Application
    Public NavControl As NavigationController
    Private Page1 As Page

End Sub

Private Sub Application_Start (Nav As NavigationController)
    'SetDebugAutoFlushLogs(True) 'Uncomment if program crashes before all logs are printed.
    NavControl = Nav
    Page1.Initialize("Page1")
    Page1.Title = "Page 1"
    Page1.RootPanel.Color = Colors.White
    NavControl.ShowPage(Page1)
    Dim tts1 As TTS
    tts1.Initialize("TTS1")
    tts1.SpeechRate = 0.5
    tts1.SetLanguage("en-US")
    tts1.Speak("Hello word",True)
End Sub

Private Sub Page1_Resize(Width As Int, Height As Int)
    
End Sub

Private Sub Application_Background
    
End Sub
 

kattah

Active Member
Licensed User
I tried both suggestions and the sound volume, Perhaps that was the settings of the TTS.
 

hatzisn

Well-Known Member
Licensed User
Keep ALL the changes I mentioned and then check if it speaks and if it doesn't it is a setting or you do not run with the latest iOS in your device (I think TTS was introduced in iOS 9). Maybe you should check both the iOS version and the TTS settings.
 

Erel

Administrator
Staff member
Licensed User
Full example:
B4X:
Sub Process_Globals
   Public App As Application
   Public NavControl As NavigationController
   Private Page1 As Page
   Private tts As TTS
End Sub

Private Sub Application_Start (Nav As NavigationController)
   NavControl = Nav
   Page1.Initialize("Page1")
   Page1.Title = "Page 1"
   Page1.RootPanel.Color = Colors.White
   NavControl.ShowPage(Page1)
   tts.Initialize("tts")
End Sub

Sub Page1_Click
   tts.Speak("test", False)
End Sub

Sub tts_Complete (Text As String)
   
End Sub
If it doesn't work then make sure that the device is not muted or the volume is too low.
 
Top