VB.NET聲控程式

2019-01-22

6539
0

VB.NET聲控程式

抽獎程式宣告完後直接聲音辨別

IMPORTS SYSTEM.SCHEECH(參考要增加,要在FRAMWORK3.0以上才有此功能)

'--------------------------------------------------------------------------------------------

Dim WithEvents reco As New Recognition.SpeechRecognitionEngine

Dim gram As New Recognition.SrgsGrammar.SrgsDocument

Dim colorRule As New Recognition.SrgsGrammar.SrgsRule("speech")

Dim colorsList As New Recognition.SrgsGrammar.SrgsOneOf("ok", "stop", "good", "go")

colorRule.Add(colorsList)

gram.Rules.Add(colorRule)

gram.Root = colorRule

reco.LoadGrammar(New Recognition.Grammar(gram))

reco.RecognizeAsync()

'----------------------------------------------------------------------------------

執行收音判斷程式

Private Sub reco_SpeechRecognized(ByVal sender As Object, ByVal e As System.Speech.Recognition.RecognitionEventArgs) Handles reco.SpeechRecognized

        Select Case e.Result.Text
            Case "ok"
                VoiceListT = "ok"
            Case "go"
                VoiceListT = "go"
                CLostEnd() ''VOICE為GO時則執行此段--
        End Select
        'VoiceListT = e.Result.Text
        'MessageBox.Show(VoiceListT)
        reco.RecognizeAsyncStop()
        reco.Dispose()
    End Sub

'--------------------------------------------------------------

執行完畢

Private Sub reco_RecognizeCompleted(ByVal sender As Object, ByVal e As System.Speech.Recognition.RecognizeCompletedEventArgs) Handles reco.RecognizeCompleted
reco.RecognizeAsync()
End Sub

'--------------------------------------END------------------------------------------

回首頁