/ Snippet Library - View Code

Visual Basic / Miscellaneous / Speach regonition

Snippet details

ID: 397

Viewed: 1415

Added: 2002-08-19

Version:

Snippets in this catagory
Show Printable Version

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.

General Details

Snippet uploaded by: snippet

Email : webmaster@snippetlibrary.com

Snippet By: Unknown

Snippet By:	Unknown
Declarations
Highlight AllOptions Explicit Dim DirectSR1 As New DirectSR Dim DirectSS1 As New DirectSS
Code
Highlight AllDirectSS1.Speak Text1.Text 'The engine will speak whatever is in Text1. 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. '*************************************************** ' might work '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 'http://www.microsoft.com/speech/

No Reviews to show