sound Recognition Engine

Hi,
I Downloaded Sound Recognition Engine from microsoft site and would like to have assistance to use it. Is any body there who could solve my problem?

Deepak S

Please edit your question and tell me what
you wanna do

Im a expert at Microsoft's Sapi

I can start you off with an easy example if you like. Add a TextBox and a
Microsfot Direct Text-To-Speech control (from the components list) and insert the following code into it.

DirectSS1.Speak Text1.Text

The engine will speak whatever is in Text1.


This next example will "hear" you and respond to you depending on what you say. Add a Text-to-Speech and Direct Recognition control and insert the following code into it.

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 DirectSS1.Speak "Hello to you too"
If Phrase = "goodbye" Then DirectSS1.Speak "See you later"
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>=goodbye" + vbNewLine + _
"<start>=hello" + vbNewLine
DirectSR1.Activate
End Sub

If you say hello or goodbye your computer should respond.

[/\/\isanThr0p]

That sound really great. Does it work decently? Does it need heavy processor power? I have a very bad connection and would like to know, if a download of the api would make sense for me.
So does it slow down games very bad?
How much Ram and how fast should the processor be?

[Allanon]

could someone please post a link to where I could download that sound engine from. I tried looking but, I couldn't find it.

Thanks

[nukem996]

this might work. its api and uses microsofts dll's and stuff.

'i dont know if you need all of this i have to get off soon so i dont have time to go threw.
Private Declare Function mciGetErrorString Lib "winmm.dll" Alias "mciGetErrorStringA" (ByVal dwError As Long, ByVal lpstrBuffer As String, ByVal uLength As Long) As Long
Private Declare Function GetShortPathName Lib "kernel32" Alias "GetShortPathNameA" (ByVal lpszLongPath As String, ByVal lpszShortPath As String, ByVal cchBuffer As Long) As Long
Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
Private TheFileName As String, RecordMode As Boolean, dwreturn(1 To 4) As Long
Private ret As String * 128, OpenFile As Boolean, playingfile As Boolean

Private Function IsItPlaying() As Boolean 'See the read me file
Static yn As String * 30
dwreturn(1) = mciSendString("status mpeg mode", yn, Len(yn), 0)
If dwreturn(1) <> 0 Then
MCIError dwreturn(1)
Exit Function
End If
IsItPlaying = (Mid$(yn, 1, 7) = "playing")
End Function

[nukem996]

this might work. its api and uses microsofts dll's and stuff.
code:

'i dont know if you need all of this i have to get off soon so i dont have time to go threw.
Private Declare Function mciGetErrorString Lib "winmm.dll" Alias "mciGetErrorStringA" (ByVal dwError As Long, ByVal lpstrBuffer As String, ByVal uLength As Long) As Long
Private Declare Function GetShortPathName Lib "kernel32" Alias "GetShortPathNameA" (ByVal lpszLongPath As String, ByVal lpszShortPath As String, ByVal cchBuffer As Long) As Long
Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
Private TheFileName As String, RecordMode As Boolean, dwreturn(1 To 4) As Long
Private ret As String * 128, OpenFile As Boolean, playingfile As Boolean

'all this code u need
Private Function IsItPlaying() As Boolean 'See the read me file
Static yn As String * 30
dwreturn(1) = mciSendString("status mpeg mode", yn, Len(yn), 0)
If dwreturn(1) <> 0 Then
MCIError dwreturn(1)
Exit Function
End If
IsItPlaying = (Mid$(yn, 1, 7) = "playing")
End Function

Heres a link:
http://www.microsoft.com/speech/
Dan