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
