Voice Recognition (REALLY WORKS-GREAT!)
Will Read Out Whatever You Type In!
Original Author: John Avison
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
Code
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
Loading Comments ...
Comments
No comments have been added for this post.
You must be logged in to make a comment.