Software de reconocimiento de voz VB

El nombre del programa es Dictation

El código fuente es el siguiente:

Opción explícita

Dim WithEvents RecoContext As SpSharedRecoContext

Dim Grammar As ISpeechRecoGrammar

Dim m_bRecoRunning As Boolean

Dimm_cChars As Integer

Private Sub Form_Load()

SetState False

m_cChars = 0

End Sub

Subcomando privado1_Click()

Debug.Assert Not m_bRecoRunning

Si (RecoContext no es nada) Entonces

Debug.Print "Inicializando objeto de contexto de recuperación SAPI..."

Establecer RecoContext = New SpSharedRecoContext

Establecer gramática = RecoContext.CreateGrammar(1)

Grammar.DictationLoad

Fin si

Grammar.DictationSetState SGDSActive

SetState True

Fin Sub

Subcomando privado2_Click()

Debug.Assert m_ bRecoRunning

Sintaxis.

DictationSetState SGDSInactive

SetState False

End Sub

Private Sub RecoContext_Recognition( ByVal StreamNumber As Long, _

ByVal StreamPosition como variante, ByVal StreamNumber como largo, _

ByVal StreamPosition como variante, _

ByVal RecognitionType como SpeechRecognitionType, _

ByVal resultado como ISpeechRecoResult _

)

Dim strText As String

strText = Resultado.

Debug.Print "Reconocimiento." amp; strText amp ", " amp; p>

StreamNumber & ", " & StreamPosition

text1.SelStart = m_cChars

text1.Enabled = m_bRecoRunning

End Sub

< Commmand1 de p>commmand1 se usa para inicializar el contenido del cuadro de texto e iniciar el dispositivo de voz (el sistema viene con velocidad de voz, puede usar el atributo de velocidad para ajustarlo usted mismo) Command2 se usa para pausar el dispositivo de voz. el cuadro de texto es texto1. Esto es lo que quiero decir Todo el contenido

.