Aim of this project: Talk, Computer will write for you
Main Title: Voice Recognition
Project: Talk, Computer will write for you
Developer: Md. Redwanur Rahman
Location: Dhaka, Bangladesh.
Date: 11 February, 2008
Read Me:
This sample demonstrates how to do simple dictation in VB with SAPI 5.1. It uses shared recognized context object, uses the default audio input, loads in dictation grammar, sets up event handlers, and shows the recognized text in the dialog text box.
Note:
Since the text box is using system locale, it may not correctly show characters in other languages. For example, if you use Chinese Speech Recognition engine as the default engine on your English OS, the text box may show garbage even though the engine recognizes Chinese.
Helps:
You need to install SAPI, go to
http://www.microsoft.com/speech/download/sdk51/ and download sapi5.1
Setup:
To use this get and install the sapi 5.1, free from microsoft
Then go to control panel, speech. Configure the microphone
(You may have to go to the volume control at the bottom of your screen and unmute the Line in)
Run the training session (you may have to add a new profile)
Make sure it is very quiet around you
Be sure to turn off the microphone, Line in after using this or it will
Go asunder (ie get all screwed up)
Have fun it's a blast
P.S it takes a while for the computer to register the voice the first time around so give it a few seconds and see if it comes up.
Program details:
Option Explicit
Dim WithEvents RecoContext As SpSharedRecoContext
Dim Grammar As ISpeechRecoGrammar
Dim m_bRecoRunning As Boolean
Dim m_cChars As Integer
Dim vol As Double ' this helps open the volume control
Dim bye As Integer 'this closes the volume control
Private Sub btnend_Click()
'to end you must turn off the volume control
'If bye = 1 Then End
'vol = Shell("sndvol32", 1)
' you need to do this so the volume control doesn't just
'stop and minimize
'bye = bye + 1
'disable the buttons
'btnStop.Enabled = False
'btnStart.Enabled = False
'change the end buton caption to exit
'btnend.Caption = "&Exit"
End
End Sub
Private Sub Form_Load()
SetState False
m_cChars = 0
'open the volume control to turn it on (not mute)**NOTE this is not microphone but LINE in
Dim vol As Double
vol = Shell("sndvol32", 1)
End Sub
Private Sub btnStart_Click()
Debug.Assert Not m_bRecoRunning
' Initialize recognition context object and grammar object, then
' start dictation
If (RecoContext Is Nothing) Then
Debug.Print "Initializing SAPI reco context object..."
Set RecoContext = New SpSharedRecoContext
Set Grammar = RecoContext.CreateGrammar(1)
Grammar.DictationLoad
End If
Grammar.DictationSetState SGDSActive
SetState True
End Sub
Private Sub btnStop_Click()
Debug.Assert m_bRecoRunning
Grammar.DictationSetState SGDSInactive
SetState False
End Sub
Private Sub Form_Unload(Cancel As Integer)
'open the volume control mute the line in box
vol = Shell("sndvol32", 1)
End Sub
' This function handles Recognition event from the recognized context object.
' Recognition event is fired when the speech recognition engines recognizes
' a sequences of words.
Private Sub RecoContext_Recognition(ByVal StreamNumber As Long, _
ByVal StreamPosition As Variant, _
ByVal RecognitionType As SpeechRecognitionType, _
ByVal Result As ISpeechRecoResult _
)
Dim strText As String
'this is to open the notepad
Dim RetVal As Double
strText = Result.PhraseInfo.GetText
'do what you want for various words here
If strText = "green" Then Label1.BackColor = vbGreen
If strText = "red" Then Label1.BackColor = vbRed
If strText = "yellow" Then Label1.BackColor = vbYellow
If strText = "black" Then Label1.BackColor = vbBlack
'this is to end the program by saying by
If strText = "by" Then
MsgBox ("remember to turn off the volume line in")
End
End If
'1 is normal, 3 is maximized 6 is minimized
If strText = "not" Then RetVal = Shell("c:windowsnotepad.exe", 3)
'I'm not sure why microsoft put this in, I took it out and all is still okay
'Debug.Print "Recognition: " & strText & ", " & _
StreamNumber & ", " & StreamPosition
' Append the new text to the text box, and add a space at the end of the
' text so that it looks better
txtSpeech.SelStart = m_cChars
txtSpeech.SelText = strText & " "
m_cChars = m_cChars + 1 + Len(strText)
End Sub
' This function handles the state of Start and Stop buttons according to
' whether dictation is running.
Private Sub SetState(ByVal bNewState As Boolean)
m_bRecoRunning = bNewState
btnStart.Enabled = Not m_bRecoRunning
btnStop.Enabled = m_bRecoRunning
End Sub
Email:
redu0007@yahoo.com
Web:
www.geocities.com/redu0007
Conclusion:
This program recognized your voice and write in a text field. You can use this program to write in MS-word, MS-Excel
L'entretien, ordinateur écrira pour toi
Automatically translated into French thanks to WorldLingo
But de ce projet : Parlez, ordinateur écrira pour toi
le titre principal : Projet d'identification
de voix : Parlez, ordinateur écrira pour toi
le réalisateur : Md. Endroit de Redwanur
Rahman : Dhaka, Bangladesh.
Date : Le 11 février 2008
m'a lu :
Cet échantillon démontre comment à faites la dictée simple dans VB avec SAPI 5.1. Il emploie l'objet identifié partagé de contexte, emploie l'entrée audio de défaut, charges dans la grammaire de dictée, établit des traiteurs d'événement, et montre le texte identifié dans la boîte des textes de dialogue.
Note :
Puisque la boîte des textes emploie le lieu de système, elle peut correctement ne pas montrer des caractères dans d'autres langues. Par exemple, si vous utilisez le moteur chinois de reconnaissance de la parole comme moteur de défaut sur votre OS anglais, la boîte des textes peut montrer des ordures quoique le moteur identifie le chinois.
Aides :
Vous devez installer SAPI, allez à
http://www.microsoft.com/speech/download/sdk51/ et téléchargez sapi5.1
installé :
Pour employer ceci obtenez et installez le sapi 5.1, exempt de Microsoft
puis allez au panneau de commande, la parole. Configurez le microphone
(vous pouvez devoir entrer à la commande de volume au fond de votre écran et unmute la ligne)
courent la session de formation (vous pouvez devoir ajouter un nouveau profil)
s'assurent qu'il est très tranquille autour de toi
soit sûr d'arrêter le microphone, raye dedans après avoir employé ceci ou il
ira asunder (l'IE obtiennent tous vissés vers le haut de)
ont l'amusement que c'est un souffle
P.S cela prend un moment pour que l'ordinateur enregistre la voix la première fois autour de ainsi donnez-lui quelques secondes et voient s'il monte.
Détails de programme :
L'option faible
WithEvents explicite RecoContext comme faible
grammaire de SpSharedRecoContext comme ISpeechRecoGrammar
faible m_bRecoRunning car les faibles
m_cChars booléens comme nombre entier
faible vol. comme double 'ceci aide ouvert bye de commande
de volume le faible pendant que le nombre entier 'ceci ferme le btnend_Click secondaire
privé de commande de volume ()
'pour vous finir doit arrêter la commande de volume
'si le bye = 1 finissent alors
'vol. = Shell (« sndvol32 », 1)
'que vous doivent faire ceci ainsi la commande de volume simplement
'ne s'arrête pas et réduire au minimum
'le bye = le bye + 1
'neutralisent la légende
de buton d'extrémité de boutons '
btnStop.Enabled = faux '
btnStart.Enabled = faux 'changement btnend
à sortie '. Légende = sous-marin Form_Load secondaire
privé
d'extrémité d'extrémité
de « &Exit » ()
SetState faux
m_cChars = 0
'ouvrez la commande de volume pour la tourner sur la NOTE de ** (non muet) que ce n'est pas microphone mais LIGNE dedans
Obscurcissez le vol. en tant que double
vol. = Shell (« sndvol32 », 1)
btnStart_Click secondaire
privé secondaire d'extrémité ()
Debug.Assert pas m_bRecoRunning
'Initialisez l'objet de contexte d'identification et l'objet de grammaire, puis
'commencez la dictée
Si (RecoContext n'est rien) puis
Objet de initialisation de contexte de reco de Debug.Print « SAPI… »
Placez RecoContext = nouveau SpSharedRecoContext
Placez la grammaire = le RecoContext.CreateGrammar (1)
Grammar.DictationLoad
Finissent si
Grammar.DictationSetState SGDSActive
btnStop_Click secondaire
privé de véritable
sous-marin d'extrémité de SetState ()
Debug.Assert m_bRecoRunning
Grammar.DictationSetState SGDSInactive
Le sous-marin faux
Form_Unload secondaire
privé (annulation d'extrémité de SetState comme nombre entier)
'ouvrent le muet de commande de volume la ligne dans la boîte
vol. = sous-marin d'extrémité de Shell (« sndvol32 »,
1)
'cet événement d'identification de poignées de fonction de l'objet identifié de contexte.
Le 'événement d'identification est mis le feu quand les moteurs de reconnaissance de la parole identifie
'des ordres des mots.
RecoContext_Recognition secondaire privé (ByVal StreamNumber en tant que longtemps, _
ByVal StreamPosition comme variante, _
ByVal RecognitionType comme SpeechRecognitionType, _
Résultat de ByVal comme ISpeechRecoResult _
)
Faible strText comme corde
'c'est d'ouvrir le bloc-notes
Faible RetVal en tant que double
strText = Result.PhraseInfo.GetText
'faites ce que vous voulez pour différents mots ici
Si le strText = « vert » puis Label1.BackColor = vbGreen
Si le strText = « rouge » puis Label1.BackColor = vbRed
Si strText = « jaune » puis Label1.BackColor = vbYellow
Si strText = « noir » puis Label1.BackColor = vbBlack
'c'est d'extrémité le programme en disant près
Si strText = « par » puis
MsgBox (« rappelez-vous d'arrêter la ligne de volume dans »)
Extrémité
Finissez si
'1 est normal, 3 est maximisé 6 est réduit au minimum
Si le strText = « » puis RetVal = Shell (« c:windowsnotepad.exe », 3)
'je ne suis pas sûr pourquoi Microsoft a mis ceci dedans, je l'ai enlevé et tout est encore bien
'Identification de Debug.Print « : « et strText et », « et _
StreamNumber et « , » et StreamPosition
'Apposez le nouveau texte dans la boîte des textes, et ajoutez un espace à la fin du
'texte de sorte qu'il regarde mieux
txtSpeech.SelStart = m_cChars
txtSpeech.SelText = strText et « «
les m_cChars = les m_cChars + 1 + sous-marin d'extrémité de Len (
strText)
'cette fonction manipule l'état de touches "ARRÊT" de début et selon
'si la dictée fonctionne.
SetState secondaire privé (bNewState de ByVal comme booléen)
m_bRecoRunning = bNewState
btnStart.Enabled = pas m_bRecoRunning
btnStop.Enabled = email
secondaire m_bRecoRunning
d'extrémité :
Web
de redu0007@yahoo.com :
conclusion
de
www.geocities.com/redu0007 :
Ce programme a identifié votre voix et écrit dans un domaine des textes. Vous pouvez employer ce programme pour écrire dans le Mme.-mot, Mme.-Excel
La charla, computadora escribirá para usted
Automatically translated into Spanish thanks to WorldLingo
Puntería de este proyecto: Hable, computadora escribirá para usted
título principal: Proyecto del reconocimiento
de voz: Hable, computadora escribirá para usted
el revelador: Md. Localización de Redwanur
Rahman: Dhaka, Bangladesh.
Fecha: El 11 de febrero de 2008
me leyó:
Esta muestra demuestra cómo a haga el dictado simple en VB con SAPI 5.1. Utiliza el objeto reconocido compartido del contexto, utiliza la entrada audio del defecto, cargas en la gramática del dictado, instala a tratantes del acontecimiento, y demuestra el texto reconocido en la caja de texto de diálogo.
Nota:
Puesto que la caja de texto está utilizando el locale del sistema, puede no demostrar correctamente caracteres en otras idiomas. Por ejemplo, si usted utiliza el motor chino del reconocimiento de discurso como el motor del defecto en su OS inglés, la caja de texto puede demostrar que la basura aun cuando el motor reconoce chino.
Ayudas:
Usted necesita instalar SAPI, va a
http://www.microsoft.com/speech/download/sdk51/ y descarga sapi5.1
Setup:
Para utilizar esto consiga e instale el sapi 5.1, libre de Microsoft
después vaya al panel de control, discurso. Configure el micrófono
(usted puede tener que entrar al control de volumen en el fondo de su pantalla y unmute la línea)
funcionan la sesión del entrenamiento (usted puede tener que agregar un nuevo perfil)
se cercioran de que es muy reservado alrededor de usted
sea seguro dar vuelta apagado al micrófono, alinea adentro después de usar esto o
irá asunder (el IE consigue todos atornillados encima de)
tiene diversión que es una ráfaga
P.S toma un rato para que la computadora coloque la voz la primera vez alrededor así que déle algunos segundos y ven si sube.
Detalles del programa:
La opción WithEvents
dévil explícito RecoContext como gramática
dévil de SpSharedRecoContext como ISpeechRecoGrammar
el m_bRecoRunning dévil como los m_cChars
déviles boleanos como número entero
vol. dévil como doble 'esto ayudan abierto al adiós dévil
del control de volumen mientras que el número entero 'esto cierra el btnend_Click secundario
privado del control de volumen ()
'para terminarle debe dar vuelta apagado al control de volumen
'si el adiós = 1 entonces termina
'vol. = Shell (“sndvol32”, 1)
'que usted necesitan hacer esto así que el control de volumen apenas
'no para y reducir al mínimo
'el adiós = el adiós + 1
'inhabilitan
el subtítulo del buton del extremo de los botones
'btnStop.Enabled = falso
'btnStart.Enabled = falso 'cambio btnend
de la salida '. Subtítulo = submarino Form_Load secundario
privado
del extremo del extremo
del “&Exit” ()
SetState falso
m_cChars = 0
'abra el control de volumen para darle vuelta en NOTA del ** (no mudo) que ésta es no micrófono sino LÍNEA adentro
Amortigüe el vol. como doble
vol. = Shell (“sndvol32”, 1)
btnStart_Click secundario
privado secundario del extremo ()
Debug.Assert m_bRecoRunning
'Inicialice el objeto del contexto del reconocimiento y el objeto de la gramática, entonces
'comience el dictado
Si (RecoContext no es nada) entonces
Objeto incialización del contexto del reco de Debug.Print de “SAPI…”
Fije RecoContext = SpSharedRecoContext nuevo
Fije la gramática = RecoContext.CreateGrammar (1)
Grammar.DictationLoad
Terminan si
Grammar.DictationSetState SGDSActive
btnStop_Click secundario
privado del submarino
verdadero del extremo de SetState ()
Debug.Assert m_bRecoRunning
Grammar.DictationSetState SGDSInactive
El submarino falso
Form_Unload secundario
privado (cancelación del extremo de SetState como número entero)
'abre a mudo del control de volumen la línea en caja
vol. = submarino del extremo de Shell (“sndvol32”,
1)
'este acontecimiento del reconocimiento de las manijas de la función del objeto reconocido del contexto.
Se enciende el 'acontecimiento del reconocimiento cuando los motores del reconocimiento de discurso reconocen
'secuencias de palabras.
RecoContext_Recognition secundario privado (ByVal StreamNumber como de largo, _
ByVal StreamPosition como variante, _
ByVal RecognitionType como SpeechRecognitionType, _
Resultado de ByVal como ISpeechRecoResult _
)
strText dévil como secuencia
'éste es abrir la libreta
RetVal dévil como doble
strText = Result.PhraseInfo.GetText
'haga lo que usted desea para las varias palabras aquí
Si el strText = “verde” entonces Label1.BackColor = vbGreen
Si el strText = “rojo” entonces Label1.BackColor = vbRed
Si strText = “amarillo” entonces Label1.BackColor = vbYellow
Si strText = “negro” entonces Label1.BackColor = vbBlack
'éste es extremo el programa diciendo cerca
Si strText = “por” entonces
MsgBox (“recuerde dar vuelta apagado a la línea del volumen en”)
Extremo
Termine si
se reduce al mínimo '1 es normal, 3 se maximiza 6
Si el strText = “” no entonces RetVal = Shell (“c:windowsnotepad.exe”, 3)
'yo no es seguro porqué Microsoft puso esto adentro, lo tomé hacia fuera y todo sigue siendo aceptable
'Reconocimiento de Debug.Print “: “y strText y”, “y _
StreamNumber y “,” y StreamPosition
'Añada el nuevo texto a la caja de texto, y agregue un espacio en el final del
'texto de modo que mire mejor
txtSpeech.SelStart = m_cChars
txtSpeech.SelText = strText y ““
los m_cChars = los m_cChars + 1 + submarino del extremo de Len (
strText)
'esta función manejan el estado de los botones de paro del comienzo y según
'si el dictado está funcionando.
SetState secundario privado (bNewState de ByVal como boleano)
el m_bRecoRunning = bNewState
btnStart.Enabled = no m_bRecoRunning
btnStop.Enabled = email
secundario m_bRecoRunning
del extremo:
Web
de redu0007@yahoo.com:
conclusión
de
www.geocities.com/redu0007:
Este programa reconoció su voz y escribe en un campo del texto. Usted puede utilizar este programa para escribir en la Ms-palabra, Ms-Excel
Il colloquio, calcolatore scriverà per voi
Automatically translated into Italian thanks to WorldLingo
Scopo di questo progetto: Comunichi, calcolatore scriverà per voi
il titolo principale: Progetto di riconoscimento della voce
: Comunichi, calcolatore scriverà per voi
lo sviluppatore: Md. Posizione di Redwanur
Rahman: Dhaka, Bangladesh.
Data: L'11 febbraio 2008
lo ha letto:
Questo campione dimostra come a faccia la dettatura semplice in VB con SAPI 5.1. Usa l'oggetto riconosciuto comune di contesto, usa l'input audio di difetto, carichi nella grammatica della dettatura, installa gli alimentatori di evento e mostra il testo riconosciuto nella casella di testo di dialogo.
Nota:
Poiché la casella di testo sta usando il locale del sistema, non può mostrare correttamente i caratteri in altre lingue. Per esempio, se utilizzate il motore cinese di riconoscimento della parola come il motore di difetto sul vostro OS inglese, la casella di testo può mostrare l'immondizia anche se il motore riconosce il cinese.
Aiuti:
Dovete installare SAPI, andate a
http://www.microsoft.com/speech/download/sdk51/ e trasferite sapi5.1 dal sistema centrale verso i satelliti
installato:
Per usare questo convinca ed installi il sapi 5.1, esente da microsoft
quindi vada al pannello di controllo, discorso. Configuri il microfono
(potete dovere andare al controllo di volume alla parte inferiore del vostri schermo e unmute la linea dentro)
fanno funzionare la sessione di addestramento (potete dovere aggiungere un nuovo profilo)
si assicurano che è molto calmo intorno voi
è sicuro da spegnere il microfono, si allinea dentro dopo usando questo o
andrà asunder (IE ottiene tutti avvitati su)
ha divertimento è uno scoppio
P.S occorre un istante affinchè il calcolatore registri la prima volta la voce intorno in modo da diagli alcuni secondi e vedono se viene in su.
Particolari di programma:
L'opzione WithEvents
fioco esplicito RecoContext come grammatica
fioca di SpSharedRecoContext come ISpeechRecoGrammar
m_bRecoRunning fioco poichè i m_cChars
fiochi booleani come volume
fioco di numero intero come doppio 'questo aiuta aperto il arrivederci fioco
di controllo di volume mentre il numero intero 'questo chiude il btnend_Click secondario
riservato di controllo di volume ()
'per concluderlo deve spegnere il controllo di volume
'se il arrivederci = 1 allora conclude
'volume = Shell (“sndvol32„, 1)
'che voi devono fare questo in modo da il controllo di volume '
non si arresta appena e minimizzare
'il arrivederci = il arrivederci + 1
'inabilitano il titolo
del buton dell'estremità dei tasti '
btnStop.Enabled = falso '
btnStart.Enabled = falso 'cambiamento btnend
all'uscita '. Titolo = sommergibile Form_Load secondario
riservato
dell'estremità dell'estremità
“del &Exit„ ()
SetState falso
m_cChars = 0
'apra il controllo di volume per girarlo (sulla NOTA che) del ** non muto questa è non microfono ma LINEA dentro
Oscuri il volume come doppio
volume = Shell (“sndvol32„, 1)
btnStart_Click secondario
riservato secondario dell'estremità ()
Debug.Assert che non m_bRecoRunning
'Inizializzi l'oggetto di contesto di riconoscimento e l'oggetto di grammatica, allora
'inizi la dettatura
Se (RecoContext è niente) allora
Oggetto d'inizializzazione di contesto di reco di Debug.Print “SAPI…„
Regoli RecoContext = nuovo SpSharedRecoContext
Regoli la grammatica = RecoContext.CreateGrammar (1)
Grammar.DictationLoad
Si concludono se
Grammar.DictationSetState SGDSActive
btnStop_Click secondario
riservato del vero
sommergibile dell'estremità di SetState ()
Debug.Assert che m_bRecoRunning
Grammar.DictationSetState SGDSInactive
Il sommergibile falso
Form_Unload secondario
riservato (annullamento dell'estremità di SetState come numero intero)
'apre il muto di controllo di volume la linea in scatola
volume = sommergibile dell'estremità di Shell (“sndvol32„,
1)
'questo evento di riconoscimento delle maniglie di funzione dall'oggetto riconosciuto di contesto.
'L'evento di riconoscimento è infornato quando i motori di riconoscimento della parola riconosce
'le sequenze delle parole.
RecoContext_Recognition secondario riservato (ByVal StreamNumber come lungamente, _
ByVal StreamPosition come variante, _
ByVal RecognitionType come SpeechRecognitionType, _
Risultato di ByVal come ISpeechRecoResult _
)
strText fioco come stringa
'questa è di aprire il notepad
RetVal fioco come doppio
strText = Result.PhraseInfo.GetText
'faccia che cosa desiderate per varie parole qui
Se lo strText = “verde„ allora Label1.BackColor = vbGreen
Se lo strText = “colore rosso„ allora Label1.BackColor = vbRed
Se strText = “colore giallo„ allora Label1.BackColor = vbYellow
Se strText = “nero„ allora Label1.BackColor = vbBlack
'questa è di estremità il programma dicendo vicino
Se strText = “da„ allora
MsgBox (“ricordi di spegnere la linea del volume in„)
Estremità
Concluda se
'1 è normale, 3 è elevato 6 è minimizzato
Se lo strText = “„ non allora RetVal = Shell (“c:windowsnotepad.exe„, 3)
'io non sono sicuro perchè microsoft ha messo questo dentro, lo ho eliminato e tutto è ancora giusto
Riconoscimento 'di Debug.Print “: “& strText &„, “& _
StreamNumber & “,„ & StreamPosition
'Colleghi il nuovo testo alla casella di testo ed aggiunga uno spazio alla conclusione del
'testo in modo che osservi più meglio
txtSpeech.SelStart = m_cChars
txtSpeech.SelText = strText & ““
i m_cChars = i m_cChars + 1 + sommergibile dell'estremità di Len (
strText)
'questa funzione maneggia il dichiarare dei tasti di arresto e di inizio secondo
'se la dettatura sta funzionando.
SetState secondario riservato (bNewState di ByVal come booleano)
m_bRecoRunning = bNewState
btnStart.Enabled = non m_bRecoRunning
btnStop.Enabled = email
secondario m_bRecoRunning
dell'estremità:
fotoricettore
di redu0007@yahoo.com:
conclusione
di
www.geocities.com/redu0007:
Questo programma ha riconosciuto la vostra voce e scrive in un giacimento del testo. Potete usare questo programma per scrivere nella Ms-parola, Ms-Excel
Gespräch, Computer schreibt für Sie
Automatically translated into German thanks to WorldLingo
Ziel dieses Projektes: Sprechen Sie, Computer schreibt für Sie
Haupttitel: Sprachanerkennung
Projekt: Sprechen Sie, Computer schreibt für Sie
Entwickler: Md. Redwanur Rahman
Position: Dhaka, Bangladesh.
Datum: 11. Februar 2008
las mich:
Diese Probe zeigt, wie zu einfaches Diktat in VB mit SAPI 5.1 tun Sie. Es benutzt geteilten anerkannten Kontextgegenstand, benutzt den Rückstellung Audioeingang, Lasten in der Diktatgrammatik, stellt Fallzufuhren auf und zeigt den anerkannten Text im Dialogtextkasten.
Anmerkung:
Da der Textkasten System Schauplatz benutzt, kann er möglicherweise nicht Buchstaben in anderen Sprachen richtig zeigen. Z.B. wenn Sie chinesische Spracherkennung Maschine als die Rückstellung Maschine auf Ihrem englischen OS benutzen, kann der Textkasten Abfall zeigen, obwohl die Maschine Chinesen erkennt.
Hilfen:
Sie müssen SAPI anbringen, gehen zu
http://www.microsoft.com/speech/download/sdk51/ und downloaden gegründetes
sapi5.1:
Um dieses zu verwenden erhalten Sie und bringen Sie das sapi 5.1 an, frei von Microsoft
dann gehen Sie zur Steuerverkleidung, Rede. Bauen Sie das Mikrophon
(Sie können zum Lautstärkeregler an der Unterseite Ihres Schirmes und unmute innen gehen müssen die Linie),
laufen lassen den Training Lernabschnitt (Sie können ein neues Profil addieren müssen),
sicherstellen daß es um Sie ist sicher,
das Mikrophon abzustellen, zeichnet sehr ruhig ist, innen nachdem es dieses verwendet hat, oder es
asunder (IE erhalten alle geschraubt herauf), hat
Spaß geht, den es ein Knall P.S
ist, es wann dauert, damit der Computer die Stimme das erste mal um registriert, also ihm einige Sekunden geben Sie und sehen zusammen, wenn es oben kommt.
Programmdetails:
Wahl ausdrückliches
schwaches WithEvents RecoContext als SpSharedRecoContext
schwache Grammatik als ISpeechRecoGrammar
das schwache m_bRecoRunning, da Boolesche
schwache m_cChars als Ganzzahl
schwaches Vol. als Doppeltes 'dieses geöffnet dem schwachen Tschuess des
Lautstärkereglers hilft, während Ganzzahl 'dieses das Lautstärkeregler private
Vorbtnend_Click () '
schließt, um Sie zu beenden, den Lautstärkeregler abstellen muß
', wenn Tschuess = 1 dann '
Vol. = Shell beenden („sndvol32“, 1)
'Sie müssen dies tun, also der Lautstärkeregler, nicht gerade
'stoppt und sperren
Tschuess = Tschuess + 1 '
der Tasten 'btnStop.Enabled
= falsch 'btnStart.Enabled
= falsch 'änderung
Ende buton Untertitel herabzusetzen 'am Ausgang
'btnend. Untertitel = „&Exit“
Ende
Ende Unterseeboot
privates VorForm_Load ()
SetState falsch
m_cChars = 0
'öffnen Sie den Lautstärkeregler, um ihn auf (nicht stummes) ** ANMERKUNG zu drehen, die dieses nicht Mikrophon aber LINIE innen ist
Verdunkeln Sie Vol. als Doppeltes
Vol. = Shell („sndvol32“, 1)
Ende
privates Vorvorbtnstart_click ()
Nicht m_bRecoRunning Debug.Assert
'Initialisieren Sie Anerkennung Kontextgegenstand und Grammatikgegenstand, dann
'beginnen Sie Diktat
Wenn (RecoContext ist nichts), dann
Debug.Print „initialisierenSAPI reco Kontextgegenstand…“
Stellen Sie RecoContext = neues SpSharedRecoContext ein
Stellen Sie Grammatik = RecoContext.CreateGrammar ein (1)
Grammar.DictationLoad
Beenden wenn
Grammar.DictationSetState SGDSActive
SetState zutreffendes
Ende Unterseeboot
privates VorbtnStop_Click ()
m_bRecoRunning Debug.Assert
Grammar.DictationSetState SGDSInactive
SetState öffnen
falsches Ende
Unterseeboot privates VorForm_Unload (Löschen als Ganzzahl
) 'den Lautstärkereglerstummen die Linie im Kasten
Vol. = Shell („sndvol32“, 1)
Ende Unterseeboot
'dieser Funktion Handgriffe Anerkennung Fall vom anerkannten Kontextgegenstand.
'Anerkennung Fall wird abgefeuert, wenn die Spracherkennung Maschinen '
Reihenfolgen von Wörtern erkennt.
Privates VorRecoContext_Recognition (ByVal StreamNumber als lang, _
ByVal StreamPosition als Variante, _
ByVal RecognitionType als SpeechRecognitionType, _
ByVal Resultat als ISpeechRecoResult _
)
Schwaches strText als Zeichenkette
'dieses ist, den Notizblock zu öffnen
Schwaches RetVal als Doppeltes
strText = Result.PhraseInfo.GetText
'tun Sie, was Sie für verschiedene Wörter hier wünschen
Wenn strText = „Grün“ dann Label1.BackColor = vbGreen
Wenn strText = „Rot“ dann Label1.BackColor = vbRed
Wenn strText = „Gelb“ dann Label1.BackColor = vbYellow
Wenn strText = „Schwarzes“ dann Label1.BackColor = vbBlack
'dieses ist, das Programm Ende, indem es vorbei sagt
Wenn strText = „bis“ dann
MsgBox („erinnern Sie sich, die Volumenlinie in abzustellen“)
Ende
Beenden Sie wenn
'1 ist, 3 wird maximiert 6 wird herabgesetzt normal
Wenn strText = „nicht“ dann RetVal = Shell („c:windowsnotepad.exe“, 3)
'ich nicht sicher sind, warum Microsoft dieses innen setzte, nahm ich es heraus und aller ist noch okay
'Debug.Print „Anerkennung: „u. strText u.“, „u. _
StreamNumber u. „,“ u. StreamPosition
'Fügen Sie den neuen Text zum Textkasten, an und fügen Sie einen Raum am Ende von hinzu
'Text, damit er besser schaut
txtSpeech.SelStart = m_cChars
txtSpeech.SelText = strText u. „„
m_cChars = m_cChars + 1 + Len (strText)
Ende Unterseeboot
'diese Funktion faßt den Zustand der Anfangs- und STOP-Tasten entsprechend
'an, ob Diktat läuft.
Privates VorSetState (ByVal bNewState, wie Boolesch)
m_bRecoRunning = bNewState
btnStart.Enabled = nicht m_bRecoRunning
btnStop.Enabled = m_bRecoRunning
Ende Vor-
email:
redu0007@yahoo.com
Netz:
www.geocities.com/redu0007
Zusammenfassung:
Dieses Programm erkannte Ihre Stimme und schreibt in einen Text auffangen. Sie können dieses Programm verwenden, um in Ms-Wort, Ms-Excel zu schreiben
A conversa, computador escreverá para você
Automatically translated into Portuguese thanks to WorldLingo
Alvo deste projeto: Fale, computador escreverá para você
o título principal: Projeto do Recognition
de voz: Fale, computador escreverá para você
o colaborador: Md. Posição de Redwanur
Rahman: Dhaka, Bangladesh.
Data: 11 fevereiro, 2008
leu-me:
Esta amostra demonstra como a faça o ditado simples em VB com SAPI 5.1. Usa o objeto reconhecido compartilhado do contexto, usa a entrada audio do defeito, cargas na gramática do ditado, ajusta acima alimentadores do evento, e mostra o texto reconhecido na caixa de texto do diálogo.
Nota:
Desde que a caixa de texto está usando o locale do sistema, não pode corretamente mostrar caráteres em outras línguas. Por exemplo, se você usar o motor chinês do Recognition de discurso como o motor do defeito em seu ósmio inglês, a caixa de texto pode mostrar o lixo mesmo que o motor reconheça o chinês.
Ajudas:
Você necessita instalar SAPI, vai a
http://www.microsoft.com/speech/download/sdk51/ e download sapi5.1
Setup:
Para usar isto comece e instale o sapi 5.1, livre de microsoft
a seguir vá ao painel de controle, discurso. Configurar o microfone
(você pode ter que ir dentro ao controle de volume no fundo de seus tela e unmute a linha)
funcionam a sessão do treinamento (você pode ter que adicionar um perfil novo)
certificam-se que é muito quieto em torno de você
seja certo desligar o microfone, alinhe dentro após ter usado isto ou
irá asunder (o IE começa tudo parafusado acima de)
tem o divertimento que é uma explosão
P.S faz exame de um quando para que o computador registe a voz a primeira vez em torno assim que lhe dê alguns segundos e se vêem se vier acima.
Detalhes do programa:
A opção WithEvents
não ofuscante explícito RecoContext como a gramática
não ofuscante de SpSharedRecoContext como ISpeechRecoGrammar
m_bRecoRunning não ofuscante porque os m_cChars
não ofuscantes booleanos como o inteiro
vol não ofuscante como o dobro 'isto ajudam aberto ao adeus não ofuscante
do controle de volume enquanto o inteiro 'isto fecha o btnend_Click secundário
confidencial do controle de volume ()
'para o terminar deve desligar o controle de volume
'se o adeus = 1 terminar então
'vol = Shell (“sndvol32”, 1)
'que você necessitem fazer isto assim que o controle de volume apenas
'não para e para minimizar
'o adeus = o adeus + 1
'incapacitam o subtítulo
do buton da extremidade das teclas '
btnStop.Enabled = falso '
btnStart.Enabled = falso 'mudança btnend
à saída '. Subtítulo = submarino Form_Load secundário
confidencial
da extremidade da extremidade
do “&Exit” ()
SetState falso
m_cChars = 0
'abra o controle de volume para girá-lo (na NOTA que) do ** nao mute esta é não microfone mas LINHA dentro
Escureça o vol como o dobro
vol = Shell (“sndvol32”, 1)
btnStart_Click secundário
confidencial secundário da extremidade ()
Debug.Assert que não m_bRecoRunning
'Inicialize o objeto do contexto do recognition e o objeto da gramática, então
'comece o ditado
Se (RecoContext não é nada) então
Objeto inicializando do contexto do reco de Debug.Print “SAPI…”
Ajuste RecoContext = SpSharedRecoContext novo
Ajuste a gramática = o RecoContext.CreateGrammar (1)
Grammar.DictationLoad
Terminam se
Grammar.DictationSetState SGDSActive
Do submarino verdadeiro
da extremidade de SetState
btnStop_Click secundário confidencial ()
Debug.Assert que m_bRecoRunning
Grammar.DictationSetState SGDSInactive
O submarino falso
Form_Unload secundário
confidencial da extremidade de SetState (cancelamento como o inteiro)
'abre o mute do controle de volume a linha na caixa
vol = submarino da extremidade de Shell (“sndvol32”,
1)
'este evento do Recognition dos punhos da função do objeto reconhecido do contexto.
'O evento do Recognition é ateado fogo quando os motores do recognition de discurso reconhecem
'seqüências das palavras.
RecoContext_Recognition secundário confidencial (ByVal StreamNumber como por muito tempo, _
ByVal StreamPosition como o Variant, _
ByVal RecognitionType como SpeechRecognitionType, _
Resultado de ByVal como ISpeechRecoResult _
)
strText não ofuscante como a corda
'este é abrir o notepad
RetVal não ofuscante como o dobro
strText = Result.PhraseInfo.GetText
'faça o que você quer para várias palavras aqui
Se o strText = “verde” então Label1.BackColor = vbGreen
Se o strText = “vermelho” então Label1.BackColor = vbRed
Se strText = “amarelo” então Label1.BackColor = vbYellow
Se strText = “preto” então Label1.BackColor = vbBlack
'esta é extremidade o programa dizendo perto
Se strText = “” por então
MsgBox (“recorde desligar a linha do volume em”)
Extremidade
Termine se
'1 é normal, 3 maximized 6 é minimizado
Se o strText = “” não então RetVal = Shell (“c:windowsnotepad.exe”, 3)
'mim não fosse certo porque microsoft pôs este dentro, eu removi-o e tudo é ainda aprovado
Recognition 'de Debug.Print “: “& strText &”, “& _
StreamNumber & “,” & StreamPosition
'Adicione o texto novo à caixa de texto, e adicione um espaço no fim do
'texto de modo que olhe mais melhor
txtSpeech.SelStart = m_cChars
txtSpeech.SelText = strText & ““
os m_cChars = os m_cChars + 1 + submarino da extremidade de Len (
strText)
'esta função seguram o estado de teclas do começo e de batente de acordo com
'se o ditado está funcionando.
SetState secundário confidencial (bNewState de ByVal como booleano)
m_bRecoRunning = bNewState
btnStart.Enabled = não m_bRecoRunning
btnStop.Enabled = email
secundário m_bRecoRunning
da extremidade:
correia fotorreceptora
de redu0007@yahoo.com:
conclusão
de
www.geocities.com/redu0007:
Este programa reconheceu sua voz e escreve-a em um campo do texto. Você pode usar este programa escrever na Ms-palavra, Ms-Excel
Samtalet den ska datoren skriver för dig
Automatically translated into Swedish thanks to WorldLingo
Syftet av detta projekterar: Tala den ska datoren skriver för dig
huvudsaklig titel: Uttrycka erkännande
projekterar: Tala den ska datoren skriver för dig
bärare: Md. Redwanur Rahman
läge: Dhaka Bangladesh.
Datera: 11 Februari, 2008
läste mig:
Detta tar prov visar hur till gör enkel diktamen i VB med SAPI 5.1. Det använder delat igenkänt sammanhang anmärker, bruk som standardljudsignalen matar in, laddar i diktamengrammatik, uppsättningar upp händelseförlagehanterare, och shows den igenkända texten i dialogtexten boxas.
Notera:
Sedan texten boxas använder systemplatsen, det inte kan korrekt visa tecken i andra språk. Till exempel om du använder den kinesiska anförandeerkännandemotorn som standardmotorn på ditt engelska OS, boxas texten kan visa avskräde, även om motorn känner igen kines.
Hjälp:
Du behöver att installera SAPI, att gå till
http://www.microsoft.com/speech/download/sdk51/, och nedladdningen sapi5.1
ställer in:
För att använda detta få och installera sapien 5.1 som är fri från microsoft
då, gå till kontrollbordet, anförande. Konfigurera mikrofonen
(du kan måste att gå till volymen kontrollerar längst ner av ditt avskärmer och unmute fodra in),
kör utbildningsperioden (du kan måste att tillfoga ett nytt profilerar),
ser till att det är mycket tyst runt om dig
är säkert att vända av mikrofonen, ska att fodra in når det har använt detta eller den
går sönder (ie får alla skruvade upp),
har gyckel som det är en tryckvåg
P.S, den tar en stund för att datoren ska registrera uttrycka den första tiden runt om, så ge den några understöder, och ser, om den kommer upp.
Programet specificerar:
Alternativ explicit
dunkla WithEvents RecoContext som SpSharedRecoContext
dunkel grammatik som ISpeechRecoGrammar
dunkel m_bRecoRunning som Boolean
dunkla m_cChars som heltalet
dunkel vol som 'detta hjälper dubbelt öppet volymen att kontrollera
dunkel bye, som detta heltalet 'slut volymen kontrollerar
privat underbtnend_Click ()
'för att avsluta dig, måste vända av volymen kontrollerar
', om byen = 1 avslutar därefter
'vol = Shell (”sndvol32”, 1)
'som dig behöver att göra detta, så volymen kontrollerar 'inte
stoppar precis, och att minimera
'bye = bye + 1
'inaktiverar knäppas
'btnStop.Enabled = falskt
'btnStart.Enabled = falsk
'ändring avslutabutonen förser med text för att gå ut
'btnend. Förse med text = ”avslutar &Exit
”
avslutar under
privata underForm_Load ()
Falska SetState
m_cChars = 0
'öppna volymen kontrollerar för att vända den på (inte stum) ** NOTERAR detta är inte mikrofonen men för ATT FODRA in
Dunkel vol som dubbelt
vol = Shell (”sndvol32”, 1)
Avsluta under
privat underbtnStart_Click ()
Debug.Assert som inte m_bRecoRunning
'Initialisera erkännandesammanhanget anmärker, och grammatik anmärker, därefter
'starta diktamen
Om (RecoContext är ingenting), därefter
Anmärker det initialiserande SAPI recosammanhanget för Debug.Print ”…”,
Fastställda RecoContext = nya SpSharedRecoContext
Fastställd grammatik = RecoContext.CreateGrammar (1)
Grammar.DictationLoad
Avsluta om
Grammar.DictationSetState SGDSActive
Riktiga SetState
avslutar under
privat underbtnStop_Click ()
Debug.Assert som m_bRecoRunning
Grammar.DictationSetState SGDSInactive
Falska SetState
avslutar under
privata underForm_Unload (annullering som heltal)
'öppnar volymen kontrollerar mutan som fodra boxas in
vol = Shell (”sndvol32”, 1)
avslutar suben,
'denna fungerar handtagerkännandehändelse från det igenkända sammanhanget anmärker.
'Avfyras erkännandehändelsen, när anförandeerkännandemotorerna känner igen
'a ordnar av uttrycker.
Privata underRecoContext_Recognition (ByVal StreamNumber som Long, _,
ByVal StreamPosition som Variant, _,
ByVal RecognitionType som SpeechRecognitionType, _,
ByVal resultat som ISpeechRecoResult _,
)
Dunkel strText som stränger
'är detta att öppna anteckningsboken
Dunkla RetVal som dubbelt
strText = Result.PhraseInfo.GetText
'gör vad du önskar för olikt uttrycker här
Om strText = ”gräsplan” därefter Label1.BackColor = vbGreen
Om strText = ”rött” därefter Label1.BackColor = vbRed
Om strText = ”guling” därefter Label1.BackColor = vbYellow
Om strText = ”svart” därefter Label1.BackColor = vbBlack
'är detta att avsluta programet vid ordstäv by
Om strText = ”vid” därefter
MsgBox (”minns att vända av volymen fodrar i”),
Avsluta
Avsluta om
'är 1 det normala, 3 maximeras 6 minimeras
Om strText = ”inte” därefter den inte säkra RetVal = Shell (”c:windowsnotepad.exe”,
3) 'I-förmiddagen, varför microsoft satte denna in, mig tog den ut och, allt är det stilla godkännandet
'Debug.Print-”erkännande: ”& strText &”, ”& _,
StreamNumber & ”,” & StreamPosition
'Fästa den nya texten till texten boxas och tillfogar ett utrymme på avsluta av
'text, så att den ser bättre
txtSpeech.SelStart = m_cChars
txtSpeech.SelText = strText & ””,
m_cChars = m_cChars + 1 + Len (strText)
avslutar suben,
'som denna fungerar handtag det statligt av starten, och stoppet knäppas enligt
'diktamen är huruvida rinnande.
Privata underSetState (ByVal bNewState som Boolean)
m_bRecoRunning = bNewState
btnStart.Enabled = m_bRecoRunning inte
btnStop.Enabled = m_bRecoRunning
avslutar under
e-post:
redu0007@yahoo.com-
rengöringsduk:
www.geocities.com/redu0007
avslutning:
Detta program kände igen ditt uttrycker och skriver i en text sätter in. Du kan använda detta program för att skriva in Ms-uttrycker, Ms-Överträffar
Беседа, компьютер напишет для вас
Automatically translated into Russian thanks to WorldLingo
Цель этого проекта: Поговорите, компьютер напишет для вас
главным образом название: Проект опознавания
голоса: Поговорите, компьютер напишет для вас
проявитель: Md. Положение Redwanur
Rahman: Dhaka, Бангладеш.
Дата: 11-ое февраля 2008
прочитало меня:
Этот образец демонстрирует как к сделайте просто диктовку в VB с SAPI 5.1. Оно использует, котор делят узнанный предмет смысла, использует входной сигнал невыполнения обязательства тональнозвуковой, нагрузки в грамматике диктовки, устанавливает вверх укротители случая, и показывает узнанный текст в коробке текста диалога.
Примечание:
В виду того что коробка текста использует locale системы, она не может правильно показать характеры в других языках. Например, если вы используете китайский двигатель опознавания речи как двигатель невыполнения обязательства на вашем английском осмии, то коробка текста может показать отброс даже если двигатель узнает китайца.
Помощь:
Вам нужно установить SAPI, идете к
http://www.microsoft.com/speech/download/sdk51/ и download Setup
sapi5.1:
Использовать это получите, что и установите sapi 5.1, свободно от microsoft
тогда пойдите к пульту управления, речи. Установите микрофон
(вы можете пойти к регулятора звука на дне ваших экрана и unmute линия внутри)
побегите встреча (вы можете добавить новый профиль)
make sure они очень тихи вокруг вас
уверенн повернуть микрофон, выравнивается внутри после использования этого или он
пойдет asunder (ie получает все после того как он привинчен вверх по)
имеет потеху, котор будет взрывом
P.S оно принимает промежуток времени для компьютера для того чтобы регистрировать голос the first time вокруг поэтому дайте ему немного секунд и те если оно come up.
Детали программы:
Вариант точное
тусклое WithEvents RecoContext как грамматика
SpSharedRecoContext тусклая как ISpeechRecoGrammar
тусклый m_bRecoRunning по мере того как булевские
тусклые m_cChars как cVol
интежера тусклое как двойник 'это помогают открыто bye
регулятора звука тусклому по мере того как интежер 'это закрывает btnend_Click
регулятора звука приватное Sub ()
'для того чтобы закончить вас должен повернуть регулятора звука
'если bye = 1 после этого кончает
'cVol = раковина, то («sndvol32», 1)
'вы нужно сделать это поэтому регулятора звука как раз
'не останавливает и уменьшить
'bye = bye + 1
'выводят титр из строя
buton конца кнопок '
btnStop.Enabled = ложно '
btnStart.Enabled = ложно 'изменение к btnend
выходу '. Титр = подводная лодка приватное Sub
Form_Load
конца конца
«&Exit» ()
SetState ложное
m_cChars = 0
'раскройте регулятора звука для того чтобы повернуть его на (ПРИМЕЧАНИИ безгласного) **, котор это будет не микрофоном а ЛИНИЕЙ внутри
Затемните cVol как двойник
cVol = раковина («sndvol32», 1)
btnStart_Click конца
Sub приватное Sub ()
Debug.Assert m_bRecoRunning
'Выступите предмет смысла опознавания и предмет с иничиативой грамматики, после этого
'начните диктовку
Если (RecoContext ничего) после этого
Предмет смысла reco Debug.Print «выступая с иничиативой SAPI…»
Установите RecoContext = новое SpSharedRecoContext
Установите грамматику = RecoContext.CreateGrammar (1)
Grammar.DictationLoad
Закончитесь если
Grammar.DictationSetState SGDSActive
Подводной лодки конца
SetState btnStop_Click
поистине приватное Sub ()
Debug.Assert m_bRecoRunning
Grammar.DictationSetState SGDSInactive
Подводная лодка приватное
Sub Form_Unload
конца SetState ложная (Cancel как интежер)
'раскрывает сурдинку регулятора звука линия в коробке
подводная лодка конца cVol = раковины («sndvol32»,
1)
'этот случай опознавания ручек функции от узнанного предмета смысла.
'Случай опознавания когда двигатели опознавания речи узнают
'последовательности слов.
Приватное Sub RecoContext_Recognition (ByVal StreamNumber как длиной, _
ByVal StreamPosition как вариант, _
ByVal RecognitionType как SpeechRecognitionType, _
Результат ByVal как ISpeechRecoResult _
)
Тусклое strText как шнур
'это должна раскрыть notepad
Тусклое RetVal как двойник
strText = Result.PhraseInfo.GetText
'сделайте вы хотите для различных слов здесь
Если strText = «зеленый цвет» после этого Label1.BackColor = vbGreen
Если strText = «красный цвет» после этого Label1.BackColor = vbRed
Если strText = «желтый цвет» после этого Label1.BackColor = vbYellow
Если strText = «чернота» после этого Label1.BackColor = vbBlack
'это должна закончить программу путем говорить мимо
Если strText = «» после этого
MsgBox («вспомните повернуть линию тома в»)
Конец
Закончитесь если
'уменьшито 1 нормально, 3 увеличено 6
Если strText = «» после этого RetVal = раковина («c:windowsnotepad.exe», 3)
'я не уверенн, то почему microsoft положил это внутри, я принял его вне и все все еще одобренн
Опознавание 'Debug.Print «: «& strText &», «& _
StreamNumber & «,» & StreamPosition
'Приложите новый текст к коробке текста, и добавьте космос на конце
'текст TAK, CTO он посмотрит более лучше
txtSpeech.SelStart = m_cChars
txtSpeech.SelText = strText & ««
m_cChars = m_cChars + 1 + подводная лодка конца Len (
strText)
'эта функция регулируют положение кнопок старта и стопа согласно
'бежит ли диктовка.
Приватное Sub SetState (bNewState ByVal как булевско)
m_bRecoRunning = bNewState
btnStart.Enabled = m_bRecoRunning
btnStop.Enabled = m_bRecoRunning
Email конца
Sub:
стержень
redu0007@yahoo.com:
заключение
www.geocities.com/redu0007:
Эта программа узнала ваш голос и пишет в поле текста. Вы можете использовать эту программу для писания в Госпож-слове, Госпож-Первенствуете
De bespreking, Computer zal voor u schrijven
Automatically translated into Dutch thanks to WorldLingo
Doelstelling van dit project: De bespreking, Computer zal voor u Hoofd
Titel schrijven: Het Project van de Erkenning
van de stem: De bespreking, Computer zal voor u Ontwikkelaar
schrijven: Md. Redwanur Rahman
Location: Dhaka, Bangladesh.
Datum: 11 Februari, 2008
las me:
Deze steekproef toont aan hoe te om eenvoudig dictee in VB met SAPI 5.1 te doen. Het gebruikt gedeeld erkend contextvoorwerp, gebruikt het gebrek de audioinput, in dicteegrammatica laadt, gebeurtenismanagers, opzet en de erkende tekst in het vakje van de dialoogtekst toont.
Nota:
Aangezien het tekstvakje systeemscène gebruikt, kan het karakters in andere talen correct niet tonen. Bijvoorbeeld, als u de Chinese motor van de Erkenning van de Toespraak als standaardmotor op uw Engelse OS gebruikt, kan het tekstvakje huisvuil tonen alhoewel de motor Chinees erkent.
Hulp:
U moet SAPI installeren, naar
http://www.microsoft.com/speech/download/sdk51/ gaan en Opstelling downloaden
sapi5.1:
Om dit te gebruiken breng en installeer sapi 5.1 ertoe, vrij van microsoft
dan ga naar controlepaneel, toespraak. Vorm de microfoon
(u kunt naar de volumecontrole bij de bodem van het uw scherm en unmute Lijn moeten gaan binnen)
in werking stellen de opleidingssessie (u kunt een nieuw profiel moeten toevoegen)
ervoor zorgen het rond u is zeker
zeer stil is om de microfoon, Lijn binnen uit te zetten na het gebruiken van dit of het
asunder (word d.w.z. allen verknoeid) heeft
pret zal gaan het een ontploffing P.S
is het een tijdje voor de computer neemt om de stem te registreren de eerste keer rond zo het een paar seconden geeft en ziet of omhoog komt het.
De details van het programma:
De optie Expliciete
Schemerige WithEvents RecoContext als Schemerige
Grammatica SpSharedRecoContext als het Schemerige
m_bRecoRunning ISpeechRecoGrammar als Schemerige
m_cChars Van Boole als Geheel
Schemerig volume als Dubbel 'dit helpt de tot ziens Schemerige volume
controle openen aangezien het Geheel 'dit Privé Subbtnend_Click
van de volumecontrole () '
om sluit te beëindigen u de volumecontrole 'moet
uitzetten als tot ziens = 1 dan '
volume = Shell („sndvol32“, 1) '
u moet dit beëindigt doen zodat houdt de volumecontrole
niet alleen op 'en minimaliseert
'tot ziens = + 1 '
onbruikbaar maakt tot ziens de knopen
'btnStop.Enabled = Vals
'btnStart.Enabled = Valse
'verandering de eind buton titel om weg te gaan
'btnend. Titel = het Eind Sub Privé
Sub
Form_Load van het Eind
„&Exit“ ()
Valse SetState
m_cChars = 0
'open de volumecontrole om het op (niet stod) **- NOTA te draaien dit microfoon maar binnen geen LIJN is
Verduister volume Dubbel
volume = Shell („sndvol32“, 1)
Sub Privé
SubbtnStart_Click van het eind ()
Debug.Assert m_bRecoRunning niet
'Initialiseer het voorwerp van de erkenningscontext en grammaticavoorwerp, toen
'begin dictee
Als (RecoContext is niets) toen
Debug.Print het „Initialiserende SAPI voorwerp van de recocontext…“
Vastgestelde RecoContext = Nieuwe SpSharedRecoContext
Vastgestelde Grammatica = RecoContext.CreateGrammar (1)
Grammar.DictationLoad
Eind als
Grammar.DictationSetState SGDSActive
btnStop_Click van het Eind
van SetState Ware
Sub Privé Sub ()
Het m_bRecoRunning van Debug.Assert
Grammar.DictationSetState SGDSInactive
Opent het Valse
Eind Sub
Privé SubForm_Unload van SetState (annuleer aangezien Geheel
) 'de stomme van de volumecontrole de lijn in vakje
volume = Sub van het Eind van Shell („sndvol32“,
1)
'Deze functie de gebeurtenis van de Erkenning van het erkende contextvoorwerp behandelt.
De 'gebeurtenis van de erkenning wordt in brand gestoken wanneer de motoren van de toespraakerkenning '
opeenvolgingen van woorden erkent.
Privé SubRecoContext_Recognition (ByVal StreamNumber zoals lang, _
ByVal StreamPosition als Variant, _
ByVal RecognitionType als SpeechRecognitionType, _
Het Resultaat van ByVal als ISpeechRecoResult _
)
Schemerige strText als Koord
'dit moet notepad openen
Schemerige RetVal zoals Dubbel
strText = Result.PhraseInfo.GetText
'doe wat u hier voor diverse woorden wilt
Als strText = „groen“ toen Label1.BackColor = vbGreen
Als strText = het „rood“ toen Label1.BackColor = vbRed
Als strText = „geel“ toen Label1.BackColor = vbYellow
Als strText = „zwarte“ toen Label1.BackColor = vbBlack
'dit moet het programma beëindigen door langs te zeggen
Als strText = „door“ toen
MsgBox („herinner me om de volumelijn in“ uit te zetten)
Eind
Eind als
'1 is normaal, worden 3 gemaximaliseerd 6 worden geminimaliseerd
Als strText = „niet“ toen RetVal = Shell („c:windowsnotepad.exe“, 3)
'ik niet zeker ben waarom microsoft dit aanbracht, nam ik het en allen is nog o.k.
Erkenning 'Debug.Print „: „& strText &“, „& _
StreamNumber & „,“ & StreamPosition
'Voeg de nieuwe tekst aan het tekstvakje toe, en voeg een ruimte aan het eind van toe
'tekst zodat het beter kijkt
txtSpeech.SelStart = m_cChars
txtSpeech.SelText = strText & „„
m_cChars = m_cChars + behandelt 1 + (strText)
Sub van het Eind
Len 'Deze functie de staat van de knopen van het Begin en van het Einde volgens
'of het dictee loopt.
Privé SubSetState (ByVal bNewState zoals Van Boole)
het m_bRecoRunning = bNewState
btnStart.Enabled = m_bRecoRunning niet
btnStop.Enabled = m_bRecoRunning
Eind Sub
E-mail:
redu0007@yahoo.com
Web:
www.geocities.com/redu0007
Conclusie:
Dit programma erkende uw stem en schrijft op een tekstgebied. U kunt dit programma gebruiken om in MS-word, Mej.-Excel te schrijven
سيكتب محادثة, حاسوب ل أنت
Automatically translated into Arabic thanks to WorldLingo
هدف من هذا مشروع: تحدّثت, حاسوب سيكتب ل أنت
عنوان رئيسيّة: [فويس ركنيأيشن]
مشروع: تحدّثت, حاسوب سيكتب ل أنت
مطورة: [مد]. [ردونور] [رهمن]
موقعة: دكا, بنغلادش.
تاريخ: 11 قرأني فبراير - شباط, 2008
:
يعرض هذا عينة كيف إلى أتمّت أمر جازم بسيطة في [فب] مع [سبي] 5.1. هو يستعمل يشارك يميّز سياق شيء, يستعمل التقصير مدخل سمعيّة, تحميل في أمر جازم النحو, يثبت فوق حادث مناولات, ويبدي ال يميّز نص في الحوار نص صندوق.
بطاقة:
بما أنّ النص صندوق يكون يستعمل نظامة موقعة, هو يمكن لا بشكل صحيح أبديت رموز في أخرى ألغاز. مثلا, إن أنت تستعمل صينيّة [سبيش ركنيأيشن] محرك كالتقصير محرك على [أس] ك إنجليزيّة, النص صندوق يمكن أبديت نفاية [إفن ثوو] المحرك يميّز صينيّ.
مساعدات:
أنت تحتاج أن يركّب [سبي], يذهب إلى http://www.microsoft.com/speech/download/sdk51/ ويجلب [سبي5.1]
[ستثب]:
حصلت أن يستعمل هذا وركّبت ال [سبي] 5.1, حرّة من مكروسوفت
بعد ذلك ذهبت إلى [كنترول بنل], خطبة. شكّلت الميكروفون
(أنت يمكن اضطرّت ذهبت إلى ال [فولوم كنترول] في القعر من ك شاشة و [أونموت] الخطّ داخل)
يركض التدريب جلسة (أنت يمكن اضطرّت أضفت قطاع جانبيّ جديدة)
يتأكّد هو جدّا يسجو حول أنت
يوقن أن يلتفت باتّجاه آخر الميكروفون, يصفّ داخل بعد يستعمل هذا أو سيذهب هو [أسوندر] ([إي] يحصل كلّ يلولب فوق)
يتلقّى حالة لهو هو يكون انفجار
[ب.س] هو يأخذ فترة للحاسوب أن يسجّل الصوة [ث فيرست تيم] حول لذلك أعطيت هو [ا فو] ثانية ويرى إن هو يتيح.
برنامج تفاصيل:
يتوقّف خيار [ويثفنتس] بيّنة
مظلمة [رككنتإكست] ك [سبشردرككنتإكست]
النحو مظلمة ك [إيسبيكركغرمّر]
مظلمة [مبركرونّينغ] بما أنّ [مكّهرس] بوليّ
مظلمة كعدد صحيح
[فول] مظلمة كضعف 'هذا يساعدون مفتوحة ال [فولوم كنترول]
تقدم تلقائيّ مظلمة بما أنّ عدد صحيح 'هذا يغلق ال [فولوم كنترول]
[بتنندكليك] خاصّة فرعيّة ()
'أن ينهي أنت ينبغي التفتت باتّجاه آخر ال [فولوم كنترول]
'إن تقدم تلقائيّ=1 بعد ذلك ينهي
'[فول]=قشرة قذيفة ("[سندفول32]", 1)
'أنت يحتاج أن يتمّ هذا لذلك ال [فولوم كنترول] لا فقط
'وقلّدت
'تقدم تلقائيّ=تقدم تلقائيّ+1
'يعجز الأزرار
'[بتنستوب.نبلد]=زائفة
'[بتنسترت.نبلد]=زائفة
'تغير النهاية [بوتون] شرح إلى مخرجة
'[بتنند]. شرح ="[&إكسيت]"
نهاية
نهاية بديل
[فورملوأد] خاصّة فرعيّة ()
[ستستت] زائفة
[مكّهرس]=0
'فتحت ال [فولوم كنترول] أن يلتفت هو على (لا خرساء) ** بطاقة هذا ليس ميكروفون غير أنّ خطّ داخل
عتّمت [فول] بما أنّ ضعف
[فول]=قشرة قذيفة ("[سندفول32]", 1)
نهاية [بتنسترتكليك] فرعيّة
خاصّة فرعيّة ()
[دبوغ.سّرت] لا [مبركرونّينغ]
'وقعت تمييز سياق شيء والنحو شيء, بعد ذلك
'بدأت أمر جازم
إن ([رككنتإكست] لاشيء) بعد ذلك
[دبوغ.برينت] "يقع [سبي] [رك] سياق شيء…"
ثبتت [رككنتإكست]=[سبشردرككنتإكست] جديدة
ثبتت النحو=[رككنتإكست.كرتغرمّر] (1)
[غرمّر.ديكتأيشنلوأد]
أنهيت إن
[غرمّر.ديكتأيشنستستت] [سغدسكتيف]
[ستستت] يصحّ
نهاية بديل
[بتنستوبكليك] خاصّة فرعيّة ()
[دبوغ.سّرت] [مبركرونّينغ]
[غرمّر.ديكتأيشنستستت] [سغدسنكتيف]
[ستستت] زائفة
نهاية يفتح بديل
[فورمونلوأد] خاصّة فرعيّة (إلغاء كعدد صحيح)
'ال [فولوم كنترول] أخرس الخطّ في صندوق
[فول]=قشرة قذيفة ("[سندفول32]", 1)
نهاية بديل
'هذا عمل مقابض تمييز حادث من ال يميّز سياق شيء.
'تمييز أطلق النار حادث عندما ال [سبيش ركنيأيشن] محركات يميّزون
'تسلسل الكلمات.
[رككنتإكستركنيأيشن] خاصّة فرعيّة ([بفل] [سترمنومبر] بما أنّ طويلا, _
[بفل] [سترمبوسأيشن] ك [فرينت], _
[بفل] [ركنيأيشنتب] ك [سبيكركنيأيشنتب], _
[بفل] نتيجة ك [إيسبيكركرسولت] _
)
[سترتإكست] مظلمة كخيط
'هذا أن يفتح ال [نوتبد]
[رتفل] مظلمة بما أنّ ضعف
[سترتإكست]=[رسولت.فرسينفو.جتّإكست]
'أتمّت ماذا أنت تريد لكلمات مختلفة هنا
إن [سترتإكست]="اللون الأخضر" بعد ذلك [لبل1.بككلور]=[فبغرين]
إن [سترتإكست]="أحمر" بعد ذلك [لبل1.بككلور]=[فبرد]
إن [سترتإكست]="صفراء" بعد ذلك [لبل1.بككلور]=[فبلّوو]
إن [سترتإكست]="أسود" بعد ذلك [لبل1.بككلور]=[فبّلك]
'هذا أن ينهي البرنامج ب يقول جانبا
إن [سترتإكست]="ب" بعد ذلك
تذكّرت [مسغبوإكس] ("أن يلتفت باتّجاه آخر الحجم خطّ في")
نهاية
أنهيت إن
'1 عاديّة, 3 زدت 6 قلّلت
إن [سترتإكست]="لا" بعد ذلك [رتفل]=قشرة قذيفة ("c:\windows\notepad.exe", 3)
'أنا لست يوقن لما مكروسوفت وضع هذا داخل, أخذ أنا هو خارجا وكلّ بعد حسنة
'[دبوغ.برينت] "تمييز: "& [سترتإكست] &", "& _
[سترمنومبر] & "," & [سترمبوسأيشن]
'ألحقت النص جديدة إلى النص صندوق, وأضفت فراغ في النهاية من ال
'نص [س ثت] هو ينظر على نحو أفضل
[تإكستسبيش.سلسترت]=[مكّهرس]
[تإكستسبيش.سلتإكست]=[سترتإكست] & ""
يعالج [مكّهرس]=[مكّهرس]+1+[لن] ([سترتإكست])
نهاية بديل
'هذا عمل الدولة من بداية و [ستوب بوتّون] وفقا ل
'ما إذا أمر جازم يركض.
[ستستت] خاصّة فرعيّة ([بفل] [بنوستت] بما أنّ بوليّ)
[مبركرونّينغ]=[بنوستت]
[بتنسترت.نبلد]=لا [مبركرونّينغ]
[بتنستوب.نبلد]=[مبركرونّينغ]
نهاية بريد إلكترونيّ فرعيّة
:
[ردو0007هوو.كم]
نسيج:
www.geocities.com/redu0007
استنتاج:
ميّز هذا برنامج صوتك ويكتب في نص مجال. أنت يستطيع استعملت هذا برنامج أن يكتب في [مس-وورد], [مس-إكسسل]
available in: 
