当前位置:编程学习 > C#/ASP.NET >>

求教 控件 对应的 程序 (分不清)

我看的关于.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
CopyRight © 2012 站长网 编程知识问答 www.zzzyk.com All Rights Reserved
部份技术文章来自网络,