'Activity module
Sub Process_Globals
Dim yack As TTS
End Sub
Sub Globals
Dim Button1 As Button
Dim Button2 As Button
Dim EditText1 As EditText
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("MAIN")
yack.Initialize(TTS_START)
End Sub
Sub Button1_Click
If yack.IsInitialized = True Then
yack.Speak(EditText1.Text,True)
End If
End Sub
Sub Button2_Click
If yack.IsInitialized = True Then
yack.Speak("Good bye. I hope I see you again.",True)
End If
Activity.Finish
End Sub
Sub TTS_START
' Just here
End Sub