Jabaco Source

Option Explicit

'
'  Demo inspired by:
'  http://www.developers-guide.net/c/115-einstieg-in-das-java-speech-api.html
'
'  This project requires freetts.jar to be part of the classpath:
'  http://sourceforge.net/projects/freetts/files/FreeTTS/FreeTTS%201.2.2/freetts-1.2.2-bin.zip/download
'

Import com.sun.speech.freetts.Voice
Import com.sun.speech.freetts.VoiceManager

Public Sub Command1_Click()
   speak Me.Text1.text
End Sub

Private Sub showVoices()
   Dim voiceManager As VoiceManager = voiceManager.getInstance()
   Dim s As String 
      
   s = voiceManager.toString() 
   
   MsgBox s, vbInformation, "available voices"
End Sub

Private Sub speak(msg As String)
   Dim voiceManager As VoiceManager = voiceManager.getInstance()
   Dim voice As Voice = voiceManager.getVoice("kevin16")

   voice.allocate()

   voice.speak(msg)

   voice.deallocate()
End Sub

Public Sub Form_Load()
   Me.Text1.Text = "Good morning Java World! It's a great day to speak some words."
   showVoices
End Sub