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

时间：2013-06-09 18:09:24

标签： vb.net visual-studio-2010 visual-studio speech-recognition

Hello in 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

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

3 个答案:

答案 0 :(得分：3)

我已经解决了这个问题。

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

首先导入 

Imports System.Threading
Imports System.Globalization

其次添加 

   Thread.CurrentThread.CurrentCulture = New CultureInfo("en-GB")

'或您当前的语言和国家/地区 

   Thread.CurrentThread.CurrentUICulture = New CultureInfo("en-GB")

'或您当前的语言和国家/地区

答案 1 :(得分：0)

就像我在不同的论坛中所说的那样。我的朋友komputer也有同样的问题。所以我做了这个（它只是代码的一部分，因为所有的代码都很长）：

...
RecognizerInfo recognizerInfo = null;

foreach (RecognizerInfo ri in SpeechRecognitionEngine.InstalledRecognizers())
{
   if ((ri.Culture.TwoLetterISOLanguageName.Equals("en")) && (recognizerInfo == null))
   {
      recognizerInfo = ri;
      break;
   }

}

SpeechRecognitionEngine SpeachRecognition = new SpeechRecognitionEngine(recognizerInfo);

GrammarBuilder gb = new GrammarBuilder(startLiserninFraze);
gb.Culture = recognizerInfo.Culture;
grammar = new Grammar(gb);
SpeachRecognition.RequestRecognizerUpdate();
SpeachRecognition.LoadGrammar(grammar);
SpeachRecognition.SpeechRecognized += SpeachRecognition_SpeechRecognized;
SpeachRecognition.SetInputToDefaultAudioDevice();
SpeachRecognition.RecognizeAsync(RecognizeMode.Multiple);
...

所以这应该有效。我的朋友PC支持2个＆＃34; en＆＃34;或者在＆＃34; eng＆＃34;。不舒服为什么。所以代码选择第一个。我在互联网上发现了一些代码的和平，其中一些是我做的。

 SpeachRecognition.SpeechRecognized += SpeachRecognition_SpeechRecognized;

用于在识别所有内容时发生事件。只需输入：

SpeachRecognition.SpeechRecognized + =

并按几次TAB按钮。然后在代码的botom中它会产生类似的东西：

void SpeachRecognition_SpeechRecognized(object sender, SpeechRecognizedEventArgs e)
   {
       //then will be some line that you need to replace with your code
   }

我希望这会有所帮助。 ：）

您的选择更短。但是在进入它之后我得到了关于sintesyzer没有instaled或语言不可用的错误，当运行ower VS 2013.删除代码发布版本后有同样的错误，我从VS跑，但从资源管理器，它是好的。任何人都知道为什么会这样？

答案 2 :(得分：0)

注意：构建 SpeechRecognitionEngine 类型的对象，包括 CultureInfo 的参数以及语法对象的culture属性应该是一样的。 例如 - 我使用＆＃34; en-US＆＃34;获得了相同的描述异常。对于这两个对象。 但正如我使用＆＃34; en-GB＆＃34;对于我德国环境中的两个对象，该程序按预期工作！ 因此，首先检测允许的培养物可能是有用的。 在我看来，你可以避免操纵＆gt;＆gt; Thread.CurrentThread.CurrentCulture＆lt;＆lt;你应该将 SpeechRecognitionEngine 和语法对象的正确设置集中在允许/安装的文化中。

相关问题
最新问题