Sub Globals
Dim TTS1 As TTS
End Sub
Sub Activity_Resume
If TTS1.IsInitialized = False Then
TTS1.Initialize("TTS1")
End If
End Sub
Sub Activity_Pause (UserClosed As Boolean)
TTS1.Release
End Sub
Sub Hablar
If tts1.SetLanguage("es", "") = False Then 'Puedes cambiarlo por en, de, it, fr....
ToastMessageShow("Lenguaje no instalado.", True)
Return
End If
TTS1.Speak("Este texto se leera en español", True)
End Sub