gpt4 book ai didi

vb.net - 我如何修复语法的语言与 vb 中语音识别器错误的语言不匹配

转载 作者:行者123 更新时间:2023-12-04 04:54:09 25 4
gpt4 key购买 nike

你好,visual basic 我正在尝试创建一个语音识别系统,它可以帮助我解决我在计算机上的生活。我调用我的助理贾维斯。对于这个项目,我导入了 system.speech.dll。现在我收到这个错误:

创建表单时出错。有关详细信息,请参阅 Exception.InnerException。错误是:语法的语言与语音识别器的语言不匹配。

这是我的代码

Imports System.Speech.Recognition
Imports System.Speech.Recognition.SrgsGrammar
Imports System.Runtime.InteropServices 'For Monitor Command

Public Class Form1
'This object represents the Speech recognition engine
Private recognizer As SpeechRecognizer
Dim QuestionEvent As String

Public Sub New()

InitializeComponent() ' This call is required by the Windows Form Designer.

recognizer = New SpeechRecognizer() ' Add any initialization after the InitializeComponent() call.

AddHandler recognizer.SpeechDetected, AddressOf recognizer_SpeechDetected 'this event is raised when the user begins to speak

AddHandler recognizer.SpeechRecognitionRejected, AddressOf recognizer_SpeechRecognitionRejected 'this is raised when spoken words are not recognized as compliant to our grammar rules

AddHandler recognizer.SpeechRecognized, AddressOf recognizer_SpeechRecognized 'this is raised when the application correctly recognizes spoken words


'The rule is that each choice in the first Append method can be combined with each word specified
'in the second method.
Dim grammar As New GrammarBuilder()
grammar.Append(New Choices(System.IO.File.ReadAllLines("Commands.txt")))

'A grammar must be loaded into the engine. This is possible by loading an object or an xml file
recognizer.LoadGrammar(New Grammar(grammar))


End Sub

Private Sub recognizer_SpeechRecognized(ByVal sender As Object, ByVal e As SpeechRecognizedEventArgs)
Dim Jarvis = CreateObject("sapi.spvoice")
Select e.Result.Text.ToUpper

'GREETINGS
Case Is = "HELLO JARVIS"
Jarvis.Speak("Hello sir")
Case Is = "GOODBYE JARVIS"
Jarvis.Speak("Until next time")
Me.Close()

'DATE / TIME / WEATHER
Case Is = "WHAT TIME IS IT"
Jarvis.Speak(Format(Now, "Short Time"))
Case Is = "HOWS THE WEATHER"
System.Diagnostics.Process.Start("https://www.google.com/webhp?sourceid=chrome-instant&ion=1&ie=UTF-8#output=search&sclient=psy-ab&q=weather&oq=&gs_l=&pbx=1&bav=on.2,or.r_cp.r_qf.&bvm=bv.47008514,d.eWU&fp=6c7f8a5fed4db490&biw=1366&bih=643&ion=1&pf=p&pdl=300")
Jarvis.Speak("Searching for local weather")


'WEBSITES
Case Is = "RUN FACEBOOK"
System.Diagnostics.Process.Start("http://www.facebook.com")
Case Is = "RUN GOOGLE"
System.Diagnostics.Process.Start("http://www.google.com")
Case Is = "RUN YAHOO"
System.Diagnostics.Process.Start("http://www.yahoo.com")
Case Is = "RUN PANDORA"
System.Diagnostics.Process.Start("http://www.pandora.com")
Case Is = "RUN THE PIRATE BAY"
System.Diagnostics.Process.Start("http://www.thepiratebay.se")
Case Is = "RUN YOUTUBE"
System.Diagnostics.Process.Start("http://www.youtube.com")

'MISCELLANEOUS
Case Is = "SHOW COMMANDS"
lbCommands.Visible = True
Jarvis.speak("Here we are")
Case Is = "HIDE COMMANDS"
lbCommands.Visible = False
Jarvis.speak("Very well")
Case Is = "OPEN DISK DRIVE"
Dim oWMP = CreateObject("WMPlayer.OCX.7")
Dim CDROM = oWMP.cdromCollection
If CDROM.Count = 2 Then
CDROM.Item(1).Eject()
Jarvis.speak("Its now open")
End If
Case Is = "MONITOR OFF"
SendMessage(Me.Handle.ToInt32(), WM_SYSCOMMAND, SC_MONITORPOWER, 2)
Jarvis.Speak("I'll just close my eyes for a minute")
End Select
End Sub
'LABEL DETECT / REJECT
Private Sub recognizer_SpeechDetected(ByVal sender As Object, ByVal e As SpeechDetectedEventArgs)

Label1.ForeColor = Color.Green : Label1.BackColor = Color.Transparent : Label1.Text = "Speech engine has detected that you spoke something"
End Sub
Private Sub recognizer_SpeechRecognitionRejected(ByVal sender As Object, ByVal e As SpeechRecognitionRejectedEventArgs)

Label1.ForeColor = Color.Red : Label1.BackColor = Color.Transparent : Label1.Text = ("Sorry but the " & e.Result.Text & " phrase could not be recognized")

End Sub

'LOADS THE COMMANDS INTO AN ARRAY AND LISTBOX
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim Commands() As String = System.IO.File.ReadAllLines("Commands.txt")
For i As Integer = 0 To Commands.Count - 1
lbCommands.Items.Add(Commands(i))
Next
End Sub

'HIDES COMMANDS LIST BOX
Private Sub lbCommands_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lbCommands.SelectedIndexChanged
lbCommands.Visible = False
End Sub

'FOR MONITOR COMMAND
Public WM_SYSCOMMAND As Integer = &H112
Public SC_MONITORPOWER As Integer = &HF170
<DllImport("user32.dll")> _
Private Shared Function SendMessage(ByVal hWnd As Integer, ByVal hMsg As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As Integer
End Function

End Class

由于这行代码,我收到该错误 recognizer.LoadGrammar(New Grammar(grammar))但是我不知道如何修复这条线

Here is an image of the error

任何帮助将不胜感激。谢谢。

最佳答案

我已经解决了这个问题。

您可以在声明识别器之前使用此代码来解决此问题

先导入这个

Imports System.Threading
Imports System.Globalization

其次添加这个
   Thread.CurrentThread.CurrentCulture = New CultureInfo("en-GB")

'或您当前的语言和国家'
   Thread.CurrentThread.CurrentUICulture = New CultureInfo("en-GB")

'或您当前的语言和国家'

关于vb.net - 我如何修复语法的语言与 vb 中语音识别器错误的语言不匹配,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/17012639/

25 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com