Voice Recognition SourceCode

Imports System.Speech
Imports System.Speech.Recognition

Public Class Form1
    Dim WithEvents reco As New Recognition.SpeechRecognitionEngine
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim gram As New Recognition.SrgsGrammar.SrgsDocument
        Dim wordrule As New Recognition.SrgsGrammar.SrgsRule("word")
        Dim wordlist As New Recognition.SrgsGrammar.SrgsOneOf(
        "hello",
        "date",
        "are you ok",
        "open notepad")
        wordrule.Add(wordlist)
        gram.Rules.Add(wordrule)
        gram.Root = wordrule
        reco.LoadGrammar(New Recognition.Grammar(gram))
        reco.SetInputToDefaultAudioDevice()
        reco.RecognizeAsync(Recognition.RecognizeMode.Multiple)
    End Sub

    Private Sub reco_RecognizeCompleted(sender As Object, e As RecognizeCompletedEventArgs) Handles reco.RecognizeCompleted
        reco.RecognizeAsync(Recognition.RecognizeMode.Multiple)
    End Sub

    Private Sub reco_SpeechRecognized(sender As Object, e As SpeechRecognizedEventArgs) Handles reco.SpeechRecognized
        Dim sy As New Synthesis.SpeechSynthesizer
        sy.SelectVoiceByHints(Synthesis.VoiceGender.Female, Synthesis.VoiceAge.Child)

        Select Case e.Result.Text
            Case "hello"
                lbl_say.Text = e.Result.Text
                lbl_sys.Text = "Hello sir :D"
                sy.SpeakAsync("Hello sir")
            Case "are you ok"
                lbl_say.Text = e.Result.Text
                lbl_sys.Text = "Yes my system is fine sir :D"
                sy.SpeakAsync("Yes my system is fine sir")
            Case "open notepad"
                lbl_say.Text = e.Result.Text
                Process.Start("notepad")
                sy.SpeakAsync("opening notepad for you..")
        End Select

    End Sub

End Class