1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:

Imports System
Imports System.Collections.Generic
Imports System.Linq
Imports System.Speech
Imports System.Speech.Recognition
Imports System.Text
Imports System.Speech.Synthesis

Module Module1


    
    Public spoken_text As String
    Sub Main()

        ' In diesem Teil wird euere Grammar hinzugefügt also eure Worte und .NET wird gesagt das ihr auf die Sprachsteuerung zugreifen wollt.
        Console.WriteLine("Sprachsteuerung wird gestartet...")
        ' Hier wird die Sprachsteuerung deklariert
        Dim recognizer As New SpeechRecognitionEngine()
        ' Hier wird der Sprachsteuerung gesagt das es das Standart Mikrofon nehmen soll
        recognizer.SetInputToDefaultAudioDevice()

        AddHandler recognizer.SpeechRecognized, AddressOf recognizer_SpeechRecognized

        ' Ihr müsst Try Catch nicht verwenden aber es ist empfehlenswert wenn etwas nicht funktioniert das man nicht mit Fehlern beworfen wird.
        Try
            ' So, hier werden euere Wörter gespeichert also eure Befehle. Diese stehen in grammar.xml das kommt später
            Dim grammar As New System.Speech.Recognition.DictationGrammar()
            ' Hier wird nochmal der Cache von grammars gelöscht damit nichts falsches aufgenommen wird            
            recognizer.UnloadAllGrammars()
            ' Hier erfolgt die Zuweisung der Befehle
            recognizer.LoadGrammar(grammar)
            ' Hier wird die eigentliche Erkennung gestartet.
            recognizer.RecognizeAsync(RecognizeMode.Multiple)
        Catch ex As Exception
            Console.WriteLine("Exception aufgetreten: " & ex.Message)
            Console.ReadLine()
            Exit Sub
        End Try

        Console.WriteLine("Sprachsteuerung erfolgreich gestartet.")

        While Not spoken_text = "Beenden"
            System.Threading.Thread.Sleep(100)
        End While
        Console.WriteLine("Programm wird geschlossen...")

        recognizer.Dispose()

    End Sub

    Private Sub recognizer_SpeechRecognized(ByVal sender As Object, ByVal e As System.Speech.Recognition.SpeechRecognizedEventArgs)
        spoken_text = e.Result.Text
        Console.WriteLine((e.Result.Text & " (") + e.Result.Confidence.ToString() & ")")
    End Sub

End Module