• Home
 · 
• Coding Standards
 · 
• Voice Recognition (REALLY WORKS-GREAT)

Voice Recognition (REALLY WORKS-GREAT)

Will Read Out Whatever You Type In!

Inputs
Insert MSAGENT control and name it Agent1 Insert TEXT BOX and name it Text1 Insert COMMAND BOX and name it Command1

API Declarations
Const merlin = "merlin.acs"
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function ReleaseCapture Lib "user32" () As Long

Rate Voice Recognition (REALLY WORKS-GREAT)

• 1
• 2
• 3
• 4
• 5

(13(13 Vote))

Private Sub Command1_Click()
 On Error Resume Next
     Set mer = Agent1.Characters("merlin")
     mer.LanguageID = &H409
     mer.Show
     mer.Stop
     mer.Speak Text1.Text
End Sub

Private Sub Form_Load()
  Agent1.Characters.Load "merlin", merlin
  Set mer = Agent1.Characters("merlin")
End Sub