Speech synthesis: Difference between revisions
Content added Content deleted
(Speech synthesis en FreeBASIC) |
|||
Line 150: | Line 150: | ||
<lang clojure>(use 'speech-synthesis.say) |
<lang clojure>(use 'speech-synthesis.say) |
||
(say "This is an example of speech synthesis.")</lang> |
(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}}== |
=={{header|GlovePIE}}== |