Main title Name: “Voice Interface”
Project title Name: “Voice controlled Mouse”
Developer: Md. Redwanur Rahman
Location: Dhaka, Bangladesh.
Date: 25 June, 2008

I am here to share knowledge with other. I am writing about voice interface project. The people who are computer engineer will get help from this project.

Aim of this project:

Using your voice you can control your mouse


Code Details
‘Voice Command Form code……………………………

‘Put this code in Voice command Form that named Main_1.

Private Const VK_Return = &HD
Private Declare Sub keybd_event Lib "user32.dll" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

Private Sub Form_Load()
Form1.Show
Dim FileN As String
FileN = App.Path & "command.txt"
SR.Deactivate
SR.GrammarFromFile FileN
SR.Activate
SR.AutoGain = 99
CMD_List
End Sub


Private Sub SR_PhraseFinish(ByVal flags As Long, ByVal beginhi As Long, ByVal beginlo As Long, ByVal endhi As Long, ByVal endlo As Long, ByVal Phrase As String, ByVal parsed As String, ByVal results As Long)
Debug.Print Phrase
If Trim(Phrase) = "" Then
Exit Sub
Else
Text2.Text = Trim(Phrase)
SelMSG (Phrase)
Process_Message (Trim(Phrase))
End If
End Sub


Function Process_Message(Msg As String)
Select Case (UCase(Msg))
Case ("UP")
Form1.Command2_Click
Case ("DOWN")
Form1.Command5_Click
Case ("LEFT")
Form1.Command4_Click
Case ("RIGHT")
Form1.Command1_Click
Case ("NORMAL")
Form1.Command3_Click
Case ("Click")
keybd_event VK_Return, 0, 0, 0
keybd_event VK_Return, 0, KEYEVENTF_KEYUP, 0
Case ("EXIT")
End
End Select
End Function
Function CMD_List()
Dim TxT As String, Temp As String
Open App.Path & "commands.txt" For Input As #1
Do Until EOF(1)
Line Input #1, TxT
Temp = Left(TxT, 8)
If Temp = "S=" Then
TxT = Mid(TxT, 9, Len(TxT))
List1.AddItem TxT
End If
Loop
Close #1
End Function
Function SelMSG(Msg As String)
Dim Temp As String
Dim i As Integer
For i = 0 To List1.ListCount
Temp = List1.List(i)
If Trim(UCase(Temp)) = Trim(UCase(Msg)) Then
List1.ListIndex = i
Exit Function
End If
Next
End Function


‘Cursor controller Form code……..
‘Put this code in Cursor Form that named Form1.

Private Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long
Dim X, Y As Integer
Dim goRight, goUp, goDown, goLeft As Boolean

Public Sub Command1_Click()
Timer1.Enabled = True
Timer2.Enabled = False
Timer3.Enabled = False
Timer4.Enabled = False
End Sub

Public Sub Command2_Click()
Timer2.Enabled = True
Timer1.Enabled = False
Timer3.Enabled = False
Timer4.Enabled = False
End Sub

Public Sub Command3_Click()
Timer1.Enabled = False
Timer2.Enabled = False
Timer3.Enabled = False
Timer4.Enabled = False
End Sub

Public Sub Command4_Click()
Timer3.Enabled = True
Timer1.Enabled = False
Timer2.Enabled = False
Timer4.Enabled = False
End Sub

Public Sub Command5_Click()
Timer4.Enabled = True
Timer1.Enabled = False
Timer2.Enabled = False
Timer3.Enabled = False
End Sub

Private Sub Form_Load()
X = Form1.Width / 8 - 0.25
Text1.Text = X
Y = Form1.Height / 8
Text2.Text = Y
SetCursorPos X, Y
End Sub

Private Sub Timer1_Timer()
'If X <= 0 Then goLeft = True
'If goLeft Then
X = X + 1
Text1.Text = X
'End If
SetCursorPos X, Y
End Sub

Private Sub Timer2_Timer()
'If Y <= 0 Then goUp = False
'If goUp Then
Y = Y - 1
Text2.Text = Y
'End If
SetCursorPos X, Y
End Sub

Private Sub Timer3_Timer()
'If X >= 1024 Then goRight = True
'If goRight Then
X = X - 1
Text1.Text = X
'End If
SetCursorPos X, Y
End Sub

Private Sub Timer4_Timer()
'If Y >= 786 Then goDown = True
'If goDown Then
Y = Y + 1
Text2.Text = Y
'End If
SetCursorPos X, Y
End Sub

‘Command.txt file………… save as a text file and put in program root directory.

[Grammer]
Type=Cfg
[S]
S=Left
S=Right
S=Up
S=Down
S=Normal
S=Click
S=Exit

Download this Project: www.geocities.com/redu0007/Cnews

Conclusion:
I developed this software that published in Cnews in Bangladesh. I am regular writer of Cnews, Computer Jagat and Computer tomorrow that’s monthly computer journal of Bangladesh.

Souris à commande vocale
Automatically translated into French thanks to WorldLingo
Nom principal de titre : Nom de titre du projet « 
d'interface de voix » : Réalisateur « de souris à commande vocale
 » : Md. Endroit de Redwanur
Rahman : Dhaka, Bangladesh.
Date : 25 juin 2008

je suis ici pour partager la connaissance avec autre. J'écris au sujet du projet d'interface de voix. Le peuple qui sont ingénieur informaticien obtiendra l'aide de ce projet.

But de ce projet :

En utilisant votre voix vous pouvez commander vos détails


de code de souris que
le `de code de forme de commande de voix de `

................................. a mis ce code sous la forme de commande de voix qui a appelé Main_1.

Const privé VK_Return = &HD
privé déclarent la bibliothèque keybd_event secondaire « user32.dll » (bVk de ByVal comme byte, ByVal bScan comme dwFlags de byte, de ByVal en tant que dwExtraInfo longtemps, de ByVal en tant que longtemps)

Form_Load secondaire que privé ()
Form1.Show
obscurcissent FileN comme corde
FileN = App.Path et «  command.txt »
SR.Deactivate
SR.GrammarFromFile FileN
SR.Activate
SR.AutoGain = 99
expression
secondaire privée


de SR_PhraseFinish de sous-marin d'extrémité de CMD_List (drapeaux de ByVal en tant que longtemps, beginhi de ByVal en tant que longtemps, beginlo de ByVal en tant que longtemps, endhi de ByVal en tant que longtemps, endlo de ByVal en tant que longtemps, expression de ByVal pendant que la corde, ByVal analysé comme corde, ByVal résulte en tant que long
) Debug.Print
si équilibre (expression) = "" alors
Sortez d'autre
secondaire
Text2.Text = équilibre (expression)
SelMSG (expression)
Process_Message (équilibre (expression))
Finissez si
cas choisi


secondaire de Process_Message de fonction de fin (Msg comme
corde) (UCase (Msg))
Enfermez (« VERS LE HAUT DE »)
Form1.Command2_Click
Enferment (« VERS LE BAS »)
Form1.Command5_Click
Cas (« PARTI »)
Form1.Command4_Click
Cas (« DROIT »)
Form1.Command1_Click
Cas (« NORMALE »)
Form1.Command3_Click
Cas (« clic »)
VK_Return keybd_event, 0, 0, 0
VK_Return keybd_event, 0, KEYEVENTF_KEYUP, 0
Cas (« SORTIE »)
La fonction
choisie CMD_List
()
faible TxT de fonction de fin
d'extrémité d'extrémité comme corde, la température comme corde
App.Path ouvert et «  commands.txt » pour l'entrée comme #1
jusqu'à EOF (1)
Ligne entrée #1, TxT
La température = est partie (TxT, 8)
Si la température = « S= » puis
TxT = mi (TxT, 9, Len (TxT))
List1.AddItem TxT
Finissez si
température
étroite de SelMSG
de fonction de fonction
de la fin #1 de boucle la faible (Msg comme
corde) comme corde
obscurcissent I comme nombre entier
pour I = 0 à List1.ListCount
La température = List1.List (I)
Si équilibre (UCase (la température)) = équilibre (UCase (Msg)) Puis
List1.ListIndex = I
Sortez la fonction
Finissez si
prochain
code de forme


de contrôleur de curseur de `de fonction de fin ........
Le `a mis ce code sous la forme de curseur qui a appelé Form1.

Privé déclarez la bibliothèque « user32 » de SetCursorPos de fonction (ByVal X en tant que longtemps, ByVal Y en tant que longtemps) en tant que long
faible X, Y comme faible
goRight de nombre entier, goUp, l'entrepôt, goLeft en tant que sous-marin

public booléen Command1_Click ()
Timer1.Enabled = vrai
Timer2.Enabled = faux
Timer3.Enabled = faux
Timer4.Enabled = le sous-marin
public Command2_Click

de sous-marin faux d'extrémité ()
Timer2.Enabled = vrai
Timer1.Enabled = faux
Timer3.Enabled = faux
Timer4.Enabled = le sous-marin
public Command3_Click

de sous-marin faux d'extrémité ()
Timer1.Enabled = faux
Timer2.Enabled = faux
Timer3.Enabled = faux
Timer4.Enabled = le sous-marin
public Command4_Click

de sous-marin faux d'extrémité ()
Timer3.Enabled = vrai
Timer1.Enabled = faux
Timer2.Enabled = faux
Timer4.Enabled = le sous-marin
public Command5_Click

de sous-marin faux d'extrémité ()
Timer4.Enabled = Rectifiez
Timer1.Enabled = faux
Timer2.Enabled = faux
Timer3.Enabled = sous-marin
faux Form_Load

secondaire privé d'extrémité ()
X = Form1.Width/8 - 0.25
Text1.Text = X
Y = Form1.Height/8
Text2.Text = Y
SetCursorPos X, le sous-marin
privé Timer1_Timer

de sous-marin d'extrémité de Y ()
'si le goLeft du <= 0 de X puis = rectifient
'Si goLeft alors
X = X + 1
Text1.Text = X
'Finissez si
SetCursorPos X, sous-marin
privé Timer2_Timer

de sous-marin d'extrémité de Y ()
'Si goUp du <= 0 de Y puis = faux
'Si goUp alors
Y = Y - 1
Text2.Text = Y
'Finissez si
SetCursorPos X, sous-marin
privé Timer3_Timer

de sous-marin d'extrémité de Y ()
'si le goRight du >= 1024 de X puis = rectifient
'si goRight puis
X = X - 1
Text1.Text = X
'Finissez si
SetCursorPos X, sous-marin
privé Timer4_Timer

de sous-marin d'extrémité de Y ()
'si l'entrepôt du >= 786 de Y puis = rectifient
'si entrepôt puis
Y = Y + 1
Text2.Text = Y
'Finissez si
SetCursorPos X, dossier
du `Command.txt

de sous-marin d'extrémité de Y ............ économiser comme un dossier des textes et mis dans le répertoire racine de programme.

[Grammaire]
téléchargement
de Type=Cfg [S
]
S=Left
S=Right
S=Up
S=Down
S=Normal
S=Click

S=Exit ce projet : conclusion

de www.geocities.com/redu0007/Cnews :
J'ai développé ce logiciel qui a édité dans Cnews au Bangladesh. Je suis auteur régulier de Cnews, ordinateur Gajat et ordinateur demain qui est revue d'informatique mensuelle du Bangladesh.

Ratón controlado de la voz
Automatically translated into Spanish thanks to WorldLingo
Nombre principal del título: “Nombre del título de proyecto
del interfaz de la voz”: “Revelador del ratón controlado de la voz
”: Md. Localización de Redwanur
Rahman: Dhaka, Bangladesh.
Fecha: 25 de junio de 2008

estoy aquí compartir conocimiento con otro. Estoy escribiendo sobre proyecto del interfaz de la voz. La gente que es ingeniero informático conseguirá ayuda de este proyecto.

Puntería de este proyecto:

Usando su voz usted puede controlar sus detalles


del código del ratón que
el `del código de la forma del comando de la voz del `

................................. puso este código en la forma del comando de la voz que nombró Main_1.

Const privado VK_Return = &HD
privado declara el Lib keybd_event secundario “user32.dll” (bVk de ByVal como octeto, ByVal bScan como dwFlags del octeto, de ByVal como dwExtraInfo de largo, de ByVal como de largo) que

Form_Load secundario privado ()
Form1.Show
amortigua FileN como secuencia
FileN = App.Path y “ command.txt”
SR.Deactivate
SR.GrammarFromFile FileN
SR.Activate
SR.AutoGain = 99
frase
secundaria privada


de SR_PhraseFinish del submarino del extremo de CMD_List (banderas como de largo, beginhi de ByVal como de largo, beginlo de ByVal como de largo, endhi de ByVal como de largo, endlo de ByVal como de largo, frase de ByVal mientras que la secuencia, ByVal analizado como secuencia, ByVal resulta como largo)
Debug.Print de ByVal
si ajuste (frase) = "" entonces
Salga de otro
secundario
Text2.Text = ajuste (frase)
SelMSG (frase)
Process_Message (ajuste (frase))
Termine si
caso selecto


secundario de Process_Message de la función del final (Msg como
secuencia) (UCase (Msg))
Encajone (“ENCIMA DE”)
Form1.Command2_Click
Encajonan (“ABAJO”)
Form1.Command5_Click
Caso (“IDO”)
Form1.Command4_Click
Caso (“DERECHO”)
Form1.Command1_Click
Caso (“NORMAL”)
Form1.Command3_Click
Caso (“tecleo”)
VK_Return keybd_event, 0, 0, 0
VK_Return keybd_event, 0, KEYEVENTF_KEYUP, 0
Caso (“SALIDA”)
La función
selecta CMD_List
()
TxT dévil de la función del final
del extremo del extremo como secuencia, temperatura como secuencia
App.Path abierto y “ commands.txt” para la entrada como #1
hasta EOF (1)
Línea entrada #1, TxT
Temperatura = ido (TxT, 8)
Si temperatura = “S=” entonces
TxT = mediados de (TxT, 9, Len (TxT))
List1.AddItem TxT
Termine si
la temperatura
dévil cercana
de SelMSG de la función
de la función del final #1 del lazo (Msg como
secuencia) como secuencia
amortigua i como número entero
para i = 0 a List1.ListCount
Temperatura = List1.List (i)
Si ajuste (UCase (temperatura)) = ajuste (UCase (Msg)) Entonces
List1.ListIndex = i
Salga de la función
Termine si
código
siguiente de la forma


del regulador del cursor del `de la función del final ........
El `puso este código en la forma del cursor que nombró Form1.

Privado declare el Lib “user32” de SetCursorPos de la función (ByVal X como de largo, ByVal Y como de largo) como X
dévil largo, Y como goRight
dévil del número entero, goUp, goDown, goLeft como submarino

público boleano Command1_Click ()
Timer1.Enabled = verdad
Timer2.Enabled = falso
Timer3.Enabled = falso
Timer4.Enabled = el submarino
público Command2_Click

del submarino falso del extremo ()
Timer2.Enabled = verdad
Timer1.Enabled = falso
Timer3.Enabled = falso
Timer4.Enabled = el submarino
público Command3_Click

del submarino falso del extremo ()
Timer1.Enabled = falso
Timer2.Enabled = falso
Timer3.Enabled = falso
Timer4.Enabled = el submarino
público Command4_Click

del submarino falso del extremo ()
Timer3.Enabled = verdad
Timer1.Enabled = falso
Timer2.Enabled = falso
Timer4.Enabled = el submarino
público Command5_Click

del submarino falso del extremo ()
Timer4.Enabled = Verdad
Timer1.Enabled = falso
Timer2.Enabled = falso
Timer3.Enabled = submarino
falso Form_Load

secundario privado del extremo ()
X = Form1.Width/8 - 0.25
Text1.Text = X
Y = Form1.Height/8
Text2.Text = Y
SetCursorPos X, submarino
privado Timer1_Timer

del submarino del extremo de Y ()
'si el goLeft del <= 0 de X entonces = verdad
'Si goLeft entonces
X = X + 1
Text1.Text = X
'Termine si
SetCursorPos X, submarino
privado Timer2_Timer

del submarino del extremo de Y ()
'Si goUp del <= 0 de Y entonces = falso
'Si goUp entonces
Y = Y - 1
Text2.Text = Y
'Termine si
SetCursorPos X, submarino
privado Timer3_Timer

del submarino del extremo de Y ()
'si el goRight del >= 1024 de X entonces = verdad
'si goRight entonces
X = X - 1
Text1.Text = X
'Termine si
SetCursorPos X, submarino
privado Timer4_Timer

del submarino del extremo de Y ()
'si el goDown del >= 786 de Y entonces = verdad
'si goDown entonces
Y = Y + 1
Text2.Text = Y
'Termine si
SetCursorPos X, archivo
del `Command.txt

del submarino del extremo de Y ............ excepto como archivo de texto y puesto en directorio de raíz del programa.

[Gramática]
transferencia directa
de Type=Cfg [S
]
S=Left
S=Right
S=Up
S=Down
S=Normal
S=Click

S=Exit este proyecto: conclusión

de www.geocities.com/redu0007/Cnews:
Desarrollé este software que publicó en Cnews en Bangladesh. Soy escritor regular de Cnews, computadora Gajat y la computadora mañana que es diario de informática mensual de Bangladesh.

Mouse controllato di voce
Automatically translated into Italian thanks to WorldLingo
Nome principale di titolo: “Nome di titolo di progetto
dell'interfaccia di voce„: “Sviluppatore del mouse controllato di voce
„: Md. Posizione di Redwanur
Rahman: Dhaka, Bangladesh.
Data: 25 giugno 2008

sono qui ripartire la conoscenza con altra. Sto scrivendo circa il progetto dell'interfaccia di voce. La gente che è ingegnere in informatica otterrà l'aiuto da questo progetto.

Scopo di questo progetto:

Usando la vostra voce potete controllare i vostri particolari


di codice del mouse
il `di codice della forma di ordine di voce del `

................................. che ha messo questo codice nella forma di ordine di voce che ha chiamato Main_1.

Const riservato VK_Return = &HD
riservato dichiara il Lib keybd_event secondario “user32.dll„ (bVk di ByVal come byte, ByVal bScan come dwFlags di ByVal, di byte come dwExtraInfo di ByVal, lungamente come lungamente) che

Form_Load secondario riservato ()
Form1.Show
oscura FileN come stringa
FileN = App.Path & “ command.txt„
SR.Deactivate
SR.GrammarFromFile FileN
SR.Activate
SR.AutoGain = 99
frase
secondaria riservata


di SR_PhraseFinish del sommergibile dell'estremità di CMD_List (bandierine come lungamente, beginhi di ByVal come lungamente, beginlo di ByVal come lungamente, endhi di ByVal come lungamente, endlo di ByVal come lungamente, frase di ByVal mentre la stringa, ByVal analizzato come stringa, ByVal risulta come lungo)
Debug.Print di ByVal
se cornice (frase) = "" allora
Rimuova altro
secondario
Text2.Text = cornice (frase)
SelMSG (frase)
Process_Message (cornice (frase))
Concluda se
caso prescelto


secondario di Process_Message di funzione di conclusione (Msg come
stringa) (UCase (Msg))
Metta (“SU„)
Form1.Command2_Click
Mettono (“GIÙ„)
Form1.Command5_Click
Caso (“ANDATO„)
Form1.Command4_Click
Caso (“DI DESTRA„)
Form1.Command1_Click
Caso (“NORMALE„)
Form1.Command3_Click
Caso (“scatto„)
VK_Return keybd_event, 0, 0, 0
VK_Return keybd_event, 0, KEYEVENTF_KEYUP, 0
Caso (“USCITA„)
La funzione
prescelta CMD_List
()
TxT fioco di funzione di conclusione
dell'estremità dell'estremità come stringa, temperatura come stringa
App.Path aperto & “ commands.txt„ per input come #1
fino a EOF (1)
Linea input #1, TxT
Temperatura = andato (TxT, 8)
Se temperatura = “S=„ allora
TxT = metà di (TxT, 9, Len (TxT))
List1.AddItem TxT
Concluda se
la temperatura
fioca vicina
di SelMSG di funzione
di funzione di conclusione #1 del ciclo (Msg come
stringa) come stringa
oscura la i come numero intero
per i = 0 a List1.ListCount
Temperatura = List1.List (i)
Se cornice (UCase (temperatura)) = cornice (UCase (Msg)) Allora
List1.ListIndex = i
Rimuova la funzione
Concluda se
codice
seguente della forma


del regolatore del cursore del `di funzione di conclusione ........
Il `ha messo questo codice nella forma del cursore che ha chiamato Form1.

Riservato dichiari il Lib “user32„ di SetCursorPos di funzione (ByVal X come lungamente, ByVal Y come lungamente) come X
fioca lunga, Y come goRight
fioco di numero intero, il goUp, il goDown, goLeft come sommergibile

pubblico booleano Command1_Click ()
Timer1.Enabled = allineare
Timer2.Enabled = falso
Timer3.Enabled = falso
Timer4.Enabled = sommergibile
pubblico Command2_Click

del sommergibile falso dell'estremità ()
Timer2.Enabled = allineare
Timer1.Enabled = falso
Timer3.Enabled = falso
Timer4.Enabled = sommergibile
pubblico Command3_Click

del sommergibile falso dell'estremità ()
Timer1.Enabled = falso
Timer2.Enabled = falso
Timer3.Enabled = falso
Timer4.Enabled = sommergibile
pubblico Command4_Click

del sommergibile falso dell'estremità ()
Timer3.Enabled = allineare
Timer1.Enabled = falso
Timer2.Enabled = falso
Timer4.Enabled = sommergibile
pubblico Command5_Click

del sommergibile falso dell'estremità ()
Timer4.Enabled = Allineare
Timer1.Enabled = falso
Timer2.Enabled = falso
Timer3.Enabled = sommergibile
falso Form_Load

secondario riservato dell'estremità ()
X = Form1.Width/8 - 0.25
Text1.Text = X
Y = Form1.Height/8
Text2.Text = Y
SetCursorPos X, il sommergibile
riservato Timer1_Timer

del sommergibile dell'estremità di Y ()
'se il goLeft del <= 0 di X allora = allineare
'Se goLeft allora
X = X + 1
Text1.Text = X
'Concluda se
SetCursorPos X, sommergibile
riservato Timer2_Timer

del sommergibile dell'estremità di Y ()
'Se goUp del <= 0 di Y allora = falso
'Se goUp allora
Y = Y - 1
Text2.Text = Y
'Concluda se
SetCursorPos X, sommergibile
riservato Timer3_Timer

del sommergibile dell'estremità di Y ()
'se il goRight del >= 1024 di X allora = allineare
'se goRight allora
X = X - 1
Text1.Text = X
'Concluda se
SetCursorPos X, sommergibile
riservato Timer4_Timer

del sommergibile dell'estremità di Y ()
'se il goDown del >= 786 di Y allora = allineare
'se goDown allora
Y = Y + 1
Text2.Text = Y
'Concluda se
SetCursorPos X, lima
del `Command.txt

del sommergibile dell'estremità di Y ............ risparmi come lima di testo e messo nell'indice di radice di programma.

[Grammatica]
trasferimento dal sistema centrale verso i satelliti
di Type=Cfg [S
]
S=Left
S=Right
S=Up
S=Down
S=Normal
S=Click

S=Exit questo progetto: conclusione

di www.geocities.com/redu0007/Cnews:
Ho sviluppato questo software che ha pubblicato in Cnews in Bangladesh. Sarò domani produttore normale di Cnews, calcolatore Gajat e calcolatore che è giornale di calcolatore mensile della Bangladesh.

Sprachkontrollierte Maus
Automatically translated into German thanks to WorldLingo
Haupttitel Name: „Sprachschnittstelle“
Projekttitel Name: „Sprachkontrollierte Mäuse“
Entwickler: Md. Redwanur Rahman
Position: Dhaka, Bangladesh.
Datum: 25. Juni 2008

bin ich hier, Wissen mit anderem zu teilen. Ich schreibe über Sprachschnittstelle Projekt. Die Leute, die Computertechniker sind, erhalten Hilfe von diesem Projekt.

Ziel dieses Projektes:

Mit Ihrer Stimme können Sie Ihre Mauscode-


Details steuern,
`Sprachbefehl Form-Code ................................., das

`diesen Code in Sprachbefehl Form eingab, die Main_1 nannte.

Privates Const VK_Return = das private
&HD erklären keybd_event Vorbibliothek „user32.dll,“ (ByVal bVk als Byte, ByVal bScan als Byte, ByVal dwFlags als lang, ByVal dwExtraInfo als lang), das

privates VorForm_Load ()
Form1.Show
FileN als Zeichenkette FileN
= App.Path u. „ command.txt“ SR.Deactivate
SR.GrammarFromFile
FileN SR.Activate
SR.AutoGain
= 99 CMD_List
Ende
Unterseeboot private


VorSR_PhraseFinish (ByVal Markierungsfahnen als lang, ByVal beginhi als lang, ByVal beginlo als lang, ByVal endhi als lang, ByVal endlo als lang, ByVal Phrase, während Zeichenkette, ByVal, das als Zeichenkette analysiert wird, ByVal als langes resultiert), Debug.Print
Phrase wenn
Ordnung (Phrase) = "" dann verdunkeln
Nehmen Sie
Vorsonst heraus
Text2.Text = Ordnung (Phrase)
SelMSG (Phrase)
Process_Message (Ordnung (Phrase))
Beenden Sie, wenn
Ende Vor


funktion Process_Message (Msg als Zeichenkette)
auserwählter Fall (UCase (Msg))
Umkleiden Sie („HERAUF“)
Form1.Command2_Click
Umkleiden („UNTEN“)
Form1.Command5_Click
Fall („VERLASSEN“)
Form1.Command4_Click
Fall („RECHT“)
Form1.Command1_Click
Fall („NORMAL“)
Form1.Command3_Click
Fall („Klicken“)
keybd_event VK_Return, 0, 0, 0
keybd_event VK_Return, 0, KEYEVENTF_KEYUP, 0
Fall („AUSGANG“)
Ende
Ende
auserwählte Ende
Funktion Funktion CMD_List (
) schwaches TxT als Zeichenkette, Temperatur als
Zeichenkette geöffnetes App.Path u. „ commands.txt“ für Eingang als
#1 bis EOF (1)
Linie Eingang #1, TxT
Temperatur = verlassen (TxT, 8)
Wenn Temperatur = „S=“ dann
TxT = mittler (TxT, 9, Len (TxT))
List1.AddItem TxT
Beenden Sie, wenn
Schleife
nahe Ende
#1 Funktion
Funktion SelMSG (Msg als Zeichenkette)
schwache Temperatur als Zeichenkette
i als Ganzzahl für
i = 0 zu List1.ListCount verdunkeln
Temperatur = List1.List (i)
Wenn Ordnung (UCase (Temperatur)) = Ordnung (UCase (Msg)) Dann
List1.ListIndex = i
Nehmen Sie Funktion heraus
Beenden Sie, wenn
folgender
Ende Funktion


`Cursor-Steuerpult Formcode ........
`Gab diesen Code in Cursor-Form ein, die Form1 nannte.

Privat erklären Sie Funktion SetCursorPos Bibliothek „user32“ (ByVal X als lang, ByVal Y als lang) als langes
schwaches X, Y als Ganzzahl
schwaches goRight, goUp, goDown, goLeft als Boolesches

allgemeines Unterseeboot Command1_Click ()
Timer1.Enabled = zutreffend
Timer2.Enabled = falsch
Timer3.Enabled = falsch
Timer4.Enabled = falsches
Ende Unterseeboot-

allgemeines Unterseeboot Command2_Click ()
Timer2.Enabled = zutreffend
Timer1.Enabled = falsch
Timer3.Enabled = falsch
Timer4.Enabled = falsches
Ende Unterseeboot-

allgemeines Unterseeboot Command3_Click ()
Timer1.Enabled = falsch
Timer2.Enabled = falsch
Timer3.Enabled = falsch
Timer4.Enabled = falsches
Ende Unterseeboot-

allgemeines Unterseeboot Command4_Click ()
Timer3.Enabled = zutreffend
Timer1.Enabled = falsch
Timer2.Enabled = falsch
Timer4.Enabled = falsches
Ende Unterseeboot-

allgemeines Unterseeboot Command5_Click ()
Timer4.Enabled = Richten Sie
Timer1.Enabled = falsch
Timer2.Enabled = falsch
Timer3.Enabled = falsches
Ende Unterseeboot

privates VorForm_Load ()
X = Form1.Width/8 - 0.25
Text1.Text = X
Y = Form1.Height/8
Text2.Text = Y
SetCursorPos X, Y
Ende Unterseeboot-

privates Unterseeboot Timer1_Timer ()
'aus, wenn X <= 0 dann goLeft = ausrichten
'Wenn goLeft dann
X = X + 1
Text1.Text = X
'Beenden Sie wenn
SetCursorPos X, Y
Ende Unterseeboot-

privates Unterseeboot Timer2_Timer ()
'Wenn Y <= 0 dann goUp = falsch
'Wenn goUp dann
Y = Y - 1
Text2.Text = Y
'Beenden Sie wenn
SetCursorPos X, Y
Ende Unterseeboot-

privates Unterseeboot Timer3_Timer ()
', wenn X >= 1024 dann goRight = '
wenn goRight dann ausrichten
X = X - 1
Text1.Text = X
'Beenden Sie wenn
SetCursorPos X, Y
Ende Unterseeboot-

privates Unterseeboot Timer4_Timer ()
', wenn Y >= 786 dann goDown = '
wenn goDown dann ausrichten
Y = Y + 1
Text2.Text = Y
'Beenden Sie wenn
SetCursorPos X, Y
Ende Unterseeboot

`Command.txt Akte ............ außer als Textakte und gesetzt in ProgrammWurzelverzeichnis.

[Grammatik]
Type=Cfg
[S]
S=Left
S=Right
S=Up
S=Down
S=Normal
S=Click
S=Exit

Download dieses Projekt: www.geocities.com/redu0007/Cnews

Zusammenfassung:
Ich entwickelte diese Software, die in Cnews in Bangladesh veröffentlichte. Ich bin regelmäßiger Verfasser von Cnews, Computer Gajat und Computer morgen, der Monatscomputerjournal von Bangladesh ist.

Rato controlado da voz
Automatically translated into Portuguese thanks to WorldLingo
Nome principal do título: Da “nome do título de projeto
da relação voz”: Da “colaborador do rato controlado voz
”: Md. Posição de Redwanur
Rahman: Dhaka, Bangladesh.
Data: 25 junho, 2008

eu estou aqui compartilhar do conhecimento com o outro. Eu estou escrevendo sobre o projeto da relação da voz. Os povos que são coordenador de computador começarão a ajuda deste projeto.

Alvo deste projeto:

Usando sua voz você pode controlar seus detalhes


do código do rato
o `do código do formulário do comando da voz do `

................................. que pôs este código no formulário do comando da voz que nomeou Main_1.

Const confidencial VK_Return = &HD
confidencial declara o Lib keybd_event secundário “user32.dll” (bVk de ByVal como o Byte, ByVal bScan como dwFlags do Byte, do ByVal como o dwExtraInfo por muito tempo, de ByVal como por muito tempo) que

Form_Load secundário confidencial ()
Form1.Show
escurece FileN como a corda
FileN = App.Path & “ command.txt”
SR.Deactivate
SR.GrammarFromFile FileN
SR.Activate
SR.AutoGain = 99
frase
secundária confidencial


de SR_PhraseFinish do submarino da extremidade de CMD_List (bandeiras como por muito tempo, beginhi de ByVal como por muito tempo, beginlo de ByVal como por muito tempo, endhi de ByVal como por muito tempo, endlo de ByVal como por muito tempo, frase de ByVal enquanto a corda, ByVal analisado gramaticalmente como a corda, ByVal resulta como longo)
Debug.Print de ByVal
se guarnição (frase) = "" então
Retire outro
secundário
Text2.Text = guarnição (frase)
SelMSG (frase)
Process_Message (guarnição (frase))
Termine se
caso seleto


secundário de Process_Message da função do fim (Msg como
a corda) (UCase (Msg))
Encaixote (“ACIMA DE”)
Form1.Command2_Click
Encaixotam (“PARA BAIXO”)
Form1.Command5_Click
Caso (“SAIDO”)
Form1.Command4_Click
Caso (“DIREITO”)
Form1.Command1_Click
Caso (“NORMAL”)
Form1.Command3_Click
Caso (“clique”)
VK_Return keybd_event, 0, 0, 0
VK_Return keybd_event, 0, KEYEVENTF_KEYUP, 0
Caso (“SAÍDA”)
A função
seleta CMD_List
da função do fim
da extremidade da extremidade ()
TxT não ofuscante como a corda, temperatura como a corda
App.Path aberto & “ commands.txt” para a entrada como #1
até EOF (1)
Linha entrada #1, TxT
A temperatura = saiu (TxT, 8)
Se temperatura = “S=” então
TxT = Mid (TxT, 9, Len (TxT))
List1.AddItem TxT
Termine se
a temperatura
não ofuscante próxima
de SelMSG da função
da função do fim #1 do laço (Msg como
a corda) como a corda
escurecer i como o inteiro
para i = 0 a List1.ListCount
Temperatura = List1.List (i)
Se guarnição (UCase (temperatura)) = guarnição (UCase (Msg)) Então
List1.ListIndex = i
Retire a função
Termine se
código
seguinte do formulário


do controlador do cursor do `da função do fim ........
O `pôs este código no formulário do cursor que nomeou Form1.

Confidencial declare o Lib “user32” de SetCursorPos da função (ByVal X como por muito tempo, ByVal Y como por muito tempo) como X
não ofuscante longo, Y como o goRight
não ofuscante do inteiro, goUp, goDown, goLeft como o submarino

público booleano Command1_Click ()
Timer1.Enabled = verdadeiro
Timer2.Enabled = falso
Timer3.Enabled = falso
Timer4.Enabled = o submarino
público Command2_Click

do submarino falso da extremidade ()
Timer2.Enabled = verdadeiro
Timer1.Enabled = falso
Timer3.Enabled = falso
Timer4.Enabled = o submarino
público Command3_Click

do submarino falso da extremidade ()
Timer1.Enabled = falso
Timer2.Enabled = falso
Timer3.Enabled = falso
Timer4.Enabled = o submarino
público Command4_Click

do submarino falso da extremidade ()
Timer3.Enabled = verdadeiro
Timer1.Enabled = falso
Timer2.Enabled = falso
Timer4.Enabled = o submarino
público Command5_Click

do submarino falso da extremidade ()
Timer4.Enabled = Rectifique
Timer1.Enabled = falso
Timer2.Enabled = falso
Timer3.Enabled = submarino
falso Form_Load

secundário confidencial da extremidade ()
X = Form1.Width/8 - 0.25
Text1.Text = X
Y = Form1.Height/8
Text2.Text = Y
SetCursorPos X, submarino
confidencial Timer1_Timer

do submarino da extremidade de Y ()
'se o goLeft do <= 0 de X então = rectificar
'Se goLeft então
X = X + 1
Text1.Text = X
'Termine se
SetCursorPos X, submarino
confidencial Timer2_Timer

do submarino da extremidade de Y ()
'Se goUp do <= 0 de Y então = falso
'Se goUp então
Y = Y - 1
Text2.Text = Y
'Termine se
SetCursorPos X, submarino
confidencial Timer3_Timer

do submarino da extremidade de Y ()
'se o goRight do >= 1024 de X então = rectificar
'se goRight então
X = X - 1
Text1.Text = X
'Termine se
SetCursorPos X, submarino
confidencial Timer4_Timer

do submarino da extremidade de Y ()
'se o goDown do >= 786 de Y então = rectificar
'se goDown então
Y = Y + 1
Text2.Text = Y
'Termine se
SetCursorPos X, lima
do `Command.txt

do submarino da extremidade de Y ............ excepto como uma lima de texto e posto no diretório de raiz do programa.

[Gramática]
Download
de Type=Cfg [S
]
S=Left
S=Right
S=Up
S=Down
S=Normal
S=Click

S=Exit este projeto: conclusão

de www.geocities.com/redu0007/Cnews:
Eu desenvolvi este software que publicou em Cnews em Bangladesh. Eu sou escritor regular de Cnews, computador Gajat e computador amanhã que é jornal de computador mensal de Bangladesh.

Uttrycka den kontrollerade musen
Automatically translated into Swedish thanks to WorldLingo
Känd huvudsaklig titel: ”Uttrycka har kontakt”
projekterar den kända titeln: Bärare ”uttrycka för den kontrollerade musen
”: Md. Redwanur Rahman
läge: Dhaka Bangladesh.
Datera: 25 Juni, 2008

I-förmiddag här som delar kunskap med annan. Handstil för förmiddag I uttrycker omkring har kontakt projekterar. Folket, som är datoren, iscensätter ska får hjälp från denna projekterar.

Syftet av detta projekterar:

Att använda som är ditt, uttrycker dig kan kontrollera din mus


kodifierar specificerar
`uttrycker befaller bildar kodifierar .................................

`satte detta kodifierar uttrycker in befaller bildar den namngav Main_1.

Privata Const VK_Return = privat
&HD förklarar den underkeybd_event liben ”user32.dll” (ByVal bVk som byten, ByVal som är bScan som byte-, ByVal dwFlags som Long, ByVal dwExtraInfo som Long)

privata underForm_Load ()
Form1.Show
dunkla FileN som stränger
FileN = App.Path, & ” command.txt”
SR.Deactivate
SR.GrammarFromFile FileN
SR.Activate
SR.AutoGain = 99 som
CMD_List
avslutar under


privata underSR_PhraseFinish (ByVal sjunker som Long, den ByVal beginhien som Long, den ByVal beginloen som Long, den ByVal endhien, som Long, den ByVal endloen som Long, ByVal formulerar som stränger, parsed ByVal som stränger, ByVal resultat, som långt)
Debug.Print, formulerar
om klippning (formulera), = "" därefter
Gå ut under
annat
Text2.Text = klippning (formulera),
SelMSG (formulera),
Process_Message (klippning (formulera)),
Avsluta, om
avsluta suben


fungerar Process_Message (Msg som stränger)
det valda fallet (UCase (Msg))
Case (”UPP”)
Form1.Command2_Click
Case (”BESEGRA”),
Form1.Command5_Click
Case (”LÄMNAT”)
Form1.Command4_Click
Case (”RÄTT”)
Form1.Command1_Click
Case (”DET NORMALA”)
Form1.Command3_Click
Case (”klicka”),
keybd_event VK_Return, 0, 0, 0
keybd_event VK_Return, 0, KEYEVENTF_KEYUP, 0
Fall (”GÅ UT”),
Avsluta
avslutar valt
avslutar fungerar
fungerar CMD_List ()
dunkla TxT som stränger, arbetar tillfälligt som stränger
öppen App.Path, & ” commands.txt” för matar in, som #1
till EOF (1)
Fodra matar in #1, TxT
Vikarier = lämnade (TxT, 8)
Om vikarier = ”S=” därefter
TxT = mitt- (TxT, 9, Len (TxT))
List1.AddItem TxT
Avsluta, om
kretsa
nära #1
avslutar fungerar
fungerar SelMSG (Msg som stränger)
dunkla vikarier som stränger
dunkelt I som heltalet
för I = 0 till List1.ListCount
Vikarier = List1.List (I)
Om klippning (UCase (vikarie)) = klippning (UCase (Msg)) Därefter
List1.ListIndex = I
Gå ut fungerar
Avsluta, om
avsluta
därefter fungerar


`- markörkontrollanten bildar kodifierar ........,
`Satte denna kodifierar i markör bildar den namngav Form1.

Privat förklara fungerar den SetCursorPos liben ”user32” (ByVal X som Long, ByVal Y som Long) som långt
dunkelt X, Y som dunkel
goRight för heltalet, goUp, goDownen, goLeft som den Boolean

offentliga suben Command1_Click ()
Timer1.Enabled = riktigt
Timer2.Enabled = falskt
Timer3.Enabled = falskt
Timer4.Enabled = falskt
avslutar den under

offentliga suben Command2_Click ()
Timer2.Enabled = riktigt
Timer1.Enabled = falskt
Timer3.Enabled = falskt
Timer4.Enabled = falskt
avslutar den under

offentliga suben Command3_Click ()
Timer1.Enabled = falskt
Timer2.Enabled = falskt
Timer3.Enabled = falskt
Timer4.Enabled = falskt
avslutar den under

offentliga suben Command4_Click ()
Timer3.Enabled = riktigt
Timer1.Enabled = falskt
Timer2.Enabled = falskt
Timer4.Enabled = falskt
avslutar den under

offentliga suben Command5_Click ()
Timer4.Enabled = Riktigt
avslutar Timer1.Enabled =
falskt Timer2.Enabled =
falskt Timer3.Enabled =
falskt under

privata underForm_Load ()
X = Form1.Width/8 - 0.25
Text1.Text = X
Y = Form1.Height/8
Text2.Text = Y
SetCursorPos X, Y
avslutar den under

privata suben Timer1_Timer ()
', om goLeft för x-<= 0 därefter = True
'Om goLeft därefter
X = X + 1
Text1.Text = X
'Avsluta om
SetCursorPos X, Y
avslutar den under

privata suben Timer2_Timer ()
'Om goUp för y-<= 0 därefter = falskt
'Om goUp därefter
Y = Y - 1
Text2.Text = Y
'Avsluta om
SetCursorPos X, Y
avslutar den under

privata suben Timer3_Timer ()
', om goRight för x->= 1024 därefter = True
'om goRight därefter
X = X - 1
Text1.Text = X
'Avsluta om
SetCursorPos X, Y
avslutar den under

privata suben Timer4_Timer ()
', om goDownen för y->= 786 därefter = True
'om goDownen därefter
Y = Y + 1
Text2.Text = Y
'Avsluta om
SetCursorPos X, Y
avslutar under

`Command.txt sparar ............ räddning, som en text sparar och satte i program rotar arkivet.

[Grammatik]
den Type=Cfg
[S]
S=Left
S=Right
S=Up
S=Down
S=Normal
S=Click
S=Exit

nedladdningen som detta projekterar: www.geocities.com/redu0007/Cnews

avslutning:
Jag framkallade denna programvara som publicerade i Cnews i Bangladesh. Stamgästförfattare för förmiddag I av Cnews, datoren Gajat och datoren, som är månadstidningdatoren, förar journal över i morgon av Bangladesh.

Мышь голоса controlled
Automatically translated into Russian thanks to WorldLingo
Главным образом имя названия: «Имя названия проекта
поверхности стыка голоса»: «Проявитель controlled мыши голоса
»: Md. Положение Redwanur
Rahman: Dhaka, Бангладеш.
Дата: 25-ое июня 2008

я должны здесь делить знание с другим. Я пишу о проекте поверхности стыка голоса. Люди будут компьутерным инженером получат помощь от этого проекта.

Цель этого проекта:

Использующ ваш голос вы можете контролировать ваши детали


Кодего мыши
`Кодего формы голосового запроса `

................................., котор положило это Кодего в форму голосового запроса назвала Main_1.

Приватное Const VK_Return = &HD
приватное объявляет Sub keybd_event Lib «user32.dll» (bVk ByVal как байт, ByVal bScan как dwFlags байта, ByVal как dwExtraInfo длиной, ByVal как длиной)

приватное Sub, котор Form_Load ()
Form1.Show
затемняет FileN как шнур
FileN = App.Path & « command.txt»
SR.Deactivate
SR.GrammarFromFile FileN
SR.Activate
SR.AutoGain = 99
фраза
SR_PhraseFinish подводной лодки


конца CMD_List приватная Sub (флагов как длиной, beginhi ByVal как длиной, beginlo ByVal как длиной, endhi ByVal как длиной, endlo ByVal как длиной, фраза ByVal по мере того как шнур, ByVal parsed как шнур, ByVal приводит к как длиной)
Debug.Print ByVal
если уравновешивание (фраза) = "" после этого
Выйдите Sub
другое
Text2.Text = уравновешивание (фраза)
SelMSG (фраза)
Process_Message (уравновешивание (фраза))
Закончитесь если
случай, то Process_Message


функции конца Sub (Msg как шнур
) отборный (UCase (Msg))
Покрывайте («ВВЕРХ ПО»)
Form1.Command2_Click
Покрывайте («ВНИЗ»)
Form1.Command5_Click
Случай («ВЫЙДЕНО»)
Form1.Command4_Click
Случай («ПРАВО»)
Form1.Command1_Click
Случай («НОРМАЛЬНЫЙ»)
Form1.Command3_Click
Случай («Click»)
keybd_event VK_Return, 0, 0, 0
keybd_event VK_Return, 0, KEYEVENTF_KEYUP, 0
Случай («ВЫХОД»)
Функция
CMD_List функции
конца конца
конца отборная ()
тусклое TxT как шнур, температура как шнур
открытое App.Path & « commands.txt» для входного сигнала как #1
не сделать до EOF (1)
Входной сигнал #1 линии, TxT
Температура = после того как я ы (TxT, 8)
Если температура = «S=» после этого
TxT = Mid (TxT, 9, Len (TxT))
List1.AddItem TxT
Закончитесь если
температура
SelMSG функции
функции конца
#1 петли близкая (Msg как шнур
) тусклая как шнур
затемняет I как интежер
для I = 0 к List1.ListCount
Температура = List1.List (I)
Если уравновешивание, то (UCase (температура)) = уравновешивание (UCase (Msg)) После этого
List1.ListIndex = I
Выйдите функция
Закончитесь если
следующее
Кодий формы


регулятора стрелки `функции конца ........, то
`Положило это Кодего в форму стрелки назвала Form1.

Приватно объявите Lib «user32» SetCursorPos функции (ByVal x как длиной, ByVal y как длиной) как длинний
тусклый x, y как goRight
интежера тусклое, goUp, goDown, goLeft как булевская

общественная подводная лодка Command1_Click ()
Timer1.Enabled = поистине
Timer2.Enabled = ложно
Timer3.Enabled = ложно
Timer4.Enabled = подводная лодка
Command2_Click ложной

подводной лодки конца общественная ()
Timer2.Enabled = поистине
Timer1.Enabled = ложно
Timer3.Enabled = ложно
Timer4.Enabled = подводная лодка
Command3_Click ложной

подводной лодки конца общественная ()
Timer1.Enabled = ложно
Timer2.Enabled = ложно
Timer3.Enabled = ложно
Timer4.Enabled = подводная лодка
Command4_Click ложной

подводной лодки конца общественная ()
Timer3.Enabled = поистине
Timer1.Enabled = ложно
Timer2.Enabled = ложно
Timer4.Enabled = подводная лодка
Command5_Click ложной

подводной лодки конца общественная ()
Timer4.Enabled = True
Timer1.Enabled = ложно
Timer2.Enabled = ложно
Timer3.Enabled = ложная
подводная лодка приватное

Sub Form_Load конца ()
x = Form1.Width/8 до 0.25
Text1.Text = x
y = Form1.Height/8
Text2.Text = y
SetCursorPos x, подводная лодка
Timer1_Timer подводной лодки

конца y приватная ()
'если goLeft <= 0 x после этого = True
'Если goLeft после этого
X = X + 1
Text1.Text = x
'Закончитесь если
SetCursorPos x, подводная лодка
Timer2_Timer подводной лодки

конца y приватная ()
'Если goUp <= 0 y после этого = ложно
'Если goUp после этого
Y = Y - 1
Text2.Text = y
'Закончитесь если
SetCursorPos x, подводная лодка
Timer3_Timer подводной лодки

конца y приватная ()
'если goRight >= 1024 x после этого = True
'если goRight после этого
X = X - 1
Text1.Text = x
'Закончитесь если
SetCursorPos x, подводная лодка
Timer4_Timer подводной лодки

конца y приватная ()
'если goDown >= 786 y после этого = True
'если goDown после этого
Y = Y + 1
Text2.Text = y
'Закончитесь если
SetCursorPos x, архив
`Command.txt

подводной лодки конца y ............ за исключением как архива текста и положено в директорию корня программы.

[Грамматика]
Download
Type=Cfg [s
]
S=Left
S=Right
S=Up
S=Down
S=Normal
S=Click

S=Exit этот проект: заключение

www.geocities.com/redu0007/Cnews:
Я начал это средство программирования опубликовало в Cnews в Бангладеше. Я буду регулярно сочинителем Cnews, компьютером Gajat и компьютером завтра который будет ежемесячным журналом компьютера Бангладеша.

Stem gecontroleerde Muis
Automatically translated into Dutch thanks to WorldLingo
Hoofd titelNaam: De Naam van de titel van het Project „
van de Interface van de stem“: De „de Ontwikkelaar stem controleerde van de Muis
“: Md. Redwanur Rahman
Location: Dhaka, Bangladesh.
Datum: 25 Juni, 2008

moet ik hier kennis met andere delen. Ik schrijf over het project van de steminterface. De mensen die computeringenieur zijn zullen hulp van dit project krijgen.

Doelstelling van dit project:

Gebruikend uw stem kunt u uw code .................................


`controleren
van de Vorm van het Bevel van de Stem van de Details `van de muis

Code zette deze code in het bevelVorm van de Stem die Main_1 noemde.

Privé Const VK_Return = Privé
&HD verklaart de Sub keybd_event Lib „user32.dll“ (ByVal bVk als Byte, ByVal bScan als Byte, dwExtraInfo ByVal dwFlags zoals lang, ByVal zoals lang)

Privé SubForm_Load ()
Form1.Show
Schemerige FileN als Koord
FileN = App.Path & „ command.txt“
SR.Deactivate
SR.GrammarFromFile FileN
SR.Activate
SR.AutoGain = 99
de Sub
Privé Sub


(vlaggen ByVal zoals lang, beginhi ByVal zoals lang, beginlo ByVal zoals lang, endhi ByVal zoals lang, endlo ByVal zoals lang, Uitdrukking ByVal aangezien het Koord, ByVal ontleed als Koord, ByVal als lang) voortvloeit Debug.Print Uitdrukking SR_PhraseFinish
van het Eind CMD_List
als Versiering (Uitdrukking) = "" toen
Anders Sub
van de uitgang
Text2.Text = Versiering (Uitdrukking)
SelMSG (Uitdrukking)
Process_Message (Versiering (Uitdrukking))
Eind als
Uitgezochte Geval


van de Functie van het Eind het Sub van Process_Message (Msg als
Koord) (UCase (Msg))
Geval („OMHOOG“)
Form1.Command2_Click
Geval („ONDERAAN“)
Form1.Command5_Click
Geval („WEGGEGAAN“)
Form1.Command4_Click
Geval („JUIST“)
Form1.Command1_Click
Geval („NORMAAL“)
Form1.Command3_Click
Geval („Klik“)
keybd_event VK_Return, 0, 0, 0
keybd_event VK_Return, 0, KEYEVENTF_KEYUP, 0
Geval („UITGANG“)
Functie
CMD_List (
) Schemerige
TxT van het Eind van het Eind van het eind
doen de Uitgezochte van de Functie als Koord, de Temperaturen als
Koord Open App.Path & „ commands.txt“ voor Input als
#1 tot EOF (1)
De Input van de lijn #1, TxT
Temperaturen = Weggegaan (TxT, 8)
Als Temperaturen = „S=“ toen
TxT = Medio (TxT, 9, Len (TxT))
List1.AddItem TxT
Eind als
Schemerige
Temperaturen van de Functie
van de Functie van het Eind
van de Lijn de Dichte #1 van SelMSG (Msg als
Koord) als Koord
Schemerige I als Geheel
voor I = 0 aan List1.ListCount
Temperaturen = List1.List (I)
Als Versiering (UCase (Temperaturen)) = Versiering (UCase (Msg)) Dan
List1.ListIndex = I
De Functie van de uitgang
Eind als
de Volgende
code van de Vorm


van het controlemechanisme van de Curseur van de Functie `van het Eind ........
`Zet deze code in de Vorm van de Curseur die Form1 noemde.

Privé verklaar de Lib „user32“ van SetCursorPos van de Functie (ByVal X zoals lang, ByVal Y zoals lang) als Lang
Schemerig X, Y als Schemerige
goRight van het Geheel, goUp, goDown, goLeft als Openbare

SubCommand1_Click Van Boole ()
Timer1.Enabled = Waar
Timer2.Enabled = Vals
Timer3.Enabled = Vals
Timer4.Enabled = Vals
Eind Sub

Openbare SubCommand2_Click ()
Timer2.Enabled = Waar
Timer1.Enabled = Vals
Timer3.Enabled = Vals
Timer4.Enabled = Vals
Eind Sub

Openbare SubCommand3_Click ()
Timer1.Enabled = Vals
Timer2.Enabled = Vals
Timer3.Enabled = Vals
Timer4.Enabled = Vals
Eind Sub

Openbare SubCommand4_Click ()
Timer3.Enabled = Waar
Timer1.Enabled = Vals
Timer2.Enabled = Vals
Timer4.Enabled = Vals
Eind Sub

Openbare SubCommand5_Click ()
Timer4.Enabled = Waar
Timer1.Enabled = Vals
Timer2.Enabled = Vals
Timer3.Enabled = Vals
Eind Sub

Privé SubForm_Load ()
X = Form1.Width/8 - 0.25
Text1.Text = X
Y = Form1.Height/8
Text2.Text = Y
SetCursorPos X, het Eind
Sub Privé

SubTimer1_Timer van Y ()
'als X <= 0 toen goLeft = Waar
'Als goLeft toen
X = X + 1
Text1.Text = X
'Beëindig als
SetCursorPos X, het Eind
Sub Privé

SubTimer2_Timer van Y ()
'Als Y <= 0 toen goUp = Vals
'Als goUp toen
Y = Y - 1
Text2.Text = Y
'Beëindig als
SetCursorPos X, het Eind
Sub Privé

SubTimer3_Timer van Y ()
'als X >= 1024 toen goRight = Waar
'als goRight toen
X = X - 1
Text1.Text = X
'Beëindig als
SetCursorPos X, het Eind
Sub Privé

SubTimer4_Timer van Y ()
'als Y >= 786 toen goDown = Waar
'als goDown toen
Y = Y + 1
Text2.Text = Y
'Beëindig als
SetCursorPos X,
van het y- Eind Sub

`Command.txt- dossier ............ sparen als tekstdossier en gezet in de folder van de programmawortel.

[Grammatica]
Type=Cfg
[S]
S=Left
S=Right
S=Up
S=Down
S=Normal
S=Click
S=Exit

downloadt dit Project: www.geocities.com/redu0007/Cnews

Conclusie:
Ik ontwikkelde deze software die in Cnews in Bangladesh publiceerde. Ik ben morgen regelmatige schrijver van Cnews, Computer Gajat en Computer die maandelijks computerdagboek van Bangladesh is.

فأرة [فويس كنترولّد]
Automatically translated into Arabic thanks to WorldLingo
رئيسيّة عنوان اسم: "صوة قارن"
[بروجكت تيتل] اسم: "فأرة [فويس كنترولّد]"
مطورة: [مد]. [ردونور] [رهمن]
موقعة: دكا, بنغلادش.
تاريخ: 25 يونيو - حزيران, 2008

أنا هنا أن يشارك معرفة مع أخرى. أنا أكتب حول صوة قارن مشروع. سيحصل الالناس الذي يكون [كمبوتر نجنير] مساعدة من هذا مشروع.

هدف من هذا مشروع:

يستعمل صوتك أنت يستطيع ضبطت ك فأرة


رمز تفاصيل
`صوة أمر شكل رمز .................................

`وضع هذا رمز في صوة أمر شكل أنّ عيّن [مين1].

يفيد [كنست] خاصّة [فكرتثرن]=[&هد]
خاصّة [ليب] فرعيّة [كبدفنت] "[أوسر32.دلّ]" ([بفل] [بفك] كثمانية, [بفل] [بسكن] كثمانية, [بفل] [دوفلغس] بما أنّ طويلا, [بفل] [دوإكسترينفو] بما أنّ طويلا)

[فورملوأد] خاصّة فرعيّة ()
[فورم1.شوو]
يعتّم [فيلن] كخيط
[فيلن]=[أبّ.بث] & " [كمّند.تإكست]"
[سر.دكتيفت]
[سر.غرمّرفرومفيل] [فيلن]
[سر.كتيفت]
[سر.وتوغين]=99
[كمدليست]
نهاية بديل


خاصّة فرعيّة [سرفرسفينيش] ([بفل] صخر لوحيّ بما أنّ طويلا, [بفل] [بجنهي] بما أنّ طويلا, [بفل] [بجنلو] بما أنّ طويلا, [بفل] [إندهي] بما أنّ طويلا, [بفل] [إندلو] بما أنّ طويلا, [بفل] عبارة بما أنّ خيط, [بفل] يعرب كخيط, [بفل] ينتج كطويلة)
[دبوغ.برينت] عبارة
إن ترتيب (عبارة)="" بعد ذلك
خرجت فرعيّة
أخرى
[تإكست2.تإكست]=ترتيب (عبارة)
[سلمسغ] (عبارة)
[بروسسّمسّج] (ترتيب (عبارة))
أنهيت إن
نهاية فرعيّة


عمل [بروسسّمسّج] ([مسغ] كخيط)
حالة مختارة ([أوكس] ([مسغ]))
علّبت ("فوق")
[فورم1.كمّند2كليك]
علّبت ("إلى أسفل")
[فورم1.كمّند5كليك]
علّبت ("يسرى")
[فورم1.كمّند4كليك]
علّبت ("يصحّ")
[فورم1.كمّند1كليك]
علّبت ("معدل")
[فورم1.كمّند3كليك]
علّبت ("طقطقة")
[كبدفنت] [فكرتثرن], 0, 0, 0
[كبدفنت] [فكرتثرن], 0, [كفنتفكوب], 0
حالة ("مخرجة")
نهاية
نهاية مختارة
نهاية عمل
يتمّ عمل [كمدليست] ()
[تإكست] مظلمة كخيط, [تمب] كخيط
[أبّ.بث] مفتوحة & " [كمّندس.تإكست]" لمدخل ك #1
حتّى [إيوف] (1)
خطّ مدخل #1, [تإكست]
ترك [تمب]=([تإكست], 8)
إن [تمب]="[س]" بعد ذلك
[تإكست]=منتصفة ([تإكست], 9, [لن] ([تإكست]))
[ليست1.دّيتم] [تإكست]
أنهيت إن
أنشوطة
قريبة #1
نهاية عمل
عمل [سلمسغ] ([مسغ] كخيط)
[تمب] مظلمة كخيط
يعتّم أنا كعدد صحيح
ل أنا=0 إلى [ليست1.ليستكونت]
[تمب]=[ليست1.ليست] (أنا)
إن ترتيب ([أوكس] ([تمب])) =ترتيب ([أوكس] ([مسغ])) بعد ذلك
[ليست1.ليستيندإكس]=أنا
خرجت عمل
أنهيت إن
تالية
نهاية عمل


`مؤشر جهاز تحكّم شكل رمز ........
`وضع هذا رمز في مؤشر شكل أنّ عيّن [فورم1].

خاصّة أفدت عمل [ستكرسربوس] [ليب] "[أوسر32]" ([بفل] [إكس] بما أنّ طويلا, [بفل] [ي] بما أنّ طويلا) ك [إكس] طويلة
مظلمة, [ي] كعدد صحيح
[غريغت] مظلمة, [غوب], [غدوون], [غلفت] كبديل بوليّة

عامّة [كمّند1كليك] ()
[تيمر1.نبلد]=يصحّ
[تيمر2.نبلد]=زائفة
[تيمر3.نبلد]=زائفة
[تيمر4.نبلد]=زائفة
نهاية بديل

بديل عامّة [كمّند2كليك] ()
[تيمر2.نبلد]=يصحّ
[تيمر1.نبلد]=زائفة
[تيمر3.نبلد]=زائفة
[تيمر4.نبلد]=زائفة
نهاية بديل

بديل عامّة [كمّند3كليك] ()
[تيمر1.نبلد]=زائفة
[تيمر2.نبلد]=زائفة
[تيمر3.نبلد]=زائفة
[تيمر4.نبلد]=زائفة
نهاية بديل

بديل عامّة [كمّند4كليك] ()
[تيمر3.نبلد]=يصحّ
[تيمر1.نبلد]=زائفة
[تيمر2.نبلد]=زائفة
[تيمر4.نبلد]=زائفة
نهاية بديل

بديل عامّة [كمّند5كليك] ()
[تيمر4.نبلد]= عدّلت
[تيمر1.نبلد]=زائفة
[تيمر2.نبلد]=زائفة
[تيمر3.نبلد]=زائفة
نهاية بديل

[فورملوأد] خاصّة فرعيّة ()
[إكس]=[فورم1.ويدث]/8 - 0.25
[تإكست1.تإكست]=[إكس]
[ي]=[فورم1.هيغت]/8
[تإكست2.تإكست]=[ي]
[ستكرسربوس] [إكس], [ي]
نهاية بديل

بديل خاصّة [تيمر1تيمر] ()
'إن [إكس] <= 0 بعد ذلك [غلفت]=يعدّل
'إن [غلفت] بعد ذلك
[إكس]=[إكس]+1
[تإكست1.تإكست]=[إكس]
'أنهيت إن
[ستكرسربوس] [إكس], [ي]
نهاية بديل

بديل خاصّة [تيمر2تيمر] ()
'إن [ي] <= 0 بعد ذلك [غوب]=زائفة
'إن [غوب] بعد ذلك
[ي]=[ي] - 1
[تإكست2.تإكست]=[ي]
'أنهيت إن
[ستكرسربوس] [إكس], [ي]
نهاية بديل

بديل خاصّة [تيمر3تيمر] ()
'إن [إكس] >= 1024 بعد ذلك [غريغت]=يعدّل
'إن [غريغت] بعد ذلك
[إكس]=[إكس] - 1
[تإكست1.تإكست]=[إكس]
'أنهيت إن
[ستكرسربوس] [إكس], [ي]
نهاية بديل

بديل خاصّة [تيمر4تيمر] ()
'إن [ي] >= 786 بعد ذلك [غدوون]=يعدّل
'إن [غدوون] بعد ذلك
[ي]=[ي]+1
[تإكست2.تإكست]=[ي]
'أنهيت إن
[ستكرسربوس] [إكس], [ي]
نهاية بديل

`[كمّند.تإكست] مبرد ............ باستثناء كنص مبرد ويضع في برنامج [رووت ديركتوري].

[النحو]
[تبكفغ]
[[س]]
[سلفت]
[سريغت]
[سوب]
[سدوون]
[سنورمل]
[سكليك]
[سإكسيت]

[دوونلوأد] هذا مشروع: www.geocities.com/redu0007/Cnews

استنتاج:
أنا طوّرت هذا برمجيّة أنّ نشر في [كنوس] في بنغلادش. أنا كاتبة نظاميّة [كنوس], حاسوب [غجت] وحاسوب غدا أنّ يكون [كمبوتر جوورنل] شهريّة بنغلادش.