Interested in a training?
Contact us for a trainings and events or meet us at Real World in Orlando, Florida.

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

Loading


Links
MBS Realbasic PDF Plugins - Nachhilfe in Wassenach