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
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
- Imports System
- Imports System.Globalization
- Imports System.IO
- Imports System.Speech.AudioFormat
- Imports System.Speech.Recognition
- Imports System.Threading
- Namespace InputExamples
- Class Class1
- Shared completed As Boolean
- Public Shared Sub Main()
- Using recognizer As SpeechRecognitionEngine = New SpeechRecognitionEngine(New CultureInfo("en-US"))
- Dim dictation As Grammar = New DictationGrammar()
- dictation.Name = "Dictation Grammar"
- recognizer.LoadGrammar(dictation)
- recognizer.SetInputToAudioStream(File.OpenRead("c:\temp\audioinput\example2.wav"), New SpeechAudioFormatInfo(44100, AudioBitsPerSample.Sixteen, AudioChannel.Mono))
- AddHandler recognizer.SpeechRecognized, New EventHandler(Of SpeechRecognizedEventArgs)(AddressOf SpeechRecognizedHandler)
- AddHandler recognizer.RecognizeCompleted, New EventHandler(Of RecognizeCompletedEventArgs)(AddressOf RecognizeCompletedHandler)
- Console.WriteLine("Starting asynchronous recognition...")
- completed = False
- recognizer.RecognizeAsync(RecognizeMode.Multiple)
- While Not completed
- ' Thread.Sleep(333)
- Application.DoEvents()
- End While
- Console.WriteLine("Done.")
- If recognizer IsNot Nothing Then
- recognizer.Dispose()
- End If
- End Using
- Console.WriteLine()
- Console.WriteLine("Press any key to exit...")
- 'Console.ReadKey()
- End Sub
- Public Shared Sub SpeechRecognizedHandler(ByVal sender As Object, ByVal e As SpeechRecognizedEventArgs)
- If e.Result IsNot Nothing AndAlso e.Result.Text IsNot Nothing Then
- Console.WriteLine(" Recognized text = {0}", e.Result.Text)
- Form1.TextBox1.Text = ("" + e.Result.Text)
- Else
- Console.WriteLine(" Recognized text not available.")
- End If
- End Sub
- Public Shared Sub RecognizeCompletedHandler(ByVal sender As Object, ByVal e As RecognizeCompletedEventArgs)
- If e.[Error] IsNot Nothing Then
- Console.WriteLine(" Error encountered, {0}: {1}", e.[Error].[GetType]().Name, e.[Error].Message)
- End If
- If e.Cancelled Then
- Console.WriteLine(" Operation cancelled.")
- End If
- If e.InputStreamEnded Then
- Console.WriteLine(" End of stream encountered.")
- End If
- completed = True
- End Sub
- End Class
- End Namespace
Dieser Beitrag wurde bereits 6 mal editiert, zuletzt von „seby1302“ ()