Aim of this project:
Robot will repeat whatever you say. It is voice reorganization project.

Main Title: Voice Recognition
Project: Robot will repeat whatever you say.
Developer: Md. Redwanur Rahman
Location: Dhaka, Bangladesh.
Date: 20 February, 2008

Helps:
You need to install SAPI, Genie.exe, go to http://www.microsoft.com/speech/download/sdk51/ and download sapi5.1 & also download Voice agent genie.exe

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
Click on genie.exe to install.

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
Dim char As IAgentCtlCharacterEx

Private Sub btnend_Click()
char.Stop
End
End Sub

Private Sub Command1_Click()
char.Speak ("Say note, i will open notpad for you.")
char.Speak ("Say Green, Look behind me, colour will change.")
End Sub

Private Sub Form_Load()
Dim anim As String
SetState False
m_cChars = 0
anim = "genie"
Agent1.Characters.Load anim, anim & ".acs"
Set char = Agent1.Characters(anim)
char.MoveTo 520, 300
char.Show
char.AutoPopupMenu = False
char.Speak ("Talk, I can repeat whatever you say, please 1st say Start")
End Sub

Private Sub btnStart_Click()
Debug.Assert Not m_bRecoRunning
char.Speak ("Say any word.")
' 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)
Char.stop
End Sub

' This function handles Recognition event from the reco 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 ("Bye bye.")
End
End If

'1 is normal, 3 is maximized 6 is minimized
If strText = "not" Then RetVal = Shell("c:windowsnotepad.exe", 3)
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)
char.Speak (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

Others help email: redu0007@yahoo.com

Effective web: www.geocities.com/redu0007

Celui que vous disiez le robot répétera
Automatically translated into French thanks to WorldLingo
But de ce projet :
Le robot répétera celui que vous disiez. C'est projet de réorganisation de voix.

Titre principal : Projet d'identification
de voix : Le robot répétera celui que vous disiez.
Réalisateur : Md. Endroit de Redwanur
Rahman : Dhaka, Bangladesh.
Date : Aides

du 20 février 2008 :
Vous devez installer SAPI, Genie.exe, aller à http://www.microsoft.com/speech/download/sdk51/ et télécharger sapi5.1 et télécharger également l'agent genie.exe de voix

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
cliquera sur genie.exe à l'installation.

Détails de programme :

Option explicite
Faible WithEvents RecoContext comme faible
grammaire de SpSharedRecoContext comme faible
m_bRecoRunning d'ISpeechRecoGrammar 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 char de commande
de volume le faible en tant que char

secondaire privé de btnend_Click d'IAgentCtlCharacterEx (
). Arrêtez
le char
privé du sous-marin

Command1_Click de sous-marin d'extrémité d'extrémité (
). Parlez (« note de parole, j'ouvrirai le notpad pour toi.  »)
char. Parlez (le « vert de parole, regard derrière moi, couleur changera.  »)
Anim secondaire

privé secondaire de Form_Load de fin faible
() comme corde
SetState faux
m_cChars = 0
anim = « génie »
Anim d'Agent1.Characters.Load, anim et « .acs »
Char réglé = Agent1.Characters (anim)
char.MoveTo 520, 300
char. Exposition
char.AutoPopupMenu = faux
char. Parlez (« entretien, je peux répéter celui que vous disiez, satisfais le 1er début de parole »)
le btnStart_Click secondaire

privé secondaire d'extrémité ()
Debug.Assert pas m_bRecoRunning
char. Parlez (« dites n'importe quel mot.  »)
'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 secondaire
privé d'extrémité

de Form_Unload de sous-marin faux d'extrémité de SetState (annulation comme
nombre entier
) Char.stop

'cette fonction manipule l'événement d'identification de l'objet de contexte de reco.
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 (« au revoir.  »)
Extrémité
Finissez si

'1 est normal, 3 est maximisé 6 est réduit au minimum
Si strText = «  » puis RetVal = Shell (« c : windowsnotepad.exe », 3)
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 « « 
m_cChars = m_cChars + 1 + Len (strText)
char. Parlez le sous-marin d'extrémité (
de strText)

de 'des poignées cette fonction 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 = sous-marin
m_bRecoRunning d'extrémité

d'autres aident l'email : Web

efficace de redu0007@yahoo.com : www.geocities.com/redu0007

Lo que usted dice la robusteza repetirá
Automatically translated into Spanish thanks to WorldLingo
Puntería de este proyecto:
La robusteza repetirá lo que usted dice. Es proyecto de la reorganización de la voz.

Título principal: Proyecto del reconocimiento
de voz: La robusteza repetirá lo que usted dice.
Revelador: Md. Localización de Redwanur
Rahman: Dhaka, Bangladesh.
Fecha: Ayudas

del 20 de febrero de 2008:
Usted necesita instalar SAPI, Genie.exe, ir a http://www.microsoft.com/speech/download/sdk51/ y descargar sapi5.1 y también descargar el agente genie.exe de la voz

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
chascará encendido genie.exe a la instalación.

Detalles del programa:

Opción explícita
WithEvents dévil RecoContext como gramática
dévil de SpSharedRecoContext como m_bRecoRunning
dévil de ISpeechRecoGrammar pues 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 carbón dévil
del control de volumen como carbón

secundario privado del btnend_Click de IAgentCtlCharacterEx (
). Pare
el carbón
privado del submarino

Command1_Click del submarino del extremo del extremo (
). Hable (“nota de la opinión, abriré el notpad para usted. ”)
carbón. Hable (el “verde de la opinión, mirada detrás de mí, color cambiará. ”)
Anim dévil

secundario privado secundario de Form_Load del final
() como secuencia
SetState falso
m_cChars = 0
anim = “genie”
Anim de Agent1.Characters.Load, anim y “.acs”
Carbón determinado = Agent1.Characters (anim)
char.MoveTo 520, 300
carbón. Demostración
char.AutoPopupMenu = falso
carbón. Hable (“charla, puedo repetir lo que usted dice, satisfago el 1r comienzo de la opinión”)
el btnStart_Click secundario

privado secundario del extremo ()
Debug.Assert m_bRecoRunning
carbón. Hable (“diga cualquier palabra. ”)
'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 secundario
privado del extremo

de Form_Unload del submarino falso del extremo de SetState (cancelación como
número entero
) Char.stop

'esta función maneja acontecimiento del reconocimiento del objeto del contexto del reco.
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 (“adiós. ”)
Extremo
Termine si

se reduce al mínimo '1 es normal, 3 se maximiza 6
Si strText = “” no entonces RetVal = Shell (“c: windowsnotepad.exe”, 3)
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 ““
m_cChars = m_cChars + 1 + Len (strText)
carbón. Hable el submarino del extremo (
del strText)

de 'las manijas esta función 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 = submarino
m_bRecoRunning del extremo

otros ayudan al email: tela

eficaz de redu0007@yahoo.com: www.geocities.com/redu0007

Qualunque dite il robot ripeterà
Automatically translated into Italian thanks to WorldLingo
Scopo di questo progetto:
Il robot ripeterà qualunque dite. È il progetto della riorganizzazione di voce.

Titolo principale: Progetto di riconoscimento della voce
: Il robot ripeterà qualunque dite.
Sviluppatore: Md. Posizione di Redwanur
Rahman: Dhaka, Bangladesh.
Data: Aiuti

del 20 febbraio 2008:
Dovete installare SAPI, Genie.exe, andare a http://www.microsoft.com/speech/download/sdk51/ e trasferire sapi5.1 dal sistema centrale verso i satelliti & anche trasferire l'agente dal sistema centrale verso i satelliti genie.exe di voce

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
scatterà sopra genie.exe ad installazione.

Particolari di programma:

Opzione esplicita
WithEvents fioco RecoContext come grammatica
fioca di SpSharedRecoContext come m_bRecoRunning
fioco di ISpeechRecoGrammar 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 carbone fioco
di controllo di volume come carbone

secondario riservato del btnend_Click di IAgentCtlCharacterEx (
). Arresti
il carbone
riservato del sommergibile

Command1_Click del sommergibile dell'estremità dell'estremità (
). Parli (“nota di opinione, gli aprirò il notpad per. „)
carbone. Parli (“il verde di opinione, lo sguardo dietro me, colore cambierà. „)
Anim fioco

secondario riservato secondario di Form_Load di conclusione
() come stringa
SetState falso
m_cChars = 0
anim = “genie„
Anim di Agent1.Characters.Load, anim & “.acs„
Carbone stabilito = Agent1.Characters (anim)
char.MoveTo 520, 300
carbone. Esposizione
char.AutoPopupMenu = falso
carbone. Parli (“colloquio, posso ripetere qualunque dite, soddisfo il primo inizio di opinione„)
il btnStart_Click secondario

riservato secondario dell'estremità ()
Debug.Assert che non m_bRecoRunning
carbone. Parli (“dica tutta la parola. „)
'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 secondario
riservato dell'estremità

di Form_Unload del sommergibile falso dell'estremità di SetState (annullamento come
numero intero
) Char.stop

'questa funzione maneggia l'evento di riconoscimento dall'oggetto di contesto di reco.
'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 (“arrivederci - arrivederci. „)
Estremità
Concluda se

'1 è normale, 3 è elevato 6 è minimizzato
Se strText = “„ non allora RetVal = Shell (“c: windowsnotepad.exe„, 3)
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 & ““
m_cChars = m_cChars + 1 + Len (strText)
carbone. Parli il sommergibile dell'estremità (
dello strText)

'maniglie di questa funzione 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 = sommergibile
m_bRecoRunning dell'estremità

altri aiutano il email: fotoricettore

efficace di redu0007@yahoo.com: www.geocities.com/redu0007

Was auch immer Sie sagen, wiederholt Roboter
Automatically translated into German thanks to WorldLingo
Ziel dieses Projektes:
Roboter wiederholt, was auch immer Sie sagen. Es ist Sprachreorganisierungprojekt.

Haupttitel: Sprachanerkennung
Projekt: Roboter wiederholt, was auch immer Sie sagen.
Entwickler: Md. Redwanur Rahman
Position: Dhaka, Bangladesh.
Datum: 20. Februar 2008

Hilfen:
Sie müssen SAPI, Genie.exe anbringen, zu http://www.microsoft.com/speech/download/sdk51/ gehen und sapi5.1 downloaden u. das gegründete Sprachmittel genie.exe auch

downloaden:
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 zusammen, daß es um Sie ist sicher,
das Mikrophon abzustellen, zeichnet sehr ruhig ist, innen nachdem es dieses verwendet hat, oder es
an genie.exe zu Installation klickt.

Programm-Details:

Wahl ausdrücklich
Schwaches WithEvents RecoContext als SpSharedRecoContext
schwache Grammatik als ISpeechRecoGrammar
schwaches 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 die schwache Putzfrau des
Lautstärkereglers als IAgentCtlCharacterEx private

Vorbtnend_Click () Putzfrau
schließt. Stoppen Sie
Putzfrau
des Ende Ende

Unterseeboot-private Unterseeboots Command1_Click (
). Sprechen Sie („Sagenanmerkung, öffne ich notpad für Sie. “)
Putzfrau. Sprechen Sie („Sagen-Grün, Blick hinter mir, Farbe ändert. “)
Ende

privates VorForm_Load ()
schwaches Voranim als Zeichenkette
SetState falsch
m_cChars = 0
anim = „genie“
Agent1.Characters.Load anim, anim u. „.acs“
Gesetzte Putzfrau = Agent1.Characters (anim)
char.MoveTo 520, 300
Putzfrau. Erscheinen
char.AutoPopupMenu = falsch
Putzfrau. Sprechen Sie („Gespräch, kann ich wiederholen was auch immer Sie sagen, gefalle 1. Sagen Anfang“),
Ende

privates Vorvorbtnstart_click ()
Nicht m_bRecoRunning Debug.Assert
Putzfrau. Sprechen Sie („sagen Sie jedes mögliches Wort. “)
'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 falsches
Ende Unterseeboot

faßt privates VorForm_Unload (Löschen als Ganzzahl
)
Char.stop Ende

Unterseeboot 'diese Funktion Anerkennung Fall vom reco Kontextgegenstand an.
'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 („Tschüß. “)
Ende
Beenden Sie wenn

'1 ist, 3 wird maximiert 6 wird herabgesetzt normal
Wenn strText = „nicht“ dann RetVal = Shell („c: windowsnotepad.exe“, 3)
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)
Putzfrau. Sprechen Sie (strText)
Ende Unterseeboot

'diese Funktion Handgriffe der Zustand der Anfangs- und STOP-Tasten entsprechend
', ob Diktat läuft.
Privates VorSetState (ByVal bNewState, wie Boolesch)
m_bRecoRunning = bNewState
btnStart.Enabled = nicht m_bRecoRunning
btnStop.Enabled = m_bRecoRunning
Ende Unterseeboot

andere helfen email: redu0007@yahoo.com

wirkungsvolles Netz: www.geocities.com/redu0007

O que quer que você diz o robô repetirá
Automatically translated into Portuguese thanks to WorldLingo
Alvo deste projeto:
O robô repetirá o que quer que você diz. É projeto do reorganization da voz.

Título principal: Projeto do Recognition
de voz: O robô repetirá o que quer que você diz.
Colaborador: Md. Posição de Redwanur
Rahman: Dhaka, Bangladesh.
Data: 20 fevereiro, 2008

ajudas:
Você necessita instalar SAPI, Genie.exe, ir a http://www.microsoft.com/speech/download/sdk51/ e download sapi5.1 & download também o agente genie.exe da voz

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
estalará sobre genie.exe à instalação.

Detalhes do programa:

Opção explícita
WithEvents não ofuscante RecoContext como a gramática
não ofuscante de SpSharedRecoContext como m_bRecoRunning
não ofuscante de ISpeechRecoGrammar 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 char não ofuscante
do controle de volume como o char

secundário confidencial do btnend_Click de IAgentCtlCharacterEx (
). Pare
o char
confidencial do submarino

Command1_Click do submarino da extremidade da extremidade (
). Fale (da “nota palavra, eu abrirei o notpad para você. ”)
char. Fale (da “o verde palavra, olhar atrás de mim, cor mudará. ”)
Anim não ofuscante

secundário confidencial secundário de Form_Load do fim
() como a corda
SetState falso
m_cChars = 0
anim = “genie”
Anim de Agent1.Characters.Load, anim & “.acs”
Char ajustado = Agent1.Characters (anim)
char.MoveTo 520, 300
char. Mostra
char.AutoPopupMenu = falso
char. Fale (“conversa, eu posso repetir o que quer que você diz, satisfaço o 1o começo da palavra”)
o btnStart_Click secundário

confidencial secundário da extremidade ()
Debug.Assert que não m_bRecoRunning
char. Fale (“diga toda a palavra. ”)
'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
Do submarino falso
da extremidade de SetState

o submarino secundário confidencial da extremidade de Form_Unload (cancelamento como
o inteiro
) Char.stop

'esta função segura o evento do Recognition do objeto do contexto do reco.
'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 (“adeus. ”)
Extremidade
Termine se

'1 é normal, 3 maximized 6 é minimizado
Se strText = “” não então RetVal = Shell (“c: windowsnotepad.exe”, 3)
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 & ““
m_cChars = m_cChars + 1 + Len (strText)
char. Fale o submarino da extremidade (
do strText)

'os punhos desta função 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 = submarino
m_bRecoRunning da extremidade

outro ajudam ao email: correia fotorreceptora

eficaz de redu0007@yahoo.com: www.geocities.com/redu0007

Allt vad du något att sägaroboten ska repetition
Automatically translated into Swedish thanks to WorldLingo
Syftet av detta projekterar:
Robot allt vad ska repetition dig något att säga. Det är uttrycker omorganisering projekterar.

Huvudsaklig titel: Uttrycka erkännande
projekterar: Robot allt vad ska repetition dig något att säga.
Bärare: Md. Redwanur Rahman
läge: Dhaka Bangladesh.
Datera: 20 Februari, 2008

hjälp:
Du behöver att installera SAPI, Genie.exe, att gå till http://www.microsoft.com/speech/download/sdk51/, och att nedladda sapi5.1 & också att nedladda uttrycka medlet som genie.exe

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, fodrar in når du har använt detta eller det ska
klickar på genie.exe till installation.

Programet specificerar:

Explicit alternativ
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
den dunkla rödingen som röding

för IAgentCtlCharacterEx privat underbtnend_Click (
). Stoppet
avslutar
avslutar den under

privata rödingen för suben Command1_Click (
). Tala (”något att säga noterar, mig ska öppen notpad för dig. ”)
röding. Tala (”något att sägagräsplan, ser bak mig, färgar ska ändring. ”)
Avsluta under

privat underForm_Load ()
dunkel anim som stränger
Falska SetState
m_cChars = 0
anim = ”ande i arabiska sagor”,
Agent1.Characters.Load-anim, anim & ”.acs”,
Fastställd röding = Agent1.Characters (anim)
char.MoveTo 520, 300
röding. Show
char.AutoPopupMenu = falskt
röding. Tala (”samtal, mig canrepetition, allt vad du något att säga, behar den 1st något att sägastarten”),
avslutar under

privat underbtnStart_Click ()
Debug.Assert som inte m_bRecoRunning
röding. Tala (”något att säga uttrycker any. ”)
'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 (annulleringen som heltal)
Char.stop
avslutar suben,

'som denna fungerar handtag, erkännandehändelsen från recosammanhanget 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 (”bye - bye. ”)
Avsluta
Avsluta om

'är 1 det normala, 3 maximeras 6 minimeras
Om strText = ”inte” därefter RetVal = Shell (”c: windowsnotepad.exe”, 3)
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)
röding. Tala (strText)
avslutar suben,

'som detta 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 suben som

andra hjälper e-post: effektiv

rengöringsduk för redu0007@yahoo.com: www.geocities.com/redu0007

Вы говорите робот повторит
Automatically translated into Russian thanks to WorldLingo
Цель этого проекта:
Робот повторит вы говорите. Будет проектом реорганизации голоса.

Главным образом название: Проект опознавания
голоса: Робот повторит вы говорите.
Проявитель: Md. Положение Redwanur
Rahman: Dhaka, Бангладеш.
Дата: Помощь

20-ое февраля 2008:
Вам нужно установить SAPI, Genie.exe, пойти к http://www.microsoft.com/speech/download/sdk51/ и download sapi5.1 & также download Setup вещество genie.exe

голоса:
Использовать это получите, что и установите sapi 5.1, свободно от microsoft
тогда пойдите к пульту управления, речи. Установите микрофон
(вы можете пойти к регулятора звука на дне ваших экрана и unmute линия внутри)
побегите встреча (вы можете добавить новый профиль)
make sure они очень тихи вокруг вас
уверенн повернуть микрофон, выравнивается внутри после использования этого или он
щелкнет дальше genie.exe к установке.

Детали программы:

Вариант точный
Тусклое WithEvents RecoContext как грамматика
SpSharedRecoContext тусклая как m_bRecoRunning
ISpeechRecoGrammar тусклый по мере того как булевские
тусклые m_cChars как cVol
интежера тусклое как двойник 'это помогают открыто bye
регулятора звука тусклому по мере того как интежер 'это закрывает чарс
регулятора звука тусклый как чарс

btnend_Click IAgentCtlCharacterEx приватный Sub (
). Остановите
чарс
подводной лодки Command1_Click

подводной лодки конца конца приватный (
). Поговорите («примечание мнения, я раскрою notpad для вас. »)
чарс. Поговорите («зеленый цвет мнения, взгляд за мной, цвет изменит. »)
Anim Form_Load

конца Sub приватное Sub (
) тусклое как шнур
SetState ложное
m_cChars = 0
anim = «genie»
Anim Agent1.Characters.Load, anim & «.acs»
Установленный чарс = Agent1.Characters (anim)
char.MoveTo 520, 300
чарс. Выставка
char.AutoPopupMenu = ложно
чарс. Поговорите («беседа, я могу повторить вы говорите, угождаю 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
Подводной лодки конца
SetState подводная лодка

конца Form_Unload ложной приватная Sub (Cancel как
интежер
) Char.stop

'эта функция регулирует случай опознавания от предмета смысла reco.
'Случай опознавания когда двигатели опознавания речи узнают
'последовательности слов.
Приватное 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 («bye - bye. »)
Конец
Закончитесь если

'уменьшито 1 нормально, 3 увеличено 6
Если strText = «» после этого RetVal = раковина, то («c: windowsnotepad.exe», 3)
StreamNumber & «,» & StreamPosition
'Приложите новый текст к коробке текста, и добавьте космос на конце
'текст TAK, CTO он посмотрит более лучше
txtSpeech.SelStart = m_cChars
txtSpeech.SelText = strText & ««
m_cChars = m_cChars + 1 + Len (strText)
чарс. Поговорите подводную лодку конца (
strText)

'ручки этой функции положение кнопок старта и стопа согласно
'бежит ли диктовка.
Приватное Sub SetState (bNewState ByVal как булевско)
m_bRecoRunning = bNewState
btnStart.Enabled = m_bRecoRunning
btnStop.Enabled = m_bRecoRunning
подводная лодка конца

другие помогают email: стержень

redu0007@yahoo.com эффективный: www.geocities.com/redu0007

Wat u zegt zal de robot herhalen
Automatically translated into Dutch thanks to WorldLingo
Doelstelling van dit project:
De robot zal herhalen wat u zegt. Het is het project van de stemreorganisatie.

Hoofd Titel: Het Project van de Erkenning
van de stem: De robot zal herhalen wat u zegt.
Ontwikkelaar: Md. Redwanur Rahman
Location: Dhaka, Bangladesh.
Datum: 20 Februari, de Hulp

van 2008:
U moet SAPI, Genie.exe installeren, naar http://www.microsoft.com/speech/download/sdk51/ gaan en sapi5.1 downloaden & ook de agentengenie.exe Opstelling van de Stem

downloaden:
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
op genie.exe om zal klikken te installeren.

De Details van het programma:

Expliciete optie
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 Geheel 'dit het Schemerige klusje van de volume
controle als IAgentCtlCharacterEx Privé

Subbtnend_Click () klusje
sluit. Klusje
Command1_Click
van het Eind van het einde

het Sub Privé Sub ()
van het Eind. Spreek („zeg nota, zal ik notpad voor u openen. “)
klusje. Spreek („zeg Groen, kijk achter me, zal de kleur veranderen. “ Sub
Privé Sub

() Schemerige anim Form_Load
) van het Eind als Koord
Valse SetState
m_cChars = 0
anim = „genie“
Agent1.Characters.Load anim, anim & „.acs“
Vastgesteld klusje = Agent1.Characters (anim)
char.MoveTo 520, 300
klusje. Toon
char.AutoPopupMenu = Vals
klusje. Spreek („Bespreking, kan ik herhalen wat zegt u, gelieve eerste Begin“ te zeggen)
Sub Privé

SubbtnStart_Click van het Eind ()
Debug.Assert m_bRecoRunning niet
klusje. Spreek („zeg om het even welk woord. “)
'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
Behandelt het Valse
Eind Sub

Privé SubForm_Unload van SetState (annuleer aangezien Geheel
)
Sub van het Eind

Char.stop 'Deze functie de gebeurtenis van de Erkenning van het voorwerp van de recocontext.
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 („tot ziens. “)
Eind
Eind als

'1 is normaal, worden 3 gemaximaliseerd 6 worden geminimaliseerd
Als strText = „niet“ toen RetVal = Shell („c: windowsnotepad.exe“, 3)
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 + 1 + Len (strText)
klusje. Spreek (strText)
Sub van het Eind

'Deze functie de staat van de knopen van het Begin en van het Einde volgens '
behandelt 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

anderen hulp e-mail: redu0007@yahoo.com

efficiënt Web: www.geocities.com/redu0007

ماذا يقول أنت الإنسان الآليّ سيكرّس
Automatically translated into Arabic thanks to WorldLingo
هدف من هذا مشروع:
الإنسان الآليّ سيكرّس ماذا يقول أنت. هو صوة إعادة تنظيم مشروع.

عنوان رئيسيّة: [فويس ركنيأيشن]
مشروع: الإنسان الآليّ سيكرّر ماذا يقول أنت.
مطورة: [مد]. [ردونور] [رهمن]
موقعة: دكا, بنغلادش.
تاريخ: 20 فبراير - شباط, 2008

مساعدات:
أنت تحتاج أن يركّب [سبي], [جني.إكس], ذهبت إلى http://www.microsoft.com/speech/download/sdk51/ وجلبت [سبي5.1] & أيضا جلبت صوة عاملة [جني.إكس]

[ستثب]:
حصلت أن يستعمل هذا وركّبت ال [سبي] 5.1, حرّة من مكروسوفت
بعد ذلك ذهبت إلى [كنترول بنل], خطبة. شكّلت الميكروفون
(أنت يمكن اضطرّت ذهبت إلى ال [فولوم كنترول] في القعر من ك شاشة و [أونموت] الخطّ داخل)
يركض التدريب جلسة (أنت يمكن اضطرّت أضفت قطاع جانبيّ جديدة)
يتأكّد هو جدّا يسجو حول أنت
يوقن أن يلتفت باتّجاه آخر الميكروفون, يصفّ داخل بعد يستعمل هذا أو سيطقطق هو فوق [جني.إكس] إلى [إينستلّ.].

برنامج تفاصيل:

خيار بيّنة
[ويثفنتس] مظلمة [رككنتإكست] ك [سبشردرككنتإكست]
النحو مظلمة ك [إيسبيكركغرمّر]
مظلمة [مبركرونّينغ] بما أنّ [مكّهرس] بوليّ
مظلمة كعدد صحيح
[فول] مظلمة كضعف 'هذا يساعدون مفتوحة ال [فولوم كنترول]
تقدم تلقائيّ مظلمة بما أنّ عدد صحيح 'هذا يغلق ال [فولوم كنترول]
نقش مظلمة ك [إيجنتكتلشركترإكس]

خاصّة فرعيّة [بتنندكليك] ()
نقش. توقّفت
نهاية
نهاية بديل

خاصّة بديل [كمّند1كليك] ()
نقش. تكلّمت ("رأي بطاقة, سيفتح أنا [نوتبد] ل أنت. ")
نقش. تكلّمت ("رأي سيغيّر اللون الأخضر, نظرة خلف ي, لوح. ")
نهاية فرعيّة

خاصّة فرعيّة [فورملوأد] ()
[أنيم] مظلمة كخيط
[ستستت] زائفة
[مكّهرس]=0
[أنيم]="جني"
[أجنت1.شركترس.لوأد] [أنيم], [أنيم] & "[.كس]"
نقش محدّدة=[أجنت1.شركترس] ([أنيم])
[شر.موفتو] 520, 300
نقش. عرض
[شر.وتوبوبوبمنو]=زائفة
نقش. تكلّمت ("محادثة, أنا يستطيع كرّرت ماذا يقول أنت, يسرّ [1ست] رأي بداية")
نهاية [بتنسترتكليك] فرعيّة

خاصّة فرعيّة ()
[دبوغ.سّرت] لا [مبركرونّينغ]
نقش. قلت تكلّمت ("أيّ كلمة. ")
'وقعت تمييز سياق شيء والنحو شيء, بعد ذلك
'بدأت أمر جازم
إن ([رككنتإكست] لاشيء) بعد ذلك
[دبوغ.برينت] "يقع [سبي] [رك] سياق شيء."
ثبتت [رككنتإكست]=[سبشردرككنتإكست] جديدة
ثبتت النحو=[رككنتإكست.كرتغرمّر] (1)
[غرمّر.ديكتأيشنلوأد]
أنهيت إن
[غرمّر.ديكتأيشنستستت] [سغدسكتيف]
[ستستت] يصحّ
نهاية بديل

[بتنستوبكليك] خاصّة فرعيّة ()
[دبوغ.سّرت] [مبركرونّينغ]
[غرمّر.ديكتأيشنستستت] [سغدسنكتيف]
[ستستت] زائفة
نهاية بديل

خاصّة فرعيّة [فورمونلوأد] (إلغاء كعدد صحيح)
[شر.ستوب]
نهاية يعالج بديل

'هذا عمل تمييز حادث من ال [رك] سياق شيء.
'تمييز أطلق النار حادث عندما ال [سبيش ركنيأيشن] محركات يميّزون
'تسلسل الكلمات.
[رككنتإكستركنيأيشن] خاصّة فرعيّة ([بفل] [سترمنومبر] بما أنّ طويلا, _
[بفل] [سترمبوسأيشن] ك [فرينت], _
[بفل] [ركنيأيشنتب] ك [سبيكركنيأيشنتب], _
[بفل] نتيجة ك [إيسبيكركرسولت] _
)
[سترتإكست] مظلمة كخيط
'هذا أن يفتح ال [نوتبد]
[رتفل] مظلمة بما أنّ ضعف
[سترتإكست]=[رسولت.فرسينفو.جتّإكست]
'أتمّت ماذا أنت تريد لكلمات مختلفة هنا
إن [سترتإكست]="اللون الأخضر" بعد ذلك [لبل1.بككلور]=[فبغرين]
إن [سترتإكست]="أحمر" بعد ذلك [لبل1.بككلور]=[فبرد]
إن [سترتإكست]="صفراء" بعد ذلك [لبل1.بككلور]=[فبلّوو]
إن [سترتإكست]="أسود" بعد ذلك [لبل1.بككلور]=[فبّلك]
'هذا أن ينهي البرنامج ب يقول جانبا
إن [سترتإكست]="ب" بعد ذلك
[مسغبوإكس] ("[ب-ب]. ")
نهاية
أنهيت إن

'1 عاديّة, 3 زدت 6 قللت
إن [سترتإكست]="لا" بعد ذلك [رتفل]=قشرة قذيفة ("[ك]: [ويندووسنوتبد.إكس]", 3)
[سترمنومبر] & "," & [سترمبوسأيشن]
'ألحقت النص جديدة إلى النص صندوق, وأضفت فراغ في النهاية من ال
'نص [س ثت] هو ينظر على نحو أفضل
[تإكستسبيش.سلسترت]=[مكّهرس]
[تإكستسبيش.سلتإكست]=[سترتإكست] & ""
[مكّهرس]=[مكّهرس]+1+[لن] ([سترتإكست])
نقش. تكلّمت ([سترتإكست])
نهاية بديل

'هذا عمل مقابض الدولة من بداية و [ستوب بوتّون] وفقا ل
'ما إذا يركض أمر جازم.
[ستستت] خاصّة فرعيّة ([بفل] [بنوستت] بما أنّ بوليّ)
[مبركرونّينغ]=[بنوستت]
[بتنسترت.نبلد]=لا [مبركرونّينغ]
يساعد [بتنستوب.نبلد]=[مبركرونّينغ]
نهاية بديل

أخرى بريد إلكترونيّ: [ردو0007هوو.كم]

نسيج فعّالة: www.geocities.com/redu0007