Speech synthesis: Difference between revisions
Speech synthesis en FreeBASIC
(Speech synthesis en FreeBASIC) |
|||
Line 150:
<lang clojure>(use 'speech-synthesis.say)
(say "This is an example of speech synthesis.")</lang>
=={{header|FreeBASIC}}==
FreeBASIC does not have a native command for them.
We are going to invoke vbscript directly
<lang freebasic>''This works on Windows. Does anyone know how it would be done in Linux?
Sub speak(texto As String)
Dim As String frase
frase ="mshta vbscript:Execute(""CreateObject(""""SAPI.SpVoice"""").Speak("""""+texto+""""")(window.close)"")"
Print texto
Shell frase
End Sub
speak "Vamos a contar " + str(123456)
speak "This is an example of speech synthesis."
Sleep</lang>
=={{header|GlovePIE}}==
| |||