Visual Basic 4 / 5 / 6 RSS Visual Basic 4 / 5 / 6 RSS

voice recognition system>HELP

Thread Solved
Reply
1 2

•
•
Join Date: Feb 2006
Posts: 26
Reputation: s0312001 is an unknown quantity at this point 
Solved Threads: 0
s0312001 s0312001 is offline Offline
Light Poster

voice recognition system>HELP

 
0
  #1
Feb 26th, 2006
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
Reply With Quote Quick reply to this message  
•
•
Join Date: Dec 2004
Posts: 2,413
Reputation: Comatose is a jewel in the rough Comatose is a jewel in the rough Comatose is a jewel in the rough Comatose is a jewel in the rough 
Solved Threads: 211
Team Colleague
Comatose's Avatar
Comatose Comatose is offline Offline
Taboo Programmer

Re: voice recognition system>HELP

 
0
  #2
Feb 26th, 2006
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.
Reply With Quote Quick reply to this message  
•
•
Join Date: Feb 2006
Posts: 26
Reputation: s0312001 is an unknown quantity at this point 
Solved Threads: 0
s0312001 s0312001 is offline Offline
Light Poster

Re: voice recognition system>HELP

 
0
  #3
Feb 27th, 2006
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???
Reply With Quote Quick reply to this message  
•
•
Join Date: Dec 2004
Posts: 2,413
Reputation: Comatose is a jewel in the rough Comatose is a jewel in the rough Comatose is a jewel in the rough Comatose is a jewel in the rough 
Solved Threads: 211
Team Colleague
Comatose's Avatar
Comatose Comatose is offline Offline
Taboo Programmer

Re: voice recognition system>HELP

 
0
  #4
Feb 27th, 2006
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
Reply With Quote Quick reply to this message  
•
•
Join Date: Feb 2006
Posts: 26
Reputation: s0312001 is an unknown quantity at this point 
Solved Threads: 0
s0312001 s0312001 is offline Offline
Light Poster

Re: voice recognition system>HELP

 
0
  #5
Feb 27th, 2006
Thanks a lot, you are a life saver...I will try this code
Reply With Quote Quick reply to this message  
•
•
Join Date: Feb 2006
Posts: 26
Reputation: s0312001 is an unknown quantity at this point 
Solved Threads: 0
s0312001 s0312001 is offline Offline
Light Poster

Re: voice recognition system>HELP

 
0
  #6
Feb 27th, 2006
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???
Reply With Quote Quick reply to this message  
•
•
Join Date: Dec 2004
Posts: 2,413
Reputation: Comatose is a jewel in the rough Comatose is a jewel in the rough Comatose is a jewel in the rough Comatose is a jewel in the rough 
Solved Threads: 211
Team Colleague
Comatose's Avatar
Comatose Comatose is offline Offline
Taboo Programmer

Re: voice recognition system>HELP

 
0
  #7
Feb 27th, 2006
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.
Reply With Quote Quick reply to this message  
•
•
Join Date: Feb 2006
Posts: 26
Reputation: s0312001 is an unknown quantity at this point 
Solved Threads: 0
s0312001 s0312001 is offline Offline
Light Poster

Re: voice recognition system>HELP

 
0
  #8
Feb 28th, 2006
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???
Reply With Quote Quick reply to this message  
•
•
Join Date: Dec 2004
Posts: 2,413
Reputation: Comatose is a jewel in the rough Comatose is a jewel in the rough Comatose is a jewel in the rough Comatose is a jewel in the rough 
Solved Threads: 211
Team Colleague
Comatose's Avatar
Comatose Comatose is offline Offline
Taboo Programmer

Re: voice recognition system>HELP

 
0
  #9
Feb 28th, 2006
are you meaning like sentences? Or are you meaning like in the declaration? (show me an example of what you mean.
Reply With Quote Quick reply to this message  
•
•
Join Date: Feb 2006
Posts: 26
Reputation: s0312001 is an unknown quantity at this point 
Solved Threads: 0
s0312001 s0312001 is offline Offline
Light Poster

Re: voice recognition system>HELP

 
0
  #10
Mar 1st, 2006
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.
Reply With Quote Quick reply to this message  
Reply
1 2

Quick Reply to Thread
This thread has been marked solved.
Perhaps start a new thread instead?
•
•
•
•
•
•
•
•
Message:
•
•
•
•



Similar Threads
Other Threads in the Visual Basic 4 / 5 / 6 Forum
Thread Tools Search this Thread



* 6 2007 access activex add age basic beginner birth bmp calculator cd cells.find click client code college connection connectionproblemusingvb6usingoledb creat ctrl+f data database datareport date delete dissertations dissertationthesis dissertationtopic edit excel excelmacro file filename form header iamthwee image inboxinvb internetfiledownload listbox listview liveperson login looping microsoft movingranges number objectinsert open oracle password prime program prompt range-objects readfile reading remotesqlserverdatabase report save search sendbyte sites sql sql2008 sqlserver subroutine tags time urldownloadtofile vb vb6 vb6.0 vba visual visualbasic visualbasic6 web windows
About Us | Contact Us | Advertise | DaniWeb | Acceptable Use Policy | RSS Feed

©2003 - 2009 DaniWeb® LLC