Text to Speech Example

[Guilect]

This works on my Windows XP box.
I am not sure what the requirements are.
I have some other text-to-speech stuff on my machine and maybe they have loaded some required software already.

If it works on Windows XP and up, this would be a nice addition to a game.

Give it a try and let me know what your results and operating system is.

Option Explicit


Const SVSFlagsAsync = 1
const SVSFPurgeBeforeSpeak = 2

Dim Speech

CreateObjects
Main
DestroyObjects


Sub Main
       Dim sText
       sText = InputBox("Enter the text you want the computer to say", "Text2Speech")
       sText = Trim(sText)
       If sText <> "" Then
               SpeakText sText
       End If
End Sub

Sub SpeakText(sText)
       On Error Resume Next
       Speech.Speak sText, SVSFlagsAsync + SVSFPurgeBeforeSpeak
       Do
               Sleep 100
       Loop Until Speech.WaitUntilDone(10)
End Sub

Sub StopSpeaking()
       On Error Resume Next
       Speech.Speak vbNullString, SVSFPurgeBeforeSpeak
       Set Speech = Nothing
End Sub

Sub CreateObjects
       Set Speech = CreateObject("SAPI.SpVoice")
End Sub

Sub DestroyObjects
       Set Speech = Nothing
End Sub

[matthew]

I can confirm that it works on Vista.

[u9]

work on xp too