Riconoscimento vocale

martedì 19 aprile 2011 - 20.52

Marcuus Profilo | Newbie

ciao sto cercando di creare in vb 2008 un riconoscimento vocale ho cercato su internet e ho trvato un codice sembra tutto funzionante ma recognizer.setinputtoaudiodevice mi da problemi come lo risolvo??? grazie in anticipo

Imports System.Speech
Imports System.Speech.Recognition
Imports System.Speech.Synthesis
Imports System.IO
Imports System.Speech.AudioFormat

Public Class Form1
Public recognizer As New SpeechRecognitionEngine


Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim grammar As New GrammarBuilder()

grammar.Append(New Choices("LEFT", "RIGHT"))

recognizer.SetInputToDefaultAudioDevice()

recognizer.LoadGrammar(New Grammar(grammar))
AddHandler recognizer.SpeechDetected, AddressOf recognizer_SpeechDetected
'AddHandler recognizer.SpeechRecognitionRejected, AddressOf recognizer_SpeechRejected
'AddHandler recognizer.SpeechRecognized, AddressOf recognizer_SpeechRecognized
recognizer.RecognizeAsync(RecognizeMode.Multiple)

End Sub

Private Sub recognizer_SpeechDetected(ByVal sender As Object, ByVal e As SpeechDetectedEventArgs)
'nessuna azione

End Sub

Private Sub recognizer_SpeechRejected(ByVal sender As Object, ByVal e As SpeechDetectedEventArgs)
MessageBox.Show("Comando non riconosciuto, ritenta sarai piu' fortunato")

End Sub

Private Sub recognizer_SpeechRecognized(ByVal sender As Object, ByVal e As SpeechDetectedEventArgs)

Select Case e.ToString.ToUpper


Case Is = "LEFT"
MessageBox.Show("Complimenti la parola" & " " & e.ToString & "e' stata riconosciuta")




Case Is = "RIGHT"
MessageBox.Show("Complimenti la parola" & " " & e.ToString & "e' stata riconosciuta")
End Select

End Sub

End Class
Partecipa anche tu! Registrati!
Hai bisogno di aiuto ?
Perchè non ti registri subito?

Dopo esserti registrato potrai chiedere
aiuto sul nostro Forum oppure aiutare gli altri

Consulta le Stanze disponibili.

Registrati ora !
Copyright © dotNetHell.it 2002-2017
Running on Windows Server 2008 R2 Standard, SQL Server 2012 & ASP.NET 3.5