
Variable Numeric Slot_CommandsToSlotTextToSpeechApplication = 83

Button 1 Label CommandStop

Button 3 Label CommandSpeed-10
Button 4 Label CommandSpeed0
Button 5 Label CommandSpeed10

Button 7 Label CommandVolume0
Button 8 Label CommandVolume50
Button 9 Label CommandVolume100

Button 17 Label CommandVoiceItaF
Button 18 Label CommandVoiceItaM
Button 19 Label CommandVoiceEngF
Button 20 Label CommandVoiceEngM

Button 22 Label SayTextIta
Button 23 Label SayTextEng



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 CommandStop
	SendCommand(Slot_CommandsToSlotTextToSpeechApplication)("COMMAND: Stop")
Return

Label CommandSpeed-10
	SendCommand(Slot_CommandsToSlotTextToSpeechApplication)("COMMAND: Speed -10")
Return
Label CommandSpeed0
	SendCommand(Slot_CommandsToSlotTextToSpeechApplication)("COMMAND: Speed 0")
Return
Label CommandSpeed10
	SendCommand(Slot_CommandsToSlotTextToSpeechApplication)("COMMAND: Speed 10")
Return

Label CommandVolume0
	SendCommand(Slot_CommandsToSlotTextToSpeechApplication)("COMMAND: Volume 0")
Return
Label CommandVolume50
	SendCommand(Slot_CommandsToSlotTextToSpeechApplication)("COMMAND: Volume 50")
Return
Label CommandVolume100
	SendCommand(Slot_CommandsToSlotTextToSpeechApplication)("COMMAND: Volume 100")
Return

Label CommandVoiceItaF
	SendCommand(Slot_CommandsToSlotTextToSpeechApplication)("COMMAND: Voice ITA F")
Return
Label CommandVoiceItaM
	SendCommand(Slot_CommandsToSlotTextToSpeechApplication)("COMMAND: Voice ITA M")
Return
Label CommandVoiceEngF
	SendCommand(Slot_CommandsToSlotTextToSpeechApplication)("COMMAND: Voice ENG F")
Return
Label CommandVoiceEngM
	SendCommand(Slot_CommandsToSlotTextToSpeechApplication)("COMMAND: Voice ENG M")
Return

Label SayTextIta
	SendCommand(Slot_CommandsToSlotTextToSpeechApplication)("Prova di testo in italiano.")
Return
Label SayTextEng
	SendCommand(Slot_CommandsToSlotTextToSpeechApplication)("English text to speec.")
Return


'BOOKMARKS 

'EDITEDLINES 21 8 2 9 1 10 

'WATCH SewTo_Speed
'EXEC Button 5 Text Button5
