MBS Xojo Developer Conference and Training
Join us from 3rd to 6th May 2017 in Berlin, Germany.

MBS Real Studio Plugin Tutorial Videos

Speech on Windows Source

Class App
Inherits Application
// Constants
Const kFileQuitShortcut = Ctrl+Q
Const kFileQuit = E&xit
Const kEditClear = &Delete
End Class

Class Window1
Inherits Window
// Controls
ControlInstance
End ControlInstance
ControlInstance
Sub Action() Handles Event
dim text as string

text=ConvertEncoding(EditField1.text,encodings.utf16)

speech.Speak text

End Sub
End ControlInstance
ControlInstance
Sub Action() Handles Event
dim text as string
dim file as FolderItem

text=ConvertEncoding(EditField1.text,encodings.utf16)

file=GetSaveFolderItem("","test.wav")
if file<>nil then
speech.SpeakFile file,text
end if

End Sub
End ControlInstance
ControlInstance
Sub Action() Handles Event
speech.pause

End Sub
End ControlInstance
ControlInstance
End ControlInstance

// Properties
Dim speech As WinSpeechMBS

// Event implementations
Sub Open()
Speech=new WinSpeechMBS

if Speech.ListVoices then

dim v as WinVoiceMBS

v=speech.NextVoice
while v<>nil

listbox1.AddRow v.Description

v=speech.NextVoice
wend
end if

End Sub
End Class


All movies




Links
MBS Xojo Plugins