求教 控件 对应的 程序 (分不清)
我看的关于.net 调用控件进行 语音识别 的一段代码其中界面很简单(发图不方便,简单说一下):
mode
·cmd
·write
read
界面如上,代码如下:
Option Explicit On
Imports SpeechLib
Public Class Form1
Public WithEvents RC As SpSharedRecoContext
Dim Recognizer As SpInprocRecognizer
Public myGrammar, b As ISpeechRecoGrammar
Dim i, j As Boolean
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
RC = New SpSharedRecoContext
Dim SharedRecognizer As SpSharedRecognizer
SharedRecognizer = CreateObject("SAPI.SpSharedRecognizer")
myGrammar = RC.CreateGrammar()
Call myGrammar.CmdLoadFromFile("sol.xml", 0) myGrammar.CmdSetRuleIdState(0, SpeechRuleState.SGDSActive)
RC.Voice.Speak("now system started")
End Sub
[color=#FF0000]Private Sub RC_FalseRecognition(ByVal StreamNumber As Long, ByVal StreamPosition As Object, ByVal Result As SpeechLib.ISpeechRecoResult)
TextBox1.Text = "(no recognition)"
End Sub
Private Sub RC_Recognition(ByVal StreamNumber As Long, ByVal StreamPosition As Object, ByVal Result As SpeechLib.ISpeechRecoResult)
If i = True Then
TextBox1.Text = Result.PhraseInfo.GetText
RC.Voice.Speak("now i'am listening your command")
Select Case Result.PhraseInfo.GetText
Case "start"
MsgBox("现在开始运行程序")
Case "stop"
MsgBox("这是我编写的第一个语音程序,好高兴哦!")
Case "net"
Shell("C:/Program Files/Internet Explorer/IEXPLORE.EXE")
Case "结束"
End
End Select
End If
End Sub
Private Sub RC_StartStream(ByVal StreamNumber As Long, ByVal StreamPosition As Object)
TextBox1.Text = Val(StreamNumber)
End Sub
Private Sub RC_Recognition(ByVal StreamNumber As Long, ByVal StreamPosition As Object, ByVal RecognitionType As SpeechLib.SpeechRecognitionType, ByVal Result As SpeechLib.ISpeechRecoResult)
If j = True Then
TextBox1.Text = Result.PhraseInfo.GetText
End If
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim strData As String
strData = StrConv(TextBox1.Text, VbStrConv.SimplifiedChinese, 2052)
RC.Voice.Speak(strData)
End Sub Private Sub RadioButton1_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles RadioButton1.CheckedChanged
i = True
j = False
End Sub
Private Sub RadioButton2_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles RadioButton2.CheckedChanged
j = True
i = False
End Sub
End Class
我的问题就是:
界面中click botton form1 这些都能找到对应代码,
不知道RC-Falserecognition 对应的是什么控件,界面里貌似没有
--------------------编程问答-------------------- 好像是sapi开发相关,自己google或msdn
http://www.haogongju.net/art/765975
补充:.NET技术 , VB.NET