Hallo liebe Community,
ich weiß die Überschrift hört sich etwas komisch an aber ich habe keine andere gefunden
Also zu meiner Frage: Ich möchte gerne eine Sprachsteuerung Programmieren und den anfang habe ich schonmal fertig. Das Programm reagiert auf meine Stimme!
Nun möchte ich es aber so machen wenn ich sage: "Programm beenden" soll das Programm mich fragen (also mit einer Stimme): "Möchten Sie das Programm wirklich beenden?" und ich kann dann mit Ja oder nein antworten aber... wie mach ich das?
Hier mal mein Code:
Hier der Code wo die Befehle reinkommen
Hoffentlich könnt ihr mir weiter helfen!
Danke im vorraus
ich weiß die Überschrift hört sich etwas komisch an aber ich habe keine andere gefunden
Also zu meiner Frage: Ich möchte gerne eine Sprachsteuerung Programmieren und den anfang habe ich schonmal fertig. Das Programm reagiert auf meine Stimme!
Nun möchte ich es aber so machen wenn ich sage: "Programm beenden" soll das Programm mich fragen (also mit einer Stimme): "Möchten Sie das Programm wirklich beenden?" und ich kann dann mit Ja oder nein antworten aber... wie mach ich das?
Hier mal mein Code:
VB.NET-Quellcode
- [/b]
- Private Sub reco_active()
- 'Speech
- Dim synth As New SpeechSynthesizer
- synth.Rate = -2
- synth.Volume = My.Settings.Volume
- Statuslbl1.Text = My.Settings.Assistentinname & " hört Ihnen jetzt zu!"
- synth.Speak("das programm hört ihnen jetzt zu.")
- Try 'Hier wird das Inputgerät erfasst und hier ensteht die ganze Sprachsteuerung
- 'Input
- reco.SetInputToDefaultAudioDevice()
- Dim gram As New Recognition.SrgsGrammar.SrgsDocument
- Dim colorRule As New Recognition.SrgsGrammar.SrgsRule("text")
- Dim InputText As New Recognition.SrgsGrammar.SrgsOneOf(My.Settings.Datenbank) 'Alle Wörter die speichere ich in einer "Datenbank" ich kann diese Online abrufen und ändern
- colorRule.Add(InputText)
- gram.Rules.Add(colorRule)
- gram.Root = colorRule
- reco.LoadGrammar(New Recognition.Grammar(gram))
- reco.RecognizeAsync()
- Catch ex As Exception
- MsgBox(ex.ToString, MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, "Fehler")
- Application.Exit()
- End Try
- End Sub
- [b]
Hier der Code wo die Befehle reinkommen
VB.NET-Quellcode
- [/b]
- Private Sub reco_SpeechRecognized(ByVal sender As Object, ByVal e As System.Speech.Recognition.SpeechRecognizedEventArgs) Handles reco.SpeechRecognized
- Select Case e.Result.Text 'in diesem Sub kommen nun ale Befehle rein zum beispiel sage ich hallo und dann muss ich hier unten case "hallo" erstellen kann dann eine msgbox ausgeben oder was anderes...
- Case "Programm beenden"
- Try
- Dim synth As New SpeechSynthesizer
- synth.Rate = -2
- synth.Volume = My.Settings.Volume
- Statuslbl1.Text = "Programm wird beendet..."
- synth.Speak("Alles klar!")
- Catch ex As Exception : End Try
- End Select
- End Sub
- [b]
Hoffentlich könnt ihr mir weiter helfen!
Danke im vorraus
Wenn ich dir auf irgendeiner Art und Weise helfen konnte, drück doch bitte den "Hilfreich" Button
Für VB.NET Entwickler: Option Strict On nicht vergessen!
Für VB.NET Entwickler: Option Strict On nicht vergessen!