|
-
May 19th, 2001, 03:10 PM
#1
Thread Starter
Addicted Member
-
May 19th, 2001, 03:38 PM
#2
Try this:
Code:
Private Sub DirectSR1_PhraseFinish(ByVal flags As Long, ByVal beginhi As Long, ByVal beginlo As Long, ByVal endhi As Long, ByVal endlo As Long, ByVal Phrase As String, ByVal parsed As String, ByVal results As Long)
If Phrase = "hello" Then
Phrase = ""
DirectSS1.Speak "Hi to you too."
End If
If Phrase = "bye" Then
Phrase = ""
DirectSS1.Speak "goodbye."
End If
Text1.Text = Phrase
End Sub
Private Sub Form_Load()
' The following are words that the Engine will reconize
DirectSR1.GrammarFromString "[Grammar]" + vbNewLine + _
"type=cfg" + vbNewLine + _
"[<start>]" + vbNewLine + _
"<start>=hello" + vbNewLine + _
"<start>=bye" + vbNewLine
DirectSR1.Activate
End Sub
Speak the words "Hello" and "Bye," and the computer should reply.
-
May 19th, 2001, 03:48 PM
#3
Also, make sure that you train your engine every so often to that the DirectSR control (or engine) can recognize your voice more easily.
-
May 22nd, 2001, 03:44 PM
#4
No no no no....
use Directss1.sayit = "Hello"
while im at it anyone ever worked with flightsim 2000?
Posting Permissions
- You may not post new threads
- You may not post replies
- You may not post attachments
- You may not edit your posts
-
Forum Rules
|
Click Here to Expand Forum to Full Width
|