Visual Basic - Reconocimiento del habla

Life is soft - evento anual de software empresarial
 
Vista:

Reconocimiento del habla

Publicado por Mario (3 intervenciones) el 09/06/2007 18:04:31
Nesecito hacer un programa que reconozca el ingreso de voz, encontre un objeto en visual, Directsr, pero no se como usarlo si alguien sabe de algun manual, tutorial o algo que explique como funciona avinsenme.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Reconocimiento del habla

Publicado por Sara (22 intervenciones) el 09/06/2007 18:32:07
Te anexo algo que encontre

Private Sub Form_Load()
Dim totaldata As String
'define configuration
'[Grammer], set language to english (1033)
'[<Start>], define the words we are looking for
totaldata = "[Grammar]" & vbCrLf & _
"langid = 1033" & vbCrLf & _
"type=cfg" & vbCrLf & _
"[<Start>]" & vbCrLf & _
"<start>=Notepad" & vbCrLf & _
"<start>=Volume" & vbCrLf & _
"<start>=Media Player" & vbCrLf

DirectSR1.GrammarFromString (totaldata)
DirectSR1.Activate

Inserta el siguiente codigo en el procedimiento Phrase Phrase
Dim sFile As String
Dim noth As Long

Select Case Phrase
Case "Notepad"
sFile = "\system32\notepad.exe"
noth = ShellExecute(0, "OPEN", Environ("SystemRoot") & sFile, "", "", 1)
Case "Volume"
sFile = "\system32\sndvol32.exe"
noth = ShellExecute(0, "OPEN", Environ("SystemRoot") & sFile, "", "", 1)

Case "Media Player:
sFile = "C:\Program Files\Windows Media Player\mplayer2.exe"

noth = ShellExecute(0, "OPEN", sFile, "", "", 1)

End Select

Esto solo es una parte la liga donde puedes encontrar mayor info es
http://www.developerfusion.co.uk/show/1598/4/
Suerte...
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar