
Variable Numeric Slot_Commands = 83

Button 1 Label SpeechStop

Button 3 Label Volume 0
Button 4 Label Volume 50
Button 5 Label Volume 100

Button 7 Label Speed -10
Button 8 Label Speed 0
Button 9 Label Speed 10

Button 11 Label Type Windows
Button 12 Label Type Google
Button 13 Label Type Microsoft

Button 17 Label ClearText

Button 19 Label Voice Ita
Button 20 Label Voice Eng
Button 21 Label Voice Chi

Button 23 Label SayText Ita
Button 24 Label SayText Eng
Button 25 Label SayLongText Eng

Button 27 Label Maximize
Button 28 Label Minimize
Button 29 Label Normal

Stop

' =============================================================
'  SEND COMMAND (default timeout = 0.5 Sec)
' =============================================================
Label SendCommand
	Variable Numeric SC1       '<-- Parameter Destinat.-Slot
	Variable String  SC2       '<-- Parameter Command-String
	Variable Numeric SC3 = 0.5 '<-- The timeout in seconds
	Variable Numeric SC4
	SlotText SC1 = ""
	Wait Seconds 0.1
	SlotText SC1 = SC2
	For SC4 = 0.1 To SC3 Step 0.1
		If SlotText(SC1) = ""
			Exit
		EndIf
		Wait Seconds 0.1
	Next
Return

' =============================================================
'  COMMANDS TO SlotTextToSpeechApplication
' =============================================================
Label SpeechStop
	SendCommand(Slot_Commands)("Stop")
Return

Label Volume 0
	SendCommand(Slot_Commands)("Volume 0")
Return
Label Volume 50
	SendCommand(Slot_Commands)("Volume 50")
Return
Label Volume 100
	SendCommand(Slot_Commands)("Volume 100")
Return

Label Speed -10
	SendCommand(Slot_Commands)("Speed -10")
Return
Label Speed 0
	SendCommand(Slot_Commands)("Speed 0")
Return
Label Speed 10
	SendCommand(Slot_Commands)("Speed 10")
Return

Label Type Windows
	SendCommand(Slot_Commands)("Type Windows")
Return
Label Type Google
	SendCommand(Slot_Commands)("Type Google")
Return
Label Type Microsoft
	SendCommand(Slot_Commands)("Type Microsoft")
Return

Label ClearText
	SendCommand(Slot_Commands)("ClearText")
Return

Label Voice Ita
	SendCommand(Slot_Commands)("Voice ITAL")
Return
Label Voice Eng
	SendCommand(Slot_Commands)("Voice ENGL")
Return
Label Voice Chi
	SendCommand(Slot_Commands)("Voice CHIN")
Return

Label SayText Ita
	ClearText
	SendCommand(Slot_Commands)("Voice ITAL")
	Wait Seconds 0.5
	SendCommand(Slot_Commands)("SPEAK Prova di testo in italiano.")
Return
Label SayText Eng
	ClearText
	SendCommand(Slot_Commands)("Voice ENGL")
	Wait Seconds 0.5
	SendCommand(Slot_Commands)("SPEAK English text to speech.")
Return
Label SayLongText Eng
	ClearText
	SendCommand(Slot_Commands)("Voice ENGL")
	s1 = ""
	Wait Seconds 0.5
	For v1 = 1 To 10
		s1 = s1 + "English text to speech."
	Next
	SendCommand(Slot_Commands)("SPEAK " + s1)
Return

Label Maximize
	SendCommand(Slot_Commands)("Maximize")
Return
Label Minimize
	SendCommand(Slot_Commands)("Minimize")
Return
Label Normal
	SendCommand(Slot_Commands)("Normal")
Return


'BOOKMARKS 

'EDITEDLINES 19 1 18 2 17 3 91 4 90 5 104 6 110 7 116 8 118 9 13 10 

'WATCH SewTo_Speed
'EXEC Button 5 Text Button5
