Questo sito utilizza cookies, anche di terze parti, per mostrare pubblicità e servizi in linea con il tuo account. Leggi l'informativa sui cookies.
Username: Password: oppure
C# / VB.NET - problema con SPEECH: 'System.Runtime.InteropServices.COMException' in System.Speech.dll
Forum - C# / VB.NET - problema con SPEECH: 'System.Runtime.InteropServices.COMException' in System.Speech.dll

Avatar
uberto (Normal User)
Newbie


Messaggi: 3
Iscritto: 02/12/2018

Segnala al moderatore
Postato alle 19:28
Domenica, 02/12/2018
ciao a tutti :)
Non riesco ad eliminare questo errore; sono in VBNET con framework 4.7.2 ed ho referenziato SYSTEM.SPEECH
grazie per l'aiuto

Codice sorgente - presumibilmente VB.NET

  1. Imports System.Speech.Recognition
  2.  
  3.  
  4. Public Class Form1
  5.     Dim recognizer As New SpeechRecognitionEngine
  6.  
  7.  
  8.  
  9.     Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
  10.      
  11.         MessageBox.Show(recognizer.ToString)
  12.  
  13.         recognizer.SetInputToDefaultAudioDevice()
  14.         MessageBox.Show(recognizer.RecognizerInfo.Description)



Uberto Marchetti
PM Quote
Avatar
Thejuster (Member)
Guru^2


Messaggi: 1888
Iscritto: 04/05/2008

Segnala al moderatore
Postato alle 8:43
Lunedì, 03/12/2018
Ciao umberto, visto che sei nuovo non chiudo il topic. :k:
Ma ti consiglio di leggere bene le linee guida prima di aprire un topic.

Seguendo semplicemente questa linea.

1° Che problema hai?
2° In quale punto del tuo programma sorge il problema?
3° Incolla il codice sorgente piu dettagliato possibile.



Adesso una domanda....

Queste quattro linee di codice sono sbagliate e sono inutili.
Hai scritto altro?
puoi mostrare altro codice?


PM Quote
Avatar
uberto (Normal User)
Newbie


Messaggi: 3
Iscritto: 02/12/2018

Segnala al moderatore
Postato alle 10:38
Sabato, 08/12/2018
ciao
riposto il codice completo che ho scritto
il mio problema è l'errore che compare all'esecuzione del programma
(e che ho messo nel titolo del mio post)

grazie per la disponibilità
ciao

Codice sorgente - presumibilmente VB.NET

  1. Imports System.Speech.Recognition
  2.  
  3.  
  4. Public Class Form1
  5.     Dim recognizer As New SpeechRecognitionEngine
  6.     Dim grammar As New GrammarBuilder
  7.  
  8.  
  9.     Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
  10.         ' On Error GoTo errore
  11.         Timer1.Start()
  12.         grammar.Append(New Choices("left", "right"))
  13.         MessageBox.Show(recognizer.ToString)
  14.  
  15.         recognizer.SetInputToDefaultAudioDevice()
  16.         MessageBox.Show(recognizer.RecognizerInfo.Description)
  17.         recognizer.SetInputToDefaultAudioDevice()
  18.         recognizer.LoadGrammar(New Grammar(grammar))
  19.  
  20.  
  21.  
  22.  
  23.         AddHandler recognizer.SpeechDetected, AddressOf audio_microfono
  24.         AddHandler recognizer.SpeechRecognized, AddressOf audio_riconosciuto
  25.         AddHandler recognizer.SpeechRecognitionRejected, AddressOf audio_NON_riconosciuto
  26.  
  27.  
  28.         recognizer.RecognizeAsync(RecognizeMode.Multiple)
  29.  
  30.         Exit Sub
  31.  
  32. errore:
  33.         MessageBox.Show("ERRORE")
  34.  
  35.     End Sub
  36.     Private Sub audio_microfono(ByVal sender As Object, ByVal e As SpeechDetectedEventArgs)
  37.         MessageBox.Show("qualcuno ha parlato nel microfono" & e.ToString)
  38.  
  39.     End Sub
  40.     Private Sub audio_riconosciuto(ByVal sender As Object, ByVal e As SpeechRecognizedEventArgs)
  41.         Select Case e.ToString
  42.             Case Is = "left"
  43.                 MessageBox.Show("hai detto " & e.ToString)
  44.             Case Is = "right"
  45.                 MessageBox.Show("hai detto " & e.ToString)
  46.         End Select
  47.  
  48.     End Sub
  49.     Private Sub audio_NON_riconosciuto(ByVal sender As Object, ByVal e As SpeechRecognitionRejectedEventArgs)
  50.  
  51.         MessageBox.Show("ma che vuole dire " & e.ToString & " ???")
  52.  
  53.  
  54.     End Sub
  55.  
  56.     Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
  57.  
  58.         Me.Label1.Visible = Not Me.Label1.Visible
  59.     End Sub
  60. End Class



Uberto Marchetti
PM Quote
Avatar
nessuno (Normal User)
Guru^2


Messaggi: 5714
Iscritto: 03/01/2010

Segnala al moderatore
Postato alle 11:57
Sabato, 08/12/2018
E' come se il microfono non fosse presente o non configurato


Ricorda che nessuno è obbligato a risponderti e che nessuno è perfetto ...
---
Il grande studioso italiano Bruno de Finetti (uno dei padri fondatori del moderno Calcolo delle probabilità) chiamava il gioco del Lotto Tassa sulla stupidità.
PM Quote
Avatar
uberto (Normal User)
Newbie


Messaggi: 3
Iscritto: 02/12/2018

Segnala al moderatore
Postato alle 12:17
Sabato, 08/12/2018
c'è qualche libreria che dovrei caricare sul sistema ( sto usando Windows10) ?
ho provato su un altro PC (con XP) scrivendo in VB2008 e l'errore è esattamente lo stesso



Uberto Marchetti
PM Quote
Avatar
nessuno (Normal User)
Guru^2


Messaggi: 5714
Iscritto: 03/01/2010

Segnala al moderatore
Postato alle 13:12
Sabato, 08/12/2018
Hai provato il microfono? Lo hai configurato?


Ricorda che nessuno è obbligato a risponderti e che nessuno è perfetto ...
---
Il grande studioso italiano Bruno de Finetti (uno dei padri fondatori del moderno Calcolo delle probabilità) chiamava il gioco del Lotto Tassa sulla stupidità.
PM Quote