parallel port links,info ,code -- "It is the question ...that drives the answer "

[ Show ]

Support VoyForums

[ Shrink ]

VoyForums Announcement: Programming and providing support for this service has been a labor of love since 1997. We are one of the few services online who values our users' privacy, and have never sold your information. We have even fought hard to defend your privacy in legal cases; however, we've done it with almost no financial support -- paying out of pocket to continue providing the service. Due to the issues imposed on us by advertisers, we also stopped hosting most ads on the forums many years ago. We hope you appreciate our efforts.

Show your support by donating any amount. (Note: We are still technically a for-profit company, so your contribution is not tax-deductible.) PayPal Acct: Feedback:

Donate to VoyForums (PayPal):

[ Login ] [ Contact Forum Admin ] [ Main index ] [ Post a new message ] [ Search | Check update time | Archives: [1] ]

Subject:

parallel port links,info ,code

Author:
sandman

[ Next Thread | Previous Thread | Next Message | Previous Message ]

Date Posted: 01:36:46 08/31/03 Sun
Author Host/IP: NoHost/61.1.201.115

http://www.voicerecognition.com/products/dragon/developersuite.html
http://www.martin2k.co.uk/vb6/tips/q3.php //good one //
http://www.microsoft.com/speech/evaluation/thirdparty/tools.asp
http://gregstrong.com/voice/demo.html

Monday, June 9, 2003 at 18:54:37
Comments: I am posting a small sample of Speech Recogntion, this was just the early stages of a program i am building that will completely automate my computer to voice commands, it took a little trial and error but i hope it helps ppl with thier own speech recongtion programs.

START A STANDARD PROJECT, ASS A TEXT BOX, NAME IT txtCommand.....THEN ADD THE SPEECH COMPONMENT AND ADD IT TO THE FORM, NAME IT DirectSR....

ADD THIS CODE....

Private Sub Form_Load()
Dim retval As Integer

DirectSR.GrammarFromString "[Grammar]" + vbNewLine + _
"type=cfg" + vbNewLine + _
"[]" + vbNewLine + _
"=Web Browser" + vbNewLine + _
"=Notepad" + vbNewLine + _
"=Visual Basic" + vbNewLine + _
"=Calculator" + vbNewLine

DirectSR.Activate
End Sub

--------------------------------------------------------------------------------

Private Sub DirectSR_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)
txtCommand.Text = Phrase

Select Case Phrase
Case Is = "Launch Notepad"
retval = Shell("C:\WINDOWS\notepad.exe")
Case Is = "Launch Web Browser"
retval = Shell("C:\Program Files\Internet Explorer\IEXPLORE.EXE")
Case Is = "Launch Visual Basic"
retval = Shell("C:\Program Files\Microsoft Visual Studio\VB98\VB6.exe")
Case Is = "Launch Calculator"
retval = Shell("C:\WINDOWS\calc.exe")

End Select
End Sub

[ Next Thread | Previous Thread | Next Message | Previous Message ]

Replies:

[> Subject: more links
Author: sandman [ Edit \| View ]	Date Posted: 01:50:21 08/31/03 Sun Author Host/IP: NoHost/61.1.201.115 http://www.developerfusion.com/show/3751/ http://pscode.com/ http://www.visualbasicforum.com/

Underground - Bhasker V K,the Sandman's Hideout