Speech Engine

  • Allgemein

Es gibt 3 Antworten in diesem Thema. Der letzte Beitrag () ist von Slayers.

    Speech Engine

    Hallo Leute ...
    Ich habe mal ne Frage ... Ich habe hier ausm Forum einen Code für einen Programm gefunden, welches Sprachbefehle Verarbeitet...

    Jetzt habe ich das Problem, ich habe mir Blue Speak runtergeladen und da wird die Spracherkennung von Windows nicht angezeigt.

    Bei dem Code aus dem Forum den ich gefunden habe schon.

    Ich möchte aber nicht das die Spracherkennung von Windows sich öffnet, also wie bei Blue Speak(Ausm ShowRoom)

    Wie mache ich das jetzt ?

    VB.NET-Quellcode

    1. Imports System.Speech.Synthesis
    2. Imports System.Speech.Recognition
    3. Imports System.Speech
    4. Public Class Form1
    5. 'Stummschaltung deklarieren
    6. Private Const APPCOMMAND_VOLUME_MUTE As Integer = &H80000
    7. Private Const WM_APPCOMMAND As Integer = &H319
    8. Declare Function SendMessageW Lib "user32.dll" (ByVal hWnd As IntPtr, ByVal Msg As Integer, ByVal wParam As IntPtr, ByVal lParam As IntPtr) As IntPtr
    9. '--
    10. Dim WithEvents reconizer As New SpeechRecognizer
    11. Dim grammar As Grammar
    12. Dim speaker As New SpeechSynthesizer
    13. Dim language As New Globalization.CultureInfo("de-DE")
    16. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    17. Threading.Thread.CurrentThread.CurrentCulture = language
    18. Threading.Thread.CurrentThread.CurrentUICulture = language
    19. Dim choi As Choices
    21. choi = New Choices("Google", "Test", "Kino Starten")
    22. Dim grammarb As New GrammarBuilder(choi)
    23. grammar = New Grammar(grammarb)
    24. Dim start As New Threading.Thread(AddressOf lausch)
    25. start.Start()
    26. CheckForIllegalCrossThreadCalls = False
    27. speaker.SelectVoice("ScanSoft Steffi_Dri40_16kHz")
    29. End Sub
    30. Sub lausch()
    33. reconizer.UnloadAllGrammars()
    34. reconizer.LoadGrammar(grammar)
    36. End Sub
    38. Private Sub reconizer_SpeechRecognized(ByVal sender As Object, ByVal e As System.Speech.Recognition.SpeechRecognizedEventArgs) Handles reconizer.SpeechRecognized
    39. If e.Result.Text = "Google" Then
    40. speaker.Speak("Browser Startet jetzt")
    41. System.Diagnostics.Process.Start("http://google.de")
    42. End If
    43. If e.Result.Text = "Test" Then
    44. speaker.Speak("Das ist ein Test")
    45. End If
    46. If e.Result.Text = "Kino Starten" Then
    47. speaker.Speak("Kino wird gestartet")
    48. System.Diagnostics.Process.Start("C:\Program Files (x86)\XBMC\XBMC.exe")
    49. End If
    50. End Sub
    51. End Class

    Gut ... habe ich gemacht.


    Siehe hier :

    VB.NET-Quellcode

    1. Imports System.Speech.Synthesis
    2. Imports System.Speech.Recognition
    3. Imports System.Speech
    4. Public Class Form1
    6. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    7. Dim Rec As New SpeechRecognitionEngine
    8. AddHandler Rec.SpeechRecognized, AddressOf Gefunden
    10. Dim Ch As New Choices
    12. Ch.Add("Test", "Eins", "Fünf")
    15. Dim Gr As New GrammarBuilder(Ch)
    17. Dim Gram As New Grammar(Gr)
    20. Rec.UnloadAllGrammars()
    21. Rec.LoadGrammar(Gram)
    24. End Sub
    26. Private Sub btnStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStart.Click
    28. End Sub
    30. Private Sub btnStop_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStop.Click
    32. End Sub
    34. Private Sub Gefunden(ByVal sender As Object, ByVal e As Speech.Recognition.SpeechRecognizedEventArgs)
    35. If e.Result.Text = "Test" Then
    36. MsgBox("Erfolgreich")
    37. End If
    38. End Sub
    39. End Class


    Nur leider funktioniert das irgendwie nicht so wie ich das möchte nämlich garnicht -.-'

    Was mache ich denn falsch ?

Facebook
Telefonspende