Speech To Text

  • VB.NET

    Speech To Text

    Erledigt Lag an der Blöde While schleife mit den Blöden Thread.Sleep

    Hat dazu Geführt das es sich Eingefroren hat....
    Stattdessen habe ich jetzt einem Application.DoEvents() Eingefügt und siehe da Tataaaaa
    Für Verbesserung Vorschlägen Gerne melden.
    Option Strict On....

    Das hier...
    docs.microsoft.com/de-de/dotne…eam?view=netframework-4.8

    VB.NET-Quellcode

    1. Imports System
    2. Imports System.Globalization
    3. Imports System.IO
    4. Imports System.Speech.AudioFormat
    5. Imports System.Speech.Recognition
    6. Imports System.Threading
    8. Namespace InputExamples
    9. Class Class1
    11. Shared completed As Boolean
    13. Public Shared Sub Main()
    14. Using recognizer As SpeechRecognitionEngine = New SpeechRecognitionEngine(New CultureInfo("en-US"))
    15. Dim dictation As Grammar = New DictationGrammar()
    16. dictation.Name = "Dictation Grammar"
    17. recognizer.LoadGrammar(dictation)
    18. recognizer.SetInputToAudioStream(File.OpenRead("c:\temp\audioinput\example2.wav"), New SpeechAudioFormatInfo(44100, AudioBitsPerSample.Sixteen, AudioChannel.Mono))
    19. AddHandler recognizer.SpeechRecognized, New EventHandler(Of SpeechRecognizedEventArgs)(AddressOf SpeechRecognizedHandler)
    20. AddHandler recognizer.RecognizeCompleted, New EventHandler(Of RecognizeCompletedEventArgs)(AddressOf RecognizeCompletedHandler)
    21. Console.WriteLine("Starting asynchronous recognition...")
    22. completed = False
    23. recognizer.RecognizeAsync(RecognizeMode.Multiple)
    25. While Not completed
    26. ' Thread.Sleep(333)
    27. Application.DoEvents()
    28. End While
    30. Console.WriteLine("Done.")
    31. If recognizer IsNot Nothing Then
    32. recognizer.Dispose()
    33. End If
    34. End Using
    36. Console.WriteLine()
    37. Console.WriteLine("Press any key to exit...")
    38. 'Console.ReadKey()
    40. End Sub
    42. Public Shared Sub SpeechRecognizedHandler(ByVal sender As Object, ByVal e As SpeechRecognizedEventArgs)
    43. If e.Result IsNot Nothing AndAlso e.Result.Text IsNot Nothing Then
    44. Console.WriteLine(" Recognized text = {0}", e.Result.Text)
    45. Form1.TextBox1.Text = ("" + e.Result.Text)
    47. Else
    48. Console.WriteLine(" Recognized text not available.")
    49. End If
    50. End Sub
    52. Public Shared Sub RecognizeCompletedHandler(ByVal sender As Object, ByVal e As RecognizeCompletedEventArgs)
    53. If e.[Error] IsNot Nothing Then
    54. Console.WriteLine(" Error encountered, {0}: {1}", e.[Error].[GetType]().Name, e.[Error].Message)
    55. End If
    57. If e.Cancelled Then
    58. Console.WriteLine(" Operation cancelled.")
    59. End If
    61. If e.InputStreamEnded Then
    62. Console.WriteLine(" End of stream encountered.")
    63. End If
    65. completed = True
    67. End Sub
    68. End Class
    69. End Namespace

    Dieser Beitrag wurde bereits 6 mal editiert, zuletzt von „seby1302“ ()

Facebook
Telefonspende