944,077 Members | Top Members by Rank

Software Development > Visual Basic 4 / 5 / 6 > voice recognition system>HELP
Ad:
You are currently viewing page 1 of this multi-page discussion thread
Permalink
Feb 26th, 2006
0

voice recognition system>HELP

Expand Post »
Hello guys,
This is my first topic in this forum..
I need your help, I am trying to develop an Arabic voice recognition application using vb 6, does anyone know the code or what add on I should download, I am a total beginner…

((All I want it to do is to recognise my voice and type the letters or words I say in both languages Arabic and English))

Thanks
Similar Threads
Reputation Points: 10
Solved Threads: 0
Light Poster
s0312001 is offline Offline
26 posts
since Feb 2006
Permalink
Feb 26th, 2006
0

Re: voice recognition system>HELP

When you say "all I want it to do" seriously trivializes what you want to do. I built a program that does voice recognition, but you have to make sure that you install the microsoft voice recognition software, and after that, you have to "train" the voice recognition software (it takes some kind of algorithm with your voice and sets itself to function based on the way you talk). I believe the sdk is: http://www.microsoft.com/downloads/d...displaylang=en
once you get what you need installed and running, let me know, and I can give you the code I used.
Team Colleague
Reputation Points: 361
Solved Threads: 214
Taboo Programmer
Comatose is offline Offline
2,413 posts
since Dec 2004
Permalink
Feb 27th, 2006
0

Re: voice recognition system>HELP

Hey Comatose,
Thanks for your fast reply, I already have speech sdk 5.1 installed on my pc will this do? or do i have to install sapi4 sdk???
Reputation Points: 10
Solved Threads: 0
Light Poster
s0312001 is offline Offline
26 posts
since Feb 2006
Permalink
Feb 27th, 2006
0

Re: voice recognition system>HELP

I was researching it, and I don't remember which I used.... but here is the source:
Loading the app, complains that I'm missing: Xlisten.dll, Xvoice.dll, and Xcommand.dll, so I'm not sure which of those voice recognitions have those files...

in form_load:
Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text)
  1. Hear1.GrammarFromString "[Grammar]" + vbNewLine + _
  2.                           "type=cfg" + vbNewLine + _
  3.                           "[<start>]" + vbNewLine + _
  4.                           "<start>=Firefox" + vbNewLine + _
  5.                           "<start>=Comatose" + vbNewLine + _
  6.                           "<start>=Visual Basic" + vbNewLine + _
  7.                           "<start>=Calculator" + vbNewLine + _
  8.                           "<start>=Play Pop" + vbNewLine + _
  9.                           "<start>=Close" + vbNewLine + _
  10.                           "<start>=Minimize" + vbNewLine + _
  11.                           "<start>=Maximize" + vbNewLine + _
  12.                           "<start>=Switch" + vbNewLine + _
  13.                           "<start>=Check Mail" + vbNewLine + _
  14.                           "<start>=Thank You" + vbNewLine + _
  15.                           "<start>=Thunderbird" + vbNewLine + _
  16.                           "<start>=Mozilla" + vbNewLine + _
  17.                           "<start>=Yes" + vbNewLine + _
  18.                           "<start>=No" + vbNewLine + _
  19.                           "<start>=Good Night" + vbNewLine + _
  20.                           "<start>=Send Enter" + vbNewLine + _
  21.                           "<start>=Stop Running" + vbNewLine
  22. Hear1.Activate

And here is the hear1's Phrase Finish (slightly modified for personal reasons):
Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text)
  1. Private Sub Hear1_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)
  2. Select Case Phrase
  3.     Case "Firefox"
  4.         ShellExecute Me.hWnd, "open", "firefox.exe", "", "C:\", SW_MAXIMIZE
  5.     Case "Calculator"
  6.         ShellExecute Me.hWnd, "open", "calc.exe", "", "C:\", SW_MAXIMIZE
  7.     Case "Play Pop"
  8.         ShellExecute Me.hWnd, "open", "pop3.exe", "", "c:\", SW_MAXIMIZE
  9.     Case "Close"
  10.         SendKeys "%{F4}"
  11.     Case "Minimize"
  12.         SendKeys "% n"
  13.     Case "Maximize"
  14.         SendKeys "% x"
  15.     Case "Switch"
  16.         SendKeys "%{TAB}"
  17.     Case "ThunderBird"
  18.         ShellExecute Me.hWnd, "open", "thunderbird.exe", "", "c:\", SW_MAXIMIZE
  19.     Case "Mozilla"
  20.         ShellExecute Me.hWnd, "open", "firefox.exe", "", "c:\", SW_MAXIMIZE
  21.         ShellExecute Me.hWnd, "open", "thunderbird.exe", "", "c:\", SW_MAXIMIZE
  22.     Case "Yes"
  23.         If Question = "thunderbird" Then
  24.             DoEvents
  25.             ShellExecute Me.hWnd, "open", "thunderbird.exe", "", "c:\", SW_MAXIMIZE
  26.             Question = "null"
  27.         End If
  28.     Case "No"
  29.         If Question = "thunderbird" Then
  30.             Question = "null"
  31.         End If
  32.     Case "Good Night"
  33.         SendMessage Me.hWnd, WM_SYSCOMMAND, SC_MONITORPOWER, MONITOR_OFF
  34.    Case "Send Enter"
  35.         SendKeys "{ENTER}"
  36.     Case "Stop Running"
  37.         For Each XFrm In Forms
  38.             Unload XFrm
  39.         Next XFrm
  40.     Case Else
  41. End Select
  42. End Sub
Team Colleague
Reputation Points: 361
Solved Threads: 214
Taboo Programmer
Comatose is offline Offline
2,413 posts
since Dec 2004
Permalink
Feb 27th, 2006
0

Re: voice recognition system>HELP

Thanks a lot, you are a life saver...I will try this code
Reputation Points: 10
Solved Threads: 0
Light Poster
s0312001 is offline Offline
26 posts
since Feb 2006
Permalink
Feb 27th, 2006
0

Re: voice recognition system>HELP

This is the code I used, something is wrong with 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 = "baa" Then
Text1.Text = Chr$(199)
End If
End Sub
Private Sub Form_Load()

DirectSR1.GrammarFromString "[Grammar]" + vbNewLine + _
"type=cfg" + vbNewLine + _
"[<start>]" + vbNewLine + _
"<start>=one,1" + vbNewLine + _
"<start>=baa" + vbNewLine + _
"<start>=jeem" + vbNewLine + _
"<start>=four" + vbNewLine + _
"<start>=five" + vbNewLine + _
"<start>=six" + vbNewLine + _
"<start>=seven" + vbNewLine + _
"<start>=eight" + vbNewLine + _
"<start>=nine" + vbNewLine + _
"<start>=ten" + vbNewLine + _
"<start>=A" + vbNewLine + _
"<start>=B" + vbNewLine + _
"<start>=C" + vbNewLine + _
"<start>=D" + vbNewLine + _
"<start>=E" + vbNewLine + _
"<start>=F" + vbNewLine + _
"<start>=G" + vbNewLine + _
"<start>=H" + vbNewLine + _
"<start>=I" + vbNewLine + _
"<start>=J" + vbNewLine + _
"<start>=K" + vbNewLine
DirectSR1.Activate
End Sub

-------------------
i need to add more letters and numbers, but this code is limited, it allows you to define a limited number of characters
and i don't want to add a new line everytime, can I type characters one after the other to form words???
Reputation Points: 10
Solved Threads: 0
Light Poster
s0312001 is offline Offline
26 posts
since Feb 2006
Permalink
Feb 27th, 2006
0

Re: voice recognition system>HELP

The example I gave uses words, but yes it is very limited, because you have to define all the words you want it to recognize.
Team Colleague
Reputation Points: 361
Solved Threads: 214
Taboo Programmer
Comatose is offline Offline
2,413 posts
since Dec 2004
Permalink
Feb 28th, 2006
0

Re: voice recognition system>HELP

Thanks comatose,

I tried your code (changed it a bit) and it worked..

the only problem is that the letters or words appear on top of the previous word, is there a way to make all the words appear next to each other???
Reputation Points: 10
Solved Threads: 0
Light Poster
s0312001 is offline Offline
26 posts
since Feb 2006
Permalink
Feb 28th, 2006
0

Re: voice recognition system>HELP

are you meaning like sentences? Or are you meaning like in the declaration? (show me an example of what you mean.
Team Colleague
Reputation Points: 361
Solved Threads: 214
Taboo Programmer
Comatose is offline Offline
2,413 posts
since Dec 2004
Permalink
Mar 1st, 2006
0

Re: voice recognition system>HELP

I managed to make this part work, I can spell sentences now.. Thanks man..

Do you know how I can change the property of the text field to allow text to be written from right to left, it is locked, I try to change it to true but it sets itself back to false.
Reputation Points: 10
Solved Threads: 0
Light Poster
s0312001 is offline Offline
26 posts
since Feb 2006

This thread is solved

Either the thread starter or a moderator has marked this thread as solved. You can most likely trust the responses and answers given. There is most likely no reason for any further responses to be posted here. If you have a related question, please start a new thread in this forum instead.

This thread is more than three months old

No one has posted to this discussion for at least three months. Please let old threads die and do not reply to them unless you feel you have something new and valuable to contribute that absolutely must be added to make the discussion complete. Otherwise, please start a new thread in this forum instead.
Message:
Previous Thread in Visual Basic 4 / 5 / 6 Forum Timeline: Help getting txt value from Word selection.copy
Next Thread in Visual Basic 4 / 5 / 6 Forum Timeline: ADODB and Stored Procedure





About Us | Contact Us | Advertise | Acceptable Use Policy
Forum Index | Build Custom RSS Feed


Follow us on Twitter


© 2011 DaniWeb® LLC