Sub Globals
Dim TTS1 As TTS
Dim PE As PhoneEvents
Dim mPhId As PhoneId
End Sub
Sub Activity_Create(FirstTime As Boolean)
If FirstTime Then
PE.InitializeWithPhoneState("PE", mPhId) 'can't remember why I used InitializeWithPhoneState rather than plain Initialize but it makes no difference
End If
TTS1.Initialize("")
End Sub
Sub btn_Click
TTS1.Speak("testing", False)
End Sub
Sub PE_TextToSpeechFinish (Intent As Intent)
Log("TextToSpeechFinish")
End Sub