.NET (Core and Framework)

Public Class main<br />
<br />
    Public gmode As Integer<br />
    Public gRestoreGrammar As Boolean<br />
    Public additional As Boolean<br />
<br />
    Private Sub AxDirectSR1_PhraseFinish(ByVal flags As Long, ByVal beginhi As Long, ByVal beginlo As Long, ByVal endhi As Long, ByVal endlo As Long, ByVal Phrase As String, ByVal parsed As String, ByVal results As Long)<br />
        If (parsed = "") Then<br />
            AxDirectSR1.Deactivate()<br />
            If (Rnd() > 0.5) Then<br />
                AxDirectSS1.Speak("kindly repeat your order again sir.")<br />
            Else<br />
                AxDirectSS1.Speak("please follow the menu.")<br />
            End If<br />
        Else<br />
            If (parsed = "ok") Then<br />
                AxDirectSR1.Deactivate()<br />
                If (additional = False) Then<br />
                    gmode = 2<br />
                    AxDirectSS1.Speak("Would like to have drinks?")<br />
<br />
                Else<br />
                    gmode = 3<br />
                    AxDirectSS1.Speak("would that be all sir?")<br />
                End If<br />
            ElseIf (parsed = "cancel") Then<br />
                Dim Item As String<br />
                Item = ListBox1.Items.Count - 1<br />
                If (Item >= 0) Then<br />
                    ListBox1.Items.Remove(ListBox1.Items.Count - 1)<br />
                    AxDirectSR1.Deactivate()<br />
                    AxDirectSS1.Speak("your order cancel")<br />
                End If<br />
            ElseIf (parsed = "no") Then<br />
                If (gmode = 2) Then<br />
                    gmode = 3<br />
                    additional = True<br />
                    AxDirectSR1.Deactivate()<br />
                    AxDirectSS1.Speak("verifying your order")<br />
                ElseIf (gmode = 3) Then<br />
                    gmode = 0<br />
                    gRestoreGrammar = True<br />
                    AxDirectSR1.Deactivate()<br />
                    AxDirectSS1.Speak("you can continue your order")<br />
                Else<br />
                    gmode = 0<br />
                    gRestoreGrammar = True<br />
                End If<br />
            ElseIf (parsed = "yes") Then<br />
<br />
                If (gmode = 2) Then<br />
                    'form2.Show()<br />
                    gmode = 3<br />
                    AxDirectSR1.Deactivate()<br />
                    AxDirectSS1.Speak("would that be all")<br />
<br />
                ElseIf (gmode = 3) Then<br />
                    Dim total As Integer<br />
                    total = 0<br />
                    For i = 0 To ListBox1.Items.Count - 1<br />
                        total = total + Val(ListBox1.Items(i))<br />
                    Next i<br />
                    ListBox1.Items.Add("---total is: $" + Format(total, "###0.00"))<br />
                    gmode = 1<br />
                    gRestoreGrammar = True<br />
<br />
                    AxDirectSR1.Deactivate()<br />
<br />
                    AxDirectSS1.Speak("Your total will be $" + Format(total, "###0.00") + " at the next window please.")<br />
                End If<br />
            Else<br />
                AxDirectSR1.Deactivate()<br />
                ListBox1.Items.Add(parsed)<br />
            End If<br />
        End If<br />
<br />
        ListBox1.SelectedIndex = ListBox1.Items.Count - 1<br />
        AxDirectSS1.Speak(Phrase)<br />
<br />
    End Sub<br />
    Private Sub DirectSS1_AudioStop(ByVal hi As Long, ByVal lo As Long)<br />
        If (gmode = 1) Then<br />
            ListBox1.Items.Clear()<br />
            gmode = 0<br />
            AxDirectSS1.Speak("Hi! May I take your order?")<br />
        Else<br />
            If (gmode = 2) Or (gmode = 3) Then<br />
<br />
                AxDirectSR1.GrammarFromFile("C:\Documents and Settings\kaex21\My Documents\Visual Studio 2008\Projects\Project1\WindowsApplication6\WindowsApplication6\yesno.txt")<br />
<br />
            ElseIf (gRestoreGrammar) Then<br />
<br />
                AxDirectSR1.GrammarFromFile("C:\Documents and Settings\kaex21\My Documents\Visual Studio 2008\Projects\Project1\WindowsApplication6\WindowsApplication6\menu.txt")<br />
                gRestoreGrammar = False<br />
<br />
            End If<br />
            REM we had to turn off listening before talking, so now that we are done talking we<br />
            REM should start listening again<br />
            AxDirectSR1.Activate()<br />
        End If<br />
    End Sub<br />
<br />
    Private Sub main_Terminate()<br />
        AxDirectSR1.Deactivate()<br />
    End Sub<br />
<br />
<br />
<br />
    Private Sub LinkLabel2_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel2.LinkClicked<br />
        Form5.Show()<br />
        Visible = False<br />
<br />
    End Sub<br />
<br />
    Private Sub Label9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label9.Click<br />
<br />
    End Sub<br />
<br />
    Private Sub GroupBox18_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GroupBox18.Enter<br />
<br />
    End Sub<br />
<br />
    Private Sub LinkLabel3_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel3.LinkClicked<br />
        End<br />
    End Sub<br />
<br />
<br />
    Private Sub main_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<br />
        gmode = 0<br />
        gRestoreGrammar = False<br />
<br />
        On Error GoTo GeneralFail<br />
        REM we just use this function once, on the first callback, then the timer isn't needed anymore<br />
        Dim engine<br />
        REM Initialize the recognizer. We want command and control, so find and select that engine (or best match)<br />
        AxDirectSR1.Initialized = 1<br />
<br />
        engine = AxDirectSR1.Find("MfgName=Microsoft;Grammars=1")<br />
        AxDirectSR1.Select(engine)<br />
<br />
        REM Burger.txt is our uncompiled grammar. Compile and load it now.<br />
        AxDirectSR1.GrammarFromFile("C:\Documents and Settings\kaex21\My Documents\Visual Studio 2008\Projects\Project1\WindowsApplication6\WindowsApplication6\menu.txt")<br />
        REM Now load the synthesizer, find and select any female voice from microsoft<br />
                AxDirectSS1.Select(AxDirectSS1.Find("MfgName=Microsoft;Gender=1"))<br />
<br />
        REM Start the voice interface...control goes to DirectSS1_AudioStop after this is said, gMode=0<br />
        AxDirectSS1.Speak("Welcome to kaex restaurant, sit back and enjoy as you take your order.")<br />
<br />
        REM sometimes the vb environment comes to front while we're loading, so take the screen back<br />
        Me.Show()<br />
        GoTo done<br />
GeneralFail:<br />
        MsgBox("Unable to start using text to speech or recognition.")<br />
done:<br />
<br />
    End Sub<br />
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick<br />
<br />
    End Sub<br />
<br />
End Class