[vb] spraakherkenning en text naar spraak

[Verwijderd]

ik heb nu deze code:

code:

Option Explicit

Private Sub Form_Click()
  SpeakTextbox
End Sub



Private Sub Text1_DblClick()
  SpeakTextbox
End Sub

Private Sub TextToSpeech1_ClickIn(ByVal x As Long, ByVal y As Long)
  SpeakTextbox
End Sub

Private Sub TextToSpeech1_SpeakingDone()
  TextToSpeech1.MouthHeight = 0
End Sub

Private Sub SpeakTextbox()
  With TextToSpeech1
    If Text1.Text <> "" Then
      .Speak Text1.Text
    End If
  End With
End Sub

Private Sub Form_Load()
MsgBox "unplug eerst alle microfoons voordat je verder gaat."
 Dim buf As String
Dim buf2 As String
Dim buf3 As String
  TextToSpeech1.Interfaces 2
  TextToSpeech1.MouthHeight = 0
volm.Show
On Error GoTo ERROR
Open "30041991.dat" For Input As #1
Do Until EOF(1)
Input #1, buf
buf2 = buf2 & buf
Loop
Text1.Text = buf
Close #1
  SpeakTextbox
Exit Sub
ERROR:
intro.Show
Unload Me

End Sub

als je op het form klikt spreekt het progje het uit
dit is in het nederlands het probleem is: dat sommige mensen meer dan 20 drivers op hun pc hebben staan
weet iemand hoe ik van voice driver kan wisselenen hoe ik de text langzamer kan laten spreken

2e probleem
als ik spraakherkening heb hoef ik dan alleen een textbox te maken
en kunnen mensen dan iets inspreken. wat daar komt te staan

hoe kan ik dan buttons maken die werken op stem herkening??

[ Voor 10% gewijzigd door Verwijderd op 05-10-2003 13:24 ]

[Verwijderd]

niemand snik