Sub Process_Globals
End Sub
Sub Globals
Dim ButtonSpeak As Button
Dim ButtonStop As Button
Dim TTS1 As TTS
Dim HesTalking As Boolean
End Sub
Sub Activity_Create(FirstTime As Boolean)
ButtonSpeak.Initialize ("ButtonSpeak")
Activity.AddView (ButtonSpeak,10dip,10dip,100dip,50dip)
ButtonSpeak.Text = "SPEAK"
ButtonStop.Initialize ("ButtonStop")
Activity.AddView (ButtonStop,10dip,70dip,100dip,50dip)
ButtonStop.Text = "STOP"
If TTS1.IsInitialized = False Then
TTS1.Initialize("TTS1")
End If
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub ButtonSpeak_click
Dim Msg As String
Msg="Hello "
Msg = Msg & " /P2000 Rapid Application Development ( /P500 rad) tools for native Android, iOS and desktop apps."
Msg = Msg &" /P4000 The simplest way To develop powerful, cross platform solutions."
Speak (Msg)
End Sub
Sub ButtonStop_click
HesTalking=False
TTS1.Stop
Log ("STOP")
End Sub
Sub Speak (Msg As String)
Dim ele() As String
Dim i As Int
Dim S As String
Dim Posiz As Int
Log ("SPEAK")
HesTalking=True
ele = Regex.Split(" /P",Msg)
For i=0 To ele.Length-1
Posiz=ele(i).IndexOf2 (" ",0)
If Posiz>-1 Then
S=ele(i).SubString2 (0,Posiz)
If S<>"" Then
If IsNumber(S) Then
ele(i)=ele(i).SubString(Posiz+1)
Log ("sleep " & S)
Sleep (S)
Log (ele(i))
If HesTalking=True Then TTS1.Speak(ele(i), False)
Else
Log (ele(i))
If HesTalking=True Then TTS1.Speak(ele(i), False)
End If
End If
Else
Log (ele(i))
If HesTalking=True Then TTS1.Speak(ele(i), False)
End If
Next
End Sub
Sub Sleep(ms As Long)
Dim now As Long
now=DateTime.Now
Do Until (DateTime.Now>now+ms)
DoEvents
Loop
End Sub