Visual Studio zeigt keine Fehler, Programm funktioniert trotzdem nicht..

  • VB.NET

Es gibt 4 Antworten in diesem Thema. Der letzte Beitrag () ist von Basis2.

    Visual Studio zeigt keine Fehler, Programm funktioniert trotzdem nicht..

    Erstmal Hallo Leute, ich bin "neu" im Forum. Habe mir schon viele Male Hilfe im Forum geholt und denke darum dass es ziemlich das beste VB Forum im Netzt ist.

    Nun zu meinem Problem:
    Ich habe etwas programmiert, Visual Studio und ich sehen darin keinen Fehler. Ich hoffe ihr könnt euch den Code anschauen und mir helfen X(

    lg und danke Luca :)

    man bin ich doof, glatt den code vergessen 8| hab beim durchlesen noch gedachtes fehlt was :D

    VB.NET-Quellcode

    1. Imports System
    2. Imports System.Collections.Generic
    3. Imports System.Linq
    4. Imports System.Speech
    5. Imports System.Speech.Recognition
    6. Imports System.Text
    7. Imports System.Speech.Synthesis
    8. Imports System.ComponentModel
    9. Imports System.Data
    10. Imports System.Drawing
    11. Imports System.Windows.Forms
    12. Imports System.IO
    14. Public Class Form1
    16. Public spoken_text As String
    18. Sub Main()
    19. RichTextBox1.Text = "Sprachsteuerung wird gestartet..."
    20. Dim recognizer As New SpeechRecognitionEngine()
    21. recognizer.SetInputToDefaultAudioDevice()
    23. AddHandler recognizer.SpeechRecognized, AddressOf recognizer_SpeechRecognized
    25. Try
    26. Dim grammar As New Grammar(My.Application.Info.DirectoryPath + "\grammar.xml", "thema")
    28. recognizer.UnloadAllGrammars()
    29. recognizer.LoadGrammar(grammar)
    30. recognizer.RecognizeAsync(RecognizeMode.Multiple)
    31. Catch ex As Exception
    32. RichTextBox1.Text = "Exception aufgetreten: " & ex.Message
    33. End Try
    35. RichTextBox1.Text = "Sprachsteuerung erfolgreich gestartet."
    36. While Not spoken_text = "Beenden"
    37. System.Threading.Thread.Sleep(100)
    39. End While
    40. RichTextBox1.Text = "Programm wird geschlossen..."
    41. recognizer.Dispose()
    42. End Sub
    44. Private Sub recognizer_SpeechRecognized(ByVal sender As Object, ByVal e As System.Speech.Recognition.SpeechRecognizedEventArgs)
    45. spoken_text = e.Result.Text
    46. RichTextBox1.Text = e.Result.Text
    47. End Sub
    49. End Class

    VB.NET-Quellcode

    1. Imports System.Speech
    2. Imports System.Speech.Recognition
    3. Imports System.Speech.Synthesis
    5. Public Class Form1
    6. Public WithEvents recognizer As SpeechRecognitionEngine
    7. Private grammar As New Grammar("grammar.xml", "thema")
    8. Public spoken_text As String
    10. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    11. Try
    12. recognizer = New SpeechRecognitionEngine
    13. recognizer.SetInputToDefaultAudioDevice()
    14. recognizer.UnloadAllGrammars()
    15. recognizer.LoadGrammarAsync(grammar)
    16. recognizer.RecognizeAsync(RecognizeMode.Multiple)
    17. RichTextBox1.Text = "Sprachsteuerung erfolgreich gestartet."
    18. Catch ex As Exception
    19. RichTextBox1.Text = "Exception aufgetreten: " & ex.Message
    20. End Try
    22. End Sub
    23. Public Sub recognizer_SpeechRecognized(ByVal sender As Object, ByVal e As SpeechRecognizedEventArgs) Handles recognizer.SpeechRecognized
    24. spoken_text = e.Result.Text
    25. Select Case True
    26. Case spoken_text = "Beenden"
    27. Application.Exit()
    28. End Select
    29. End Sub


    Sollte so fehlerfrei sein.
    Ich denke du hast Beenden als Beispiel genommen und willst weitere Befehle hinzufügen,dann kann ich dir nur Select Case empfehlen

Facebook
Telefonspende