This thread is for discussions of Text-To-Speech.

nice tutorial. but  i can't make it speak... im just beginning to learn direct speech.
'guess i have to dig more... hehe .. thanks anyway.


shaneski

Love It Just Love it. I am just starting out too, and I started to go step by step and I would just get a bit flusered! And kept walking away. But I came back, sat down, followed everything step by step and BOOM! It workd! Love it. Thanks to this site, the learning has started for me. Thats great!  Now I have one I REALLY REALLY Need help on. I had downloaded this program called Talk 2 Desktop. You could name files things and when you spoke them into a mic, it would open the program you set the spoken name for. The part I loved about it was, you could put in what you wanted the little ms agent to say once the program you slected opened. What I am looking for is this.. (if anyone can help me with this I would be soooooo greatfull.) All I want is a simple program that when you say a word or phrase to it, it will say what ever you set it to for that spoken key word. The talk 2 desktop worked great in this feature in the macros section of the program, but all of a sudden it started comming up with runtime errors and the software makers had no answers for me. So I am stuck!!!!! All I want to be able to do is say a keyword like "Hello computer" and it would say "Hello human" or what ever. Can anyone help me? If this simple text to speech was this easy to do, is what I want to do just as easy?

There is a control that came with the package you downloaded. It is the microsoft direct speech recognition control. I can give you an example of what it can do. I'll mail it to you if you give me your e-mail address.


Alex

How can I add a different voice into my text-to-speech program?

Hi,

You can adjust the pitch, volume and age to get a different voice I think. You may also be able to download different voices from the microsoft website.


Alex

I am trying to find the code I need to write that would allow me to change the default voice using tts. Right now I get the standard monotone voice. I'd like to use a female voice in my program. I have looked at the property .currentMode, etc. I keep getting runtime errors. This is what I receive: "Class does not support Automation or does not support expected interface". Can someone please tell me what that means. Are there any good books on tts or speech-recognition? My HELP doesn't support these technologoies. Perhaps there is a way I can incorporate the help for these into VB6? Any help here is appreciated.

Whenever i try to have my text to be spoken, it never does.. I followed the instructions.. Anything wrong?

Do you receive a runtime error? I never had any trouble with my program.

Thank you for the tutorial. I have just one question: Is there a chance to save the spoken text in a wave-file or in an other type of audio file?

Martina.

No run time error.. I mean the command buttons open up the programs it should. But i do not hear any voice communication.. Do I have to change any settings?

I'd be happy to look at your code if you either e-mail me the project or else paste it into the Message of a reply. Either way I'll let you know what's wrong. -Dave.

Const Notepad = "c:\windows\notepad.exe"
Const Wordpad = "C:\program files\accessories\Wordpad.exe"
Const Paint = "c:\windows\Pbrush.exe"
Const Calculator = "c:\windows\Calc.exe"
Const Volume = "c:\windows\Sndvol32.exe"
Const InternetExplorer = "C:\Program Files\Internet Explorer\Iexplore.exe"
Const SoundRecorder = "c:\windows\Sndrec32.exe"
Const Clipboard = "c:\windows\Clipbrd.exe"
Const Dialer = "c:\windows\Dialer.exe"
Const Solitaire = "c:\windows\Sol.exe"
Private Sub DirectSS1_ClickIn(ByVal x As Long, ByVal y As Long)

End Sub

Private Sub btnNumbers_Click(Index As Integer)
spkSpeak.Speak "You clicked button number " & btnNumbers(Index).Caption & "."
Select Case Index + 1
 Case Is = 1
   Shell Notepad, vbNormalNoFocus
 Case Is = 2
   Shell Wordpad, vbNormalNoFocus
 Case Is = 3
   Shell Paint, vbNormalNoFocus
 Case Is = 4
   Shell Calculator, vbNormalNoFocus
 Case Is = 5
   Shell Volume, vbNormalNoFocus
 Case Is = 6
   Shell InternetExplorer, vbNormalNoFocus
 Case Is = 7
   Shell SoundRecorder, vbNormalNoFocus
 Case Is = 8
   Shell Clipboard, vbNormalNoFocus
 Case Is = 9
   Shell Dialer, vbNormalNoFocus
 Case Is = 10
   Shell Solitaire, vbNormalNoFocus
End Select
End Sub

Private Sub btnSpeak_Click()
spkSpeak.Speak txtText.Text

End Sub

Private Sub Form_Load()

End Sub

Private Sub spkSpeak_ClickIn(ByVal x As Long, ByVal y As Long)

End Sub

Private Sub txtText_Change()

End Sub


Thanks for helping me...

hey,

i just stumbled apon your query about the text-to-speech thing. I dont know much about your problem but if I can help you out of a little problem you may have later on if you distribute your application/code. Always deter from using C:\Windows or C:\Program Files\ when linking/shelling applications. Why? Well firstly not all Windows OS's are the same and its because NT and 9x are different.

Lets take a look at C:\Windows first.... in Windows NT(4/2000) its not that but rather C:\WinNT which will mean that your program will not be 'NT Compatible' so I recommend you using API to workout the important Windwos Directories to get the common folders. I ahve attaced below some code which I use regularly on my work.

'// Start
Option Explicit ' DIE TYPO's DIE
Private Declare Function GetWindowsDirectoryB Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
Private Declare Function GetSystemDirectoryB Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal Path As String, ByVal cbBytes As Long) As Long
Private Declare Function GetTempPath Lib "kernel32" Alias "GetTempPathA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long
Private Const MAX_LENGTH = 512
Public Function GetWindowsSystemDirectory() As String
   Dim s As String
   Dim c As Long
   s = String$(MAX_LENGTH, 0)
   c = GetSystemDirectoryB(s, MAX_LENGTH)
   If c > 0 Then
       If c > Len(s) Then
           s = Space$(c + 1)
           c = GetSystemDirectoryB(s, MAX_LENGTH)
       End If
   End If
   GetWindowsSystemDirectory = IIf(c > 0, Left$(s, c), "")
End Function
Public Function GetWindowsDirectory() As String
   Dim s As String
   Dim c As Long
   s = String$(MAX_LENGTH, 0)
   c = GetWindowsDirectoryB(s, MAX_LENGTH)
   If c > 0 Then
       If c > Len(s) Then
           s = Space$(c + 1)
           c = GetWindowsDirectoryB(s, MAX_LENGTH)
       End If
   End If
   GetWindowsDirectory = IIf(c > 0, Left$(s, c), "")
End Function
Public Function GetTempDirectory() As String
   Dim s As String
   Dim c As Long
   s = Space$(MAX_LENGTH)
   c = GetTempPath(MAX_LENGTH, s)
   If c > 0 Then
       If c > Len(s) Then
           s = Space$(c + 1)
           c = GetTempPath(MAX_LENGTH, s)
       End If
   End If
   GetTempDirectory = IIf(c > 0, Left$(s, c), "")
End Function

hope this helps you out in the long run! that was just a helpful hint so dont take it as an offence as another guy did on here when i told them.

thanks for the tip,

bill