Reconnaissance vocale

Signaler
Messages postés
4
Date d'inscription
samedi 14 novembre 2009
Statut
Membre
Dernière intervention
27 février 2014
-
Bonjour,


J'essaye depuis deux bonnes semaines de réaliser un programme en VB6 pouvant reconnaitre la voix.
L'exemple simple que j'essaye désespérément de mettre en place consiste à ce que lorsqu'il entendra le mot "Fin", il ferme le programme.
Bien évidemment, ceci n'est qu'un exemple. Cependant, ça ne fonctionne pas. :(

Pourtant, le composant DirectSR est bien installé, mon micro fonctionne à merveille. J'ai utilisé mon programme avec la reconnaissance vocale de Windows (sait-on jamais) et sans, en essayant de changer le "langid" de 1033 à 1036... j'ai tenté l'inévitable sacrifice de poulet en dansant autour de mon pc... mais rien n'y fait.


Pourriez-vous m'éclairer quant-à la démarche à suivre ? J'ai certainement oublié quelque chose, mais quoi ?
Je vous met le code utilisé qui je pense devrait être juste.

Encore merci du temps que vous donnerez à ma requête.


Private Sub Form_Load()

Dim speechgrammer As String
speechgrammer = "[Grammar]" & vbCrLf & _
"langid = 1033" & vbCrLf & _
"type=cfg" & vbCrLf & _
"[<Start>]" & vbCrLf & _
"<start>=Fin" & vbCrLf & _
"<start>=?" & vbCrLf

                                       
DirectSR1.GrammarFromString (speechgrammer)
DirectSR1.Activate
       
End Sub


---
Private Sub DirectSR1_PhraseFinish(ByVal flags As Long, ByVal beginhi As Long, ByVal beginlo As Long, ByVal endhi As Long, ByVal endlo As Long, ByVal Phrase As String, ByVal parsed As String, ByVal results As Long)

Select Case Phrase
        Case Is = "Fin"
        End
  End Select
End Sub


Edit: Ajout des balises de code..