http://redu0007.tigblog.org/ What's on the minds of young leaders from around the globe? en-us http://redu0007.tigblog.org/post/395903 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.
]]> Wed, 25 Jun 2008 03:55:00 EDT http://redu0007.tigblog.org/post/395903 http://redu0007.tigblog.org/post/382813



Voice Key Board


Text To Voice


Say Computer will repeat


Parallel Port Details


ABC Learner




Redwan's Programs for C News




Voice Controlled Light.


Voice Controlled Mouse.


Voice Controlled Stepper Motor.


Voice Color.


Text to voice


Talk write.


Voice Browser


Voice Commanding Robot Robocommand

]]> Wed, 04 Jun 2008 06:31:00 EDT http://redu0007.tigblog.org/post/382813 http://redu0007.tigblog.org/post/381505
Please Visit:

www.geocities.com/redu0007

Bangladesh Computer Journal “Computer Jagat”

Bangladeshi Computer Journal “C News”

Bangladeshi Computer Journal “Computer Tomorrow”
]]> Mon, 02 Jun 2008 02:28:00 EDT http://redu0007.tigblog.org/post/381505 http://redu0007.tigblog.org/post/336437 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
]]> Wed, 20 Feb 2008 00:23:00 EST http://redu0007.tigblog.org/post/336437 http://redu0007.tigblog.org/post/333367 Main Title: Voice Recognition
Project: Talk, Computer will write for you
Developer: Md. Redwanur Rahman
Location: Dhaka, Bangladesh.
Date: 11 February, 2008

Read Me:
This sample demonstrates how to do simple dictation in VB with SAPI 5.1. It uses shared recognized context object, uses the default audio input, loads in dictation grammar, sets up event handlers, and shows the recognized text in the dialog text box.

Note:
Since the text box is using system locale, it may not correctly show characters in other languages. For example, if you use Chinese Speech Recognition engine as the default engine on your English OS, the text box may show garbage even though the engine recognizes Chinese.

Helps:
You need to install SAPI, go to http://www.microsoft.com/speech/download/sdk51/ and download sapi5.1

Setup:
To use this get and install the sapi 5.1, free from microsoft
Then go to control panel, speech. Configure the microphone
(You may have to go to the volume control at the bottom of your screen and unmute the Line in)
Run the training session (you may have to add a new profile)
Make sure it is very quiet around you
Be sure to turn off the microphone, Line in after using this or it will
Go asunder (ie get all screwed up)
Have fun it's a blast
P.S it takes a while for the computer to register the voice the first time around so give it a few seconds and see if it comes up.

Program details:
Option Explicit
Dim WithEvents RecoContext As SpSharedRecoContext
Dim Grammar As ISpeechRecoGrammar
Dim m_bRecoRunning As Boolean
Dim m_cChars As Integer
Dim vol As Double ' this helps open the volume control
Dim bye As Integer 'this closes the volume control

Private Sub btnend_Click()
'to end you must turn off the volume control
'If bye = 1 Then End
'vol = Shell("sndvol32", 1)
' you need to do this so the volume control doesn't just
'stop and minimize
'bye = bye + 1
'disable the buttons
'btnStop.Enabled = False
'btnStart.Enabled = False
'change the end buton caption to exit
'btnend.Caption = "Exit"
End
End Sub

Private Sub Form_Load()
SetState False
m_cChars = 0
'open the volume control to turn it on (not mute)**NOTE this is not microphone but LINE in
Dim vol As Double
vol = Shell("sndvol32", 1)
End Sub

Private Sub btnStart_Click()
Debug.Assert Not m_bRecoRunning
' Initialize recognition context object and grammar object, then
' start dictation
If (RecoContext Is Nothing) Then
Debug.Print "Initializing SAPI reco context object..."
Set RecoContext = New SpSharedRecoContext
Set Grammar = RecoContext.CreateGrammar(1)
Grammar.DictationLoad
End If
Grammar.DictationSetState SGDSActive
SetState True
End Sub

Private Sub btnStop_Click()
Debug.Assert m_bRecoRunning
Grammar.DictationSetState SGDSInactive
SetState False
End Sub

Private Sub Form_Unload(Cancel As Integer)
'open the volume control mute the line in box
vol = Shell("sndvol32", 1)
End Sub
' This function handles Recognition event from the recognized context object.
' Recognition event is fired when the speech recognition engines recognizes
' a sequences of words.
Private Sub RecoContext_Recognition(ByVal StreamNumber As Long, _
ByVal StreamPosition As Variant, _
ByVal RecognitionType As SpeechRecognitionType, _
ByVal Result As ISpeechRecoResult _
)
Dim strText As String
'this is to open the notepad
Dim RetVal As Double
strText = Result.PhraseInfo.GetText
'do what you want for various words here
If strText = "green" Then Label1.BackColor = vbGreen
If strText = "red" Then Label1.BackColor = vbRed
If strText = "yellow" Then Label1.BackColor = vbYellow
If strText = "black" Then Label1.BackColor = vbBlack
'this is to end the program by saying by
If strText = "by" Then
MsgBox ("remember to turn off the volume line in")
End
End If
'1 is normal, 3 is maximized 6 is minimized
If strText = "not" Then RetVal = Shell("c:windowsnotepad.exe", 3)
'I'm not sure why microsoft put this in, I took it out and all is still okay
'Debug.Print "Recognition: " strText ", " _
StreamNumber ", " StreamPosition
' Append the new text to the text box, and add a space at the end of the
' text so that it looks better
txtSpeech.SelStart = m_cChars
txtSpeech.SelText = strText " "
m_cChars = m_cChars + 1 + Len(strText)
End Sub

' This function handles the state of Start and Stop buttons according to
' whether dictation is running.
Private Sub SetState(ByVal bNewState As Boolean)
m_bRecoRunning = bNewState
btnStart.Enabled = Not m_bRecoRunning
btnStop.Enabled = m_bRecoRunning
End Sub

Email:
redu0007@yahoo.com

Web:
www.geocities.com/redu0007

Conclusion:
This program recognized your voice and write in a text field. You can use this program to write in MS-word, MS-Excel
]]> Mon, 11 Feb 2008 01:32:00 EST http://redu0007.tigblog.org/post/333367 http://redu0007.tigblog.org/post/327855 Project: Computer will talk to you.
Developer: Md. Redwanur Rahman
Location: Dhaka, Bangladesh.
Date: 28 January, 2008

I am here to share knowledge with other

Aim of this project:

Computer will talk to you. Microsoft voice agent Genie will read your written text.

Needed components:

SAPI 5.1 (Sound application programming interface), Voice agent Genie.exe
(Please dowload SAPI 5.1, Genie.exe from below links)

Program Details:

‘Talker form codes start…………
Option Explicit
Dim char As IAgentCtlCharacterEx
Dim anim As String

Private Sub form_load()
anim = "Genie"
Agent1.Characters.Load anim, anim ".acs"
Set char = Agent1.Characters(anim)
char.MoveTo 560, 200
char.Show
char.AutoPopupMenu = False
Picture10.Visible = True
End Sub

Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Picture2.Visible = True
Picture4.Visible = True
Picture6.Visible = True
Picture8.Visible = True
Picture10.Visible = True
End Sub

Private Sub picture1_click()
say Text1.Text
Picture10.Visible = True
End Sub

Private Sub say(text2say As String)
char.Speak text2say
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Picture2.Visible = True
Picture4.Visible = True
Picture6.Visible = True
Picture8.Visible = True
Picture10.Visible = True
End Sub

Private Sub Picture10_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Picture10.Visible = False
End Sub
Private Sub Picture2_Click()
char.Speak "Sorry You Must Type Text In To The Text Box To Make Text To Speach"
MsgBox "Sorry You Must Type Text In To The Text Box To Make Text To Speach", vbOKOnly, "Error"
Picture10.Visible = True
End Sub

Private Sub Picture2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Text1.Text = "" Then
Picture2.Visible = True
Else
Picture2.Visible = False
End If
Picture10.Visible = True
End Sub

Private Sub Picture3_Click()
Text1.Text = ""
Picture10.Visible = True
End Sub

Private Sub Picture4_Mousemove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Picture2.Visible = True
Picture4.Visible = False
Picture6.Visible = True
Picture10.Visible = True
End Sub

Private Sub Picture5_Click()
About.Show
Picture10.Visible = True
End Sub

Private Sub Picture6_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Picture4.Visible = True
Picture10.Visible = True
Picture6.Visible = False
Picture8.Visible = True
End Sub

Private Sub Picture7_Click()
Unload Me
End
Picture10.Visible = True
End Sub

Private Sub Picture8_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Picture6.Visible = True
Picture8.Visible = False
Picture10.Visible = True
End Sub

Private Sub Picture9_Click()
char.Stop
Picture10.Visible = True
End Sub

Private Sub Text1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Picture2.Visible = True
Picture4.Visible = True
Picture10.Visible = True
Picture6.Visible = True
Picture8.Visible = True
End Sub
‘Talker form codes end …………

‘About form codes start …………
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Picture3.Visible = True
End Sub

Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Picture3.Visible = True
End Sub

Private Sub Label2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Picture3.Visible = True
End Sub

Private Sub Label3_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Picture3.Visible = True
End Sub

Private Sub Label4_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Picture3.Visible = True
End Sub

Private Sub Picture1_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
Picture3.Visible = True
End Sub

Private Sub Picture2_Click()
Talker.Show
Unload Me
End Sub

Private Sub Picture3_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Picture3.Visible = False
End Sub
‘About form codes end …………

Operation:

You have to write your text in text field. Genie will read your written text.

Other help:

1st install voice agents
2nd install SAPI 5.1 or SAPI 4.00
3rd run this program

Download link:

(Software)
www.geocities.com/b_programing/Text_to_voice_2.zip
(Genie,Merline voice agents)
www.geocities.com/b_programing/Voice_Agent.zip
(SAPI 5.1 or SAPI 4.00)
www.geocities.com/voice_tomorrow

Conclusion:
This project will help you to build talking software.
]]> Sun, 27 Jan 2008 22:33:00 EST http://redu0007.tigblog.org/post/327855 http://redu0007.tigblog.org/post/309709 Wed, 12 Dec 2007 03:16:00 EST http://redu0007.tigblog.org/post/309709 http://redu0007.tigblog.org/post/281699 Using your voice, you can control a key board.

Main Title: Voice Recognition
Project: Voice controlled key board
Developer: Md. Redwanur Rahman
Location: Dhaka, Bangladesh.
Date: 15 November, 2007

I am here to share idea with other.

Operation of this Project
You have to say first “Start” then Start menu will open. Then say left or right. You may say up or down to control cursor position also and then say “Open” or “Ok”. After open a MS word file say “A” to write A. Like this, you can control your key board. This project has some limitations for some accent problem like I or E.

Program Details

Start Here…………………………………
Dim Temp As Variant
Private Const KEYEVENTF_EXTENDEDKEY = H1
Private Const KEYEVENTF_KEYUP = H2
Private Const VK_Backspace = H8
Private Const VK_Tab = H9
Private Const VK_Shift = H10
Private Const VK_Control = H11
Private Const VK_Alter = H12
Private Const VK_Pause = H13
Private Const VK_CapsLock = H14
Private Const VK_Return = HD
Private Const VK_Lshift = HA0
Private Const VK_Rshift = HA1
Private Const VK_Rcontrol = HA
Private Const VK_Escape = H1B
Private Const VK_Space = H20
Private Const VK_End = H23
Private Const VK_Home = H24
Private Const VK_Left = H25
Private Const VK_Up = H26
Private Const VK_Right = H27
Private Const VK_Down = H28
Private Const VK_Insert = H2D
Private Const VK_Delete = H2E
Private Const VK_1 = H61
Private Const VK_2 = H62
Private Const VK_3 = H63
Private Const VK_4 = H64
Private Const VK_5 = H65
Private Const VK_6 = H66
Private Const VK_7 = H67
Private Const VK_8 = H68
Private Const VK_9 = H69
Private Const VK_help = H70 '''any help file open
Private Const VK_0 = H60
Private Const VK_a = H41
Private Const VK_b = H42
Private Const VK_c = H43
Private Const VK_d = H44
Private Const VK_e = H45
Private Const VK_f = H46
Private Const VK_g = H47
Private Const VK_h = H48
Private Const VK_i = H49
Private Const VK_j = H4A
Private Const VK_k = H4B
Private Const VK_l = H4C
Private Const VK_m = H4D
Private Const VK_n = H4E
Private Const VK_o = H4F
Private Const VK_p = H50
Private Const VK_q = H51
Private Const VK_r = H52
Private Const VK_s = H53
Private Const VK_t = H54
Private Const VK_u = H55
Private Const VK_v = H56
Private Const VK_w = H57
Private Const VK_x = H58
Private Const VK_y = H59
Private Const VK_z = H5A
Private Const VK_star = H6A '*
Private Const VK_plus = H6B '+
Private Const VK_sub = H6D '-
Private Const VK_dot = H6E '.
Private Const VK_b_sls = H6F '/

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 Type NOTIFYICONDATA
cbSize As Long
hwnd As Long
uId As Long
uFlags As Long
uCallBackMessage As Long
hIcon As Long
szTip As String * 64
End Type
Private Const WM_MOUSEMOVE = H200
Private Const WM_LBUTTONDOWN = H201 'Button down
Private Const WM_LBUTTONUP = H202 'Button up
Private Const WM_LBUTTONDBLCLK = H203 'Double-click
Private Const WM_RBUTTONDOWN = H204 'Button down
Private Const WM_RBUTTONUP = H205 'Button up
Private Const WM_RBUTTONDBLCLK = H206 'Double-click
Private Declare Function Shell_NotifyIcon Lib "shell32" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, pnid As NOTIFYICONDATA) As Boolean

Private nid As NOTIFYICONDATA

Private Sub Form_Load()
Dim FileN As String
FileN = App.Path "commands.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 ("CLOSE")
Call Close_window
Case ("START")
Call Start
Case ("UP")
keybd_event VK_Up, 0, 0, 0 'Key Press
keybd_event VK_Up, 0, KEYEVENTF_KEYUP, 0 'Key Unpress
Case ("DOWN")
keybd_event VK_Down, 0, 0, 0
keybd_event VK_Down, 0, KEYEVENTF_KEYUP, 0
Case ("LEFT")
keybd_event VK_Left, 0, 0, 0
keybd_event VK_Left, 0, KEYEVENTF_KEYUP, 0
Case ("RIGHT")
keybd_event VK_Right, 0, 0, 0
keybd_event VK_Right, 0, KEYEVENTF_KEYUP, 0
Case ("OPEN")
keybd_event VK_Return, 0, 0, 0
keybd_event VK_Return, 0, KEYEVENTF_KEYUP, 0
Case ("OK")
keybd_event VK_Return, 0, 0, 0
keybd_event VK_Return, 0, KEYEVENTF_KEYUP, 0
Case ("ONE")
keybd_event VK_1, 0, 0, 0
keybd_event VK_1, 0, KEYEVENTF_KEYUP, 0
Case ("TWO")
keybd_event VK_2, 0, 0, 0
keybd_event VK_2, 0, KEYEVENTF_KEYUP, 0
Case ("THREE")
keybd_event VK_3, 0, 0, 0
keybd_event VK_3, 0, KEYEVENTF_KEYUP, 0
Case ("FOUR")
keybd_event VK_4, 0, 0, 0
keybd_event VK_4, 0, KEYEVENTF_KEYUP, 0
Case ("FIVE")
keybd_event VK_5, 0, 0, 0
keybd_event VK_5, 0, KEYEVENTF_KEYUP, 0
Case ("SIX")
keybd_event VK_6, 0, 0, 0
keybd_event VK_6, 0, KEYEVENTF_KEYUP, 0
Case ("SEVEN")
keybd_event VK_7, 0, 0, 0
keybd_event VK_7, 0, KEYEVENTF_KEYUP, 0
Case ("EIGHT")
keybd_event VK_8, 0, 0, 0
keybd_event VK_8, 0, KEYEVENTF_KEYUP, 0
Case ("NINE")
keybd_event VK_9, 0, 0, 0
keybd_event VK_9, 0, KEYEVENTF_KEYUP, 0
Case ("ZERO")
keybd_event VK_0, 0, 0, 0
keybd_event VK_0, 0, KEYEVENTF_KEYUP, 0
Case ("A")
keybd_event VK_a, 0, 0, 0
keybd_event VK_a, 0, KEYEVENTF_KEYUP, 0
Case ("B")
keybd_event VK_b, 0, 0, 0
keybd_event VK_b, 0, KEYEVENTF_KEYUP, 0
Case ("C")
keybd_event VK_c, 0, 0, 0
keybd_event VK_c, 0, KEYEVENTF_KEYUP, 0
Case ("D")
keybd_event VK_d, 0, 0, 0
keybd_event VK_d, 0, KEYEVENTF_KEYUP, 0
Case ("E")
keybd_event VK_e, 0, 0, 0
keybd_event VK_e, 0, KEYEVENTF_KEYUP, 0
Case ("F")
keybd_event VK_f, 0, 0, 0
keybd_event VK_f, 0, KEYEVENTF_KEYUP, 0
Case ("G")
keybd_event VK_g, 0, 0, 0
keybd_event VK_g, 0, KEYEVENTF_KEYUP, 0
Case ("H")
keybd_event VK_h, 0, 0, 0
keybd_event VK_h, 0, KEYEVENTF_KEYUP, 0
Case ("I")
keybd_event VK_i, 0, 0, 0
keybd_event VK_i, 0, KEYEVENTF_KEYUP, 0
Case ("J")
keybd_event VK_j, 0, 0, 0
keybd_event VK_j, 0, KEYEVENTF_KEYUP, 0
Case ("k")
keybd_event VK_k, 0, 0, 0
keybd_event VK_k, 0, KEYEVENTF_KEYUP, 0
Case ("L")
keybd_event VK_l, 0, 0, 0
keybd_event VK_l, 0, KEYEVENTF_KEYUP, 0
Case ("M")
keybd_event VK_m, 0, 0, 0
keybd_event VK_m, 0, KEYEVENTF_KEYUP, 0
Case ("N")
keybd_event VK_n, 0, 0, 0
keybd_event VK_n, 0, KEYEVENTF_KEYUP, 0
Case ("O")
keybd_event VK_o, 0, 0, 0
keybd_event VK_o, 0, KEYEVENTF_KEYUP, 0
Case ("P")
keybd_event VK_p, 0, 0, 0
keybd_event VK_p, 0, KEYEVENTF_KEYUP, 0
Case ("Q")
keybd_event VK_q, 0, 0, 0
keybd_event VK_q, 0, KEYEVENTF_KEYUP, 0
Case ("R")
keybd_event VK_r, 0, 0, 0
keybd_event VK_r, 0, KEYEVENTF_KEYUP, 0
Case ("S")
keybd_event VK_s, 0, 0, 0
keybd_event VK_s, 0, KEYEVENTF_KEYUP, 0
Case ("T")
keybd_event VK_t, 0, 0, 0
keybd_event VK_t, 0, KEYEVENTF_KEYUP, 0
Case ("U")
keybd_event VK_u, 0, 0, 0
keybd_event VK_u, 0, KEYEVENTF_KEYUP, 0
Case ("V")
keybd_event VK_v, 0, 0, 0
keybd_event VK_v, 0, KEYEVENTF_KEYUP, 0
Case ("W")
keybd_event VK_w, 0, 0, 0
keybd_event VK_w, 0, KEYEVENTF_KEYUP, 0
Case ("X")
keybd_event VK_x, 0, 0, 0
keybd_event VK_x, 0, KEYEVENTF_KEYUP, 0
Case ("Y")
keybd_event VK_y, 0, 0, 0
keybd_event VK_y, 0, KEYEVENTF_KEYUP, 0
Case ("Z")
keybd_event VK_z, 0, 0, 0
keybd_event VK_z, 0, KEYEVENTF_KEYUP, 0
Case ("CAPS")
keybd_event VK_CapsLock, 0, 0, 0
keybd_event VK_CapsLock, 0, KEYEVENTF_KEYUP, 0
Case ("BACK")
keybd_event VK_Backspace, 0, 0, 0
keybd_event VK_Backspace, 0, KEYEVENTF_KEYUP, 0
Case ("GAP")
keybd_event VK_Space, 0, 0, 0
keybd_event VK_Space, 0, KEYEVENTF_KEYUP, 0
Case ("EXIT")
End
End Select
End Function

Public Sub Start()
keybd_event VK_Control, 0, 0, 0
keybd_event VK_Escape, 0, 0, 0
keybd_event VK_Down, 0, 0, 0
keybd_event VK_Control, 0, KEYEVENTF_KEYUP, 0
keybd_event VK_Escape, 0, KEYEVENTF_KEYUP, 0
keybd_event VK_Down, 0, KEYEVENTF_KEYUP, 0
End Sub

Public Sub Close_window()
keybd_event VK_Alter, 0, 0, 0
keybd_event VK_F4, 0, 0, 0
keybd_event VK_Alter, 0, KEYEVENTF_KEYUP, 0
keybd_event VK_F4, 0, KEYEVENTF_KEYUP, 0
End Sub

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 = "{{Start}}=" 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

End Here…………………………………

Need Fille :Command.txt

[Grammer]
Type=Cfg

[{{Start}}]

{{Start}}=Start
{{Start}}=Open
{{Start}}=Ok
{{Start}}=Close
{{Start}}=Exit
{{Start}}=Up
{{Start}}=Down
{{Start}}=Left
{{Start}}=Right
{{Start}}=One
{{Start}}=Two
{{Start}}=Three
{{Start}}=Four
{{Start}}=Five
{{Start}}=Six
{{Start}}=Seven
{{Start}}=Eight
{{Start}}=Nine
{{Start}}=Zero
{{Start}}=A
{{Start}}=B
{{Start}}=C
{{Start}}=D
{{Start}}=E
{{Start}}=F
{{Start}}=G
{{Start}}=H
{{Start}}=I
{{Start}}=J
{{Start}}=K
{{Start}}=L
{{Start}}=M
{{Start}}=N
{{Start}}=O
{{Start}}=P
{{Start}}=Q
{{Start}}=R
{{Start}}=S
{{Start}}=T
{{Start}}=U
{{Start}}=V
{{Start}}=W
{{Start}}=X
{{Start}}=Y
{{Start}}=Z
{{Start}}=Caps
{{Start}}=Gap
{{Start}}=Back

For help email me: redu0007@yahoo.com

Conclusion: Some people in our world have some sorrow. """"With out hand how can we control a Computer?"""" Because of that I tried to do some.
]]> Wed, 14 Nov 2007 22:37:00 EST http://redu0007.tigblog.org/post/281699 http://redu0007.tigblog.org/post/275569 Speaking color reorganized project. Its recognize color from any unique color picture.

Main Title: Color Recognition
Project: Color recognition from a unique color picture.
Developer: Md. Redwanur Rahman
Location: Dhaka, Bangladesh.
Date: 5 November, 2007

I am here to share idea with other.

This snippet of code will change the background color of a picture box to reflect the value of the Red, Green and Blue scroll bars and indicated what the color it is: A shade of blue, purple, orange etc.

This code is fairly accurate but right now isn’t able to distinguish brown/tan colors. This code is still in its infancy.

Program Details

Start Here…………………………………

Private Sub cmdexit_Click()
Unload Me
End Sub

Private Sub cmdGo_Click()
'now find out what type of color it is. IE yellow, orange, blue, grey etc...
Dim MyRVal As String
Dim MyGVal As String
Dim MyBVal As String

MyRVal = Brightness(Me.ScrollRed.Value) "R"
MyGVal = Brightness(Me.ScrollGreen.Value) "G"
MyBVal = Brightness(Me.ScrollBlue.Value) "B"

Dim MyWholeColor As String
MyWholeColor = MyRVal MyGVal MyBVal
Dim colorname As String
Select Case MyWholeColor
'example: a Dark Red and a Dk Green and a Dark Blue values are similar in color to a dk grey or blk.
Case Is = "DRDGDB"
colorname = "Dk Grey or black"
Case Is = "DRDGMB"
colorname = "Blue"
Case Is = "DRDGLB"
colorname = "Blue"
Case Is = "DRMGDB"
colorname = "Green"
Case Is = "DRMGMB"
colorname = "BlueGreen"
Case Is = "DRMGLB"
colorname = "Blue"
Case Is = "DRLGDB"
colorname = "Green"
Case Is = "DRLGMB"
colorname = "BlueGreen"
Case Is = "DRLGLB"
colorname = "Blue"
Case Is = "MRDGDB"
colorname = "Red"
Case Is = "MRDGMB"
colorname = "Purple"
Case Is = "MRDGLB"
colorname = "Purple"
Case Is = "MRMGDB"
colorname = "Yellow"
Case Is = "MRMGMB"
colorname = "Grey"
Case Is = "MRMGLB"
colorname = "BluePurple"
Case Is = "MRLGDB"
colorname = "Green"
Case Is = "MRLGMB"
colorname = "Green"
Case Is = "MRLGLB"
colorname = "BlueGreen"
Case Is = "LRDGDB"
colorname = "Red"
Case Is = "LRDGMB"
colorname = "RedPurple"
Case Is = "LRDGLB"
colorname = "Purple"
Case Is = "LRMGDB"
colorname = "Orange"
Case Is = "LRMGMB"
colorname = "Pink/Red"
Case Is = "LRMGLB"
colorname = "Purple"
Case Is = "LRLGDB"
colorname = "Yellow"
Case Is = "LRLGMB"
colorname = "Yellow"
Case Is = "LRLGLB"
colorname = "White/Grey"
End Select
TextToSpeech1.Speak ("The color in the picture is " colorname)
MsgBox ("The color in the picture is " colorname)
End Sub


Private Sub ScrollBlue_Change()
'change the caption and the back color of the picture
Me.lblblue.Caption = Me.ScrollBlue.Value
Call ChangeBackColor(Me.ScrollRed, Me.ScrollGreen, Me.ScrollBlue)
End Sub

Private Sub ScrollGreen_Change()
'change the caption and the back color of the picture
Me.lblGreen.Caption = Me.ScrollGreen.Value
Call ChangeBackColor(Me.ScrollRed, Me.ScrollGreen, Me.ScrollBlue)
End Sub

Private Sub ScrollRed_Change()
'change the caption and the back color of the picture
Me.lblRed.Caption = Me.ScrollRed.Value
Call ChangeBackColor(Me.ScrollRed, Me.ScrollGreen, Me.ScrollBlue)
End Sub
Private Sub ChangeBackColor(RVal As Integer, GVal As Integer, BVal As Integer)
'change the back color of the picture to reflect the croll bar values
RVal = Me.ScrollRed.Value
GVal = Me.ScrollGreen.Value
BVal = Me.ScrollBlue.Value
Me.Picture1.BackColor = RGB(RVal, GVal, BVal)
End Sub

Public Function Brightness(mycolor As Integer) As String
'see what the brightness of the color is: dark, medium or light
'"D" for Dark, "L" for light and "M" for med
'If R value and G value and B Value are all less than 85 then it is a dk color
'so will probably be either black or a dk grey (Example (50,50,50) would be a dk grey)
'Same goes for R,G and B value greater than 170. The closer the 3 values get to 255, the closer the
'color will be to white.

If mycolor < 86 Then
Brightness = "D"
ElseIf mycolor < 171 Then
Brightness = "M"
Else
Brightness = "L"
End If
End Function

End Here..........................

For help email me: redu0007@yahoo.com

Conclusion
From a unique color picture this program can recognized Color Name.

]]> Sun, 04 Nov 2007 23:25:00 EST http://redu0007.tigblog.org/post/275569 http://redu0007.tigblog.org/post/273353 This Project count unique color from any image.

Main Title: Image Recognition
Project: Unique colors counter for any picture.
Developer: Md. Redwanur Rahman
Location: Dhaka, Bangladesh.
Date: 30 October, 2007

I am here to share idea with other.

Program Details

Start Here…………………………………

Option Explicit

Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" ( _
lpvDest As Any, lpvSource As Any, ByVal cbCopy As Long)

Private Type SAFEARRAYBOUND
cElements As Long
lLbound As Long
End Type
Private Type SAFEARRAY2D
cDims As Integer
fFeatures As Integer
cbElements As Long
cLocks As Long
pvData As Long
Bounds(0 To 1) As SAFEARRAYBOUND
End Type
Private Declare Function VarPtrArray Lib "msvbvm50.dll" Alias "VarPtr" (Ptr() As Any) As Long

Private m_cDib As New cDibSection

Private Sub pLoad(ByVal sFIle As String)
Dim oPic As StdPicture
Set oPic = LoadPicture(sFIle)
m_cDib.CreateFromPicture oPic
picImage.Picture = oPic
lblSize.Caption = sFIle " (" m_cDib.Width " x " m_cDib.Height ")"
End Sub

Private Sub cmdLoad_Click()
Dim cD As New GCommonDialog
Dim sFIle As String
If (cD.VBGetOpenFileName( _
Filename:=sFIle, _
Filter:="All Picture Files (*.BMP;*.JPG;*.GIF)|*.BMP;*.JPG;*.GIF|Bitmaps (*.BMP)|*.BMP|JPEGs (*.JPG)|*.JPG|GIFs (*.GIF)|*.GIF|All Files (*.*)|*.*", _
Owner:=Me.hwnd)) Then
pLoad sFIle
End If
End Sub

Private Sub cmdCount_Click()
Dim i As Long
Dim cGreen(0 To 255) As cIndexCollection2
For i = 0 To 255
Set cGreen(i) = New cIndexCollection2
cGreen(i).AllocationSize = 32
Next i

Dim tSA As SAFEARRAY2D
Dim bDib() As Byte
With tSA
.cbElements = 1
.cDims = 2
.Bounds(0).cElements = m_cDib.Height
.Bounds(0).lLbound = 0
.Bounds(1).cElements = m_cDib.BytesPerScanLine
.Bounds(1).lLbound = 0
.pvData = m_cDib.DIBSectionBitsPtr
End With

CopyMemory ByVal VarPtrArray(bDib()), VarPtr(tSA), 4

Dim x As Long, y As Long, xEnd As Long
Dim lC As Long, lGray As Long
Dim lInsertIndex As Long
xEnd = (m_cDib.Width - 1) * 3
For x = 0 To xEnd Step 3
For y = 0 To m_cDib.Height - 1
lC = bDib(x, y) + bDib(x + 2, y) * H100
If (cGreen(bDib(x + 1, y)).BinarySearch(lC, lInsertIndex) = 0) Then
cGreen(bDib(x + 1, y)).Add lC, lInsertIndex
End If
Next y
Next x

CopyMemory ByVal VarPtrArray(bDib()), 0, 4

lC = 0
For i = 0 To 255
lC = lC + cGreen(i).Count
Next i
'MsgBox "The number of unique colours in this image is " lC, vbInformation
Label3.Caption = lC
SSS1.Speak ("The number of unique colours in this image is " lC)
End Sub

Private Sub Form_Load()
Dim sFIle As String
sFIle = App.Path
If (Right$(sFIle, 1) <> "") Then sFIle = sFIle ""
sFIle = sFIle "RED.jpg"
pLoad sFIle
End Sub

End Here…………………………

Used three modules

1. cDibsection.cls Author: Steve McMahon
2. cIndexcollection2.cls
3. GCommondialog.cls Author: Steve McMahon based on original by Bruce McKinney

For help email me: redu0007@yahoo.com

Conclusion
Form any image or object how many unique colors are present some time we need to know in our robotic project that will be use for color detection.
]]> Tue, 30 Oct 2007 00:53:00 EDT http://redu0007.tigblog.org/post/273353 http://redu0007.tigblog.org/post/270719 This Project recognized Objects like rectangle, circle, cylinder, square etc

Main Title: Object Recognition
Project: Robot will recognize Objects using Neural Net
Developer: Md. Redwanur Rahman
Location: Dhaka, Bangladesh.
Date: 21 October, 2007

I am here to partially share idea with other.


Used Method
Neural Net method is applied to train objects, In between train objects will recognize by robot. If any new objects, will be train first then it will recognize.

Program Details
Sorry I didn’t publish this Project code for some security of my future project.
For help email me: redu0007@yahoo.com

Working details
1st Objects will be familiarized with Neural Net (Initialization)
2nd Objects image will convert in gray scale (Convert to Gray Scale with 25X25 pixels)
3rd Objects images will train by Neural Net (Training)
4th Input Object image will recognize by Neural Net

Limitation
Require time to train for new Objects.

Conclusion
I developed this software for my future project virtual reality program where some objects will be real and some objects will be virtual and both will interact using my developing software.
]]> Sun, 21 Oct 2007 06:01:00 EDT http://redu0007.tigblog.org/post/270719 http://redu0007.tigblog.org/post/264877 This Project recognized Bangla English Text and also others languages text can be recognized using this software.

Main Title: Image Recognition
Project: Robot will recognize Bangla English Text
Developer: Md. Redwanur Rahman
Location: Dhaka, Bangladesh.
Date: 9 October, 2007

I am here to partially share idea with other.

Needed component
Fuzzy technique is applied to teach Text and text recognition algorithm (also based on Fuzzy logic) is applied for detect how much percentages are close the database stored image text.

Program Details
Sorry I didn’t publish this software code for some security of my future project.
For help email me: redu0007@yahoo.com

Working details
In user data area you have to draw a character or text of you own language like Bangla, English, Hindi then teach my program what is that character. For teaching a character (that will stored in a database) and recognized a character from that data base I used Fuzzy technique. If drawn text in user area mach with database storage text image 72% then it will show the character Name and also speak the character accent. Speaking system is applicable for English text only.

Conclusion
I developed this software for my future project virtual reality program where some objects will be real and some objects will be virtual and both will interact using my developing software.
]]> Tue, 09 Oct 2007 00:22:00 EDT http://redu0007.tigblog.org/post/264877 http://redu0007.tigblog.org/post/261801 Project: Robot will count your touches
Developer: Md. Redwanur Rahman
Location: Dhaka, Bangladesh.
Date: 1 October, 2007

I am here to share knowledge with other.

Aim of this project
When someone touches my robot’s hand it will count how many people shake hand with it.

Needed components

C1=10uF 16V Electrolytic Capacitor
R1, R2=100K 1/4 Watt Resistor
R3=10 Meg 1/4 Watt Resistor
U1=4011 CMOS NAND Gate IC
Relay= 9V
D25 connector that is printer port connector.

Circuit details

Touch pad is just normal wires, when some one touch the touch pad then +9v relay will switch and it through signal (Supply +5v) at printer port 10. Computer get signal and program will count a touch. If someone touches my robot, every time it counts. Circuit ground (GND) must be connected to printer port pin 18~25.

Program Details

Private Port, X, Y As Integer
Private Declare Function Inp Lib "inpout32.dll" Alias "Inp32" (ByVal PortAddress As Integer) As Integer
Private Declare Sub Out Lib "inpout32.dll" Alias "Out32" (ByVal PortAddress As Integer, ByVal Value As Integer)
Public Sub Command1_Click()
Timer1.Enabled = True
End Sub
Private Sub Command3_Click()
Timer1.Enabled = False
End Sub
Private Sub Command4_Click()
End
End Sub
Private Sub Form_Load()
Port = H379 ' LPT1 Status Port Address
Text1.Text = 0
Y = 0
X = 0
End Sub
Private Sub Timer1_Timer()
Y = Inp(Port)
If (Y And 1) = True Then
X = X + 1
End If
Text1.Text = X
End Sub

Conclusion

I developed this circuit and program code that published in Computer Jagat, February, 2007 in Bangladesh. For others people help I am publishing this in taking IT Global
]]> Mon, 01 Oct 2007 03:47:00 EDT http://redu0007.tigblog.org/post/261801 http://redu0007.tigblog.org/post/259219 Project: Convert English Text to Voice
Developer: Md. Redwanur Rahman
Location: Dhaka, Bangladesh.
Date: 25 September, 2007

I am here to share knowledge with other. I am writing about voice interface project.

Aim of this project
Sometimes to read may bore. Wish someone may read it and I may enjoy to listen. Important news or weather report from web will convert to voice using these codes.These codes also convert your text in .wav format that will play by Media player

Needed component
Sapi.dll file (if not in computer download form Microsoft)

Program Details
Option Explicit
Dim Voice As SpVoice
Private Sub Form_Load()
Set Voice = New SpVoice
End Sub
Private Sub ExitBtn_Click()
Unload Form1
End Sub
Private Sub SpeakItBtn_Click()
On Error GoTo Speak_Error
If SaveToWavCheckBox Then
SaveToWav
Else
If Not TextField.Text = "" Then
Voice.Speak TextField.Text, SVSFlagsAsync
End If
End If
TextField.SetFocus
Exit Sub

Speak_Error:
MsgBox "Speak Error!", vbOKOnly
End Sub

Private Sub SaveToWav()
Dim cpFileStream As New SpFileStream
cpFileStream.Format.Type = SAFT22kHz16BitMono
ComDlg.CancelError = True
On Error GoTo Cancel
ComDlg.Flags = cdlOFNOverwritePrompt + cdlOFNPathMustExist + cdlOFNNoReadOnlyReturn
ComDlg.DialogTitle = "Save to a Wave File"
ComDlg.Filter = "All Files (*.*)|*.*|Wave Files " "(*.wav)|*.wav"
ComDlg.FilterIndex = 2
ComDlg.ShowSave
cpFileStream.Open ComDlg.FileName, SSFMCreateForWrite, False
Set Voice.AudioOutputStream = cpFileStream
Voice.Speak TextField.Text, SVSFDefault
cpFileStream.Close
Set cpFileStream = Nothing
Set Voice.AudioOutputStream = Nothing
Cancel:
Exit Sub
End Sub

Conclusion
I developed these codes to listen my thesis that helped to revise again and again. Really I enjoy it during my thesis time. For others help I am publishing this in taking IT Global
]]> Tue, 25 Sep 2007 05:17:00 EDT http://redu0007.tigblog.org/post/259219 http://redu0007.tigblog.org/post/259145 Project: Robot’s speaking program
Developer: Md. Redwanur Rahman
Location: Dhaka, Bangladesh
Date: 25 September, 2007

I am here to share knowledge with other. I am writing about voice interface codes.

Aim of this project

Write in text box whatever wants to learn pronunciation of English words. Robot can speaks to human using these codes.

Needed component

Sapi.dll file (if not download from Microsoft)

Program codes

'Need a sapi.dll library file
Public Speech As SpVoice
Private Sub Command1_Click()
Set Speech = New SpVoice
If Text1 = "" Then
MsgBox ("Dear put something in text box to speak"): Exit Sub
End If
Speech.Speak Text1.Text
End Sub

Private Sub Command2_Click()
Text1 = ""
End Sub

Private Sub Form_Unload(Cancel As Integer)
Unload Me
End Sub

Conclusion
These codes are generally used to speak English words with help of SAPI. I used it to speak my robot “Bangla Manob” that achieved National International Award.
]]> Tue, 25 Sep 2007 04:03:00 EDT http://redu0007.tigblog.org/post/259145 http://redu0007.tigblog.org/post/256967 Project: Robot Arms Controller Stepper Motor.
Developer: Md. Redwanur Rahman
Location: Dhaka, Bangladesh.
Date: 24 September, 2007

I am here to share knowledge with other

Aim of this project

Using Computer you can control a stepper motor. This concept can be used for robot walking or arms movement, door opening, Machineries control etc.

Needed components

Uni-polar Stepper Motor, 1K Resistor, Transistor (TIP110), Diode (1N4001), D25 connector with wire (printer port connector), +12v Power supply.

Circuit details

Connect D25 connector pin 2 to the circuit Pin 2 and D25 connector pin 3 to the circuit Pin 3 so on. Circuit Ground, must connect to D25 connector pin 18 ~25. Transistor is used to switch Stepper motor coils. Use Uni- polar stepper motor that has 5 wires. One wire is common source and other connected to ground. Transistor is using to select which coil should be grounded. Diodes are use for guide corresponding transistor. Need to fiddle with coil’s wire to get the exact order. Incorrect order will cause the motor to either step irregularly, or not at all. Depend on Motor and transistor supply voltage may change. (see Uni-polar Stepper Motor circuit)

Program Details

Public Port, X, Y As Integer
Private Declare Function Inp Lib "inpout32.dll" Alias "Inp32" (ByVal PortAddress As Integer) As Integer
Private Declare Sub Out Lib "inpout32.dll" Alias "Out32" (ByVal PortAddress As Integer, ByVal Value As Integer)

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

Private Sub Command2_Click()
Timer1.Enabled = False
Timer2.Enabled = True
End Sub

Private Sub Command3_Click()
Timer1.Enabled = False
Timer2.Enabled = False
End Sub

Private Sub Command4_Click()
Out Port, 0
End
End Sub
Private Sub Form_Load()
Port = H378 ' LPT1 Port Address
Out Port, 0
X = 0
Y = 0
Text1.Text = Y
End Sub

Private Sub Timer1_Timer()
If Y = 360 Then
Y = 0
End If
Out Port, X + 1 'Send signal to Pin 2 (D25 Connector)
Out Port, X + 2 'Send signal to Pin 3 (D25 Connector)
Out Port, X + 4 'Send signal to Pin 4 (D25 Connector)
Out Port, X + 8 'Send signal to Pin 5 (D25 Connector)
Y = Y + 1
Text1.Text = Y
End Sub

Private Sub Timer2_Timer()
If Y = 0 Then
Y = Y
Y = 360
End If
Out Port, X + 8 'Send signal to Pin 5 (D25 Connector)
Out Port, X + 4 'Send signal to Pin 4 (D25 Connector)
Out Port, X + 2 'Send signal to Pin 3 (D25 Connector)
Out Port, X + 1 'Send signal to Pin 2 (D25 Connector)
Y = Y - 1
Text1.Text = Y
End Sub

Operation
In controller window has some buttons like “Left Move”, “Right Move”, “Stop” and “End”. Press buttons to control the uni-polar stepper motor.

Conclusion
I developed this circuit and program code that published by Computer Jagat in Bangladesh, 2006. For others people help I am publishing this in taking IT Global
]]> Mon, 24 Sep 2007 02:50:00 EDT http://redu0007.tigblog.org/post/256967 http://redu0007.tigblog.org/post/251111 Project: Shutdown PC using a phone
Developer: Md. Redwanur Rahman
Location: Dhaka, Bangladesh.
Date: 19 September, 2007

Just share programming knowledge to the world

Aim of this project:
Shutdown PC using a phone

Needed components:
Modem, a telephone set

Program code

Option Explicit
Private Type POINTAPI
X As Long
Y As Long
End Type

Private Const WM_COMMAND = H111
Private Const WM_USER = H400
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

'These 4 APIs jointly can used to find Class Name of your required Application
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Declare Function WindowFromPoint Lib "user32" (ByVal xPoint As Long, ByVal yPoint As Long) As Long
Private Declare Function GetParent Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long

Private Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As Long

Private Declare Function SetActiveWindow Lib "user32" (ByVal hwnd As Long) As Long
Private Const SW_RESTORE = 9
Private Const SW_NORMAL = 1
Private Const SW_SHOW = 5
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long

'keybd_event API call constants
Private Const VK_SHIFT = H10
Private Const VK_LSHIFT = HA0
Private Const VK_RSHIFT = HA1
Private Const VK_RCONTROL = HA3
Private Const VK_CONTROL = H11
Private Const KEYEVENTF_EXTENDEDKEY = H1
Private Const KEYEVENTF_KEYUP = H2
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 Declare Function GetMenu Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function GetMenuItemID Lib "user32" (ByVal hMenu As Long, ByVal nPos As Long) As Long
Private Declare Function GetSubMenu Lib "user32" (ByVal hMenu As Long, ByVal nPos As Long) As Long

'user defined type required by Shell_NotifyIcon API call
Private Type NOTIFYICONDATA
cbSize As Long
hwnd As Long
uId As Long
uFlags As Long
uCallBackMessage As Long
hIcon As Long
szTip As String * 64
End Type

'constants required by Shell_NotifyIcon API call:
Private Const NIM_ADD = H0
Private Const NIM_MODIFY = H1
Private Const NIM_DELETE = H2
Private Const NIF_MESSAGE = H1
Private Const NIF_ICON = H2
Private Const NIF_TIP = H4
Private Const WM_MOUSEMOVE = H200
Private Const WM_LBUTTONDOWN = H201 'Button down
Private Const WM_LBUTTONUP = H202 'Button up
Private Const WM_LBUTTONDBLCLK = H203 'Double-click
Private Const WM_RBUTTONDOWN = H204 'Button down
Private Const WM_RBUTTONUP = H205 'Button up
Private Const WM_RBUTTONDBLCLK = H206 'Double-click
Private Declare Function Shell_NotifyIcon Lib "shell32" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, pnid As NOTIFYICONDATA) As Boolean

Private nid As NOTIFYICONDATA
Dim tm As Long

Private Sub Combo1_Click()
On Error GoTo ER:
If MSComm1.PortOpen = True Then MSComm1.PortOpen = False
MSComm1.CommPort = Combo1.ListIndex + 1
MSComm1.PortOpen = True
Exit Sub
ER:
MsgBox Err.Description
End Sub

Private Sub Form_Load()
Dim portNum As Integer
portNum = CInt(GetSetting("CallMon", "General", "Port", 1))
Dim txt
txt = GetSetting("CallMon", "AppClasses", "Class" 100)
With MSComm1
.Handshaking = 2 - comRTS
.RThreshold = 1
.RTSEnable = True
.Settings = "9600,n,8,1"
.SThreshold = 1
End With
With Combo1
.AddItem "COM 1"
.AddItem "COM 2"
.AddItem "COM 3"
.AddItem "COM 4"
.AddItem "COM 5"
.AddItem "COM 6"
.AddItem "COM 7"
.AddItem "COM 8"
.ListIndex = portNum - 1
End With

'Used for minimising application to System Tray as an Icon
With nid
.cbSize = Len(nid)
.hwnd = Me.hwnd
.uId = vbNull
.uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE
.uCallBackMessage = WM_MOUSEMOVE
.hIcon = Me.Icon
.szTip = "Call Monitor" vbNullChar
End With
Shell_NotifyIcon NIM_ADD, nid
End Sub

Private Sub Form_Resize()
If Me.WindowState = vbMinimized Then Me.Hide
End Sub

Private Sub Form_Unload(Cancel As Integer)
Shell_NotifyIcon NIM_DELETE, nid
SaveSetting "CallMon", "General", "Port", CStr(Combo1.ListIndex + 1)
End Sub

Private Sub mnuExit_Click()
Unload Me
End Sub

Private Sub MSComm1_OnComm()
Dim rcv As String
If MSComm1.CommEvent = comEvReceive Then
rcv = MSComm1.Input
If rcv = vbCrLf + "RING" + vbCrLf Then
If Timer1.Enabled = False Then
Call Turnoff
Timer1.Enabled = True
End If
tm = 0
End If
End If
End Sub

Private Sub Timer1_Timer()
tm = tm + 1
If tm > 10 Then
Me.Icon = Image1.Picture
nid.hIcon = Me.Icon
Shell_NotifyIcon NIM_MODIFY, nid
End If
End Sub

Private Sub Turnoff()
List1.AddItem "CALL @” Time
Label3.Caption = Date Time
Label3.Caption = "Your Computer is shutting down"
Shell "shutdown -s -f -t 0" ‘windows xp
'Shell "c:windowsrundll.exe user.exe,exitwindows" ‘windows 98
End Sub

Download this Project: www.geocities.com/redu0007

Operation:
Install modem in your computer than connect your telephone wire to modem. Develop the following program in visual basic or download the program and run it in your PC then call from another telephone to your connected modem phone. Computer will be shutdown. Check code, there is a difference between windows XP, Windows 98 codes for shutdown

Conclusion:
I developed this program that published by Computer JAGAT in Bangladesh, September 2007. For others people help I am publishing this in taking IT Global
]]> Wed, 19 Sep 2007 01:58:00 EDT http://redu0007.tigblog.org/post/251111 http://redu0007.tigblog.org/post/251101 Project: Voice Control windows programming code
Developer: Md. Redwanur Rahman
Location: Dhaka, Bangladesh.
Date: 19 September, 2007

To develop computer programming knowledge follow the below voice control windows code.

Aim of this project:
You can control windows using this program

Needed components:
Microphone, SAPI 4 or SAPI 5.1 (Sound application programming Interface)
Use below Components control from SAPI
1. Microsoft Direct speech recognition
2. Microsoft Direct text-to-Speech
For active this two components go to visual Basic Project menu then components then control tab.


Program Details:

Dim Temp As Variant
Private Const KEYEVENTF_EXTENDEDKEY = H1
Private Const KEYEVENTF_KEYUP = H2

Private Const VK_Backspace = H8
Private Const VK_Tab = H9
Private Const VK_Shift = H10
Private Const VK_Control = H11
Private Const VK_Alter = H12
Private Const VK_Pause = H13
Private Const VK_CapsLock = H14
Private Const VK_Return = HD
Private Const VK_Lshift = HA0
Private Const VK_Rshift = HA1
Private Const VK_Rcontrol = HA
Private Const VK_Escape = H1B
Private Const VK_Space = H20
Private Const VK_End = H23
Private Const VK_Home = H24
Private Const VK_Left = H25
Private Const VK_Up = H26
Private Const VK_Right = H27
Private Const VK_Down = H28
Private Const VK_Insert = H2D
Private Const VK_Delete = H2E
Private Const VK_F1 = H70
Private Const VK_F2 = H71
Private Const VK_F3 = H72
Private Const VK_F4 = H73
Private Const VK_F5 = H74
Private Const VK_F6 = H75
Private Const VK_F7 = H76
Private Const VK_F8 = H77
Private Const VK_F9 = H78
Private Const VK_F10 = H79
Private Const VK_F11 = H7A
Private Const VK_F12 = H7B
Private Const VK_NumLock = H90
Private Const VK_ScrollLock = H91

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()
Dim FileN As String
FileN = App.Path "commands.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 ("CLOSE")
Call Close_window
Case ("START")
Call Start
Case ("GO")
Call Start
Case ("UP")
keybd_event VK_Up, 0, 0, 0
keybd_event VK_Up, 0, KEYEVENTF_KEYUP, 0
Case ("DOWN")
keybd_event VK_Down, 0, 0, 0
keybd_event VK_Down, 0, KEYEVENTF_KEYUP, 0
Case ("LEFT")
keybd_event VK_Left, 0, 0, 0
keybd_event VK_Left, 0, KEYEVENTF_KEYUP, 0
Case ("RIGHT")
keybd_event VK_Right, 0, 0, 0
keybd_event VK_Right, 0, KEYEVENTF_KEYUP, 0
Case ("OPEN")
keybd_event VK_Return, 0, 0, 0
keybd_event VK_Return, 0, KEYEVENTF_KEYUP, 0
Case ("OK")
keybd_event VK_Return, 0, 0, 0
keybd_event VK_Return, 0, KEYEVENTF_KEYUP, 0
Case ("EXIT")
End
End Select
End Function

Public Sub Start()
keybd_event VK_Control, 0, 0, 0
keybd_event VK_Escape, 0, 0, 0
keybd_event VK_Down, 0, 0, 0
keybd_event VK_Control, 0, KEYEVENTF_KEYUP, 0
keybd_event VK_Escape, 0, KEYEVENTF_KEYUP, 0
keybd_event VK_Down, 0, KEYEVENTF_KEYUP, 0
End Sub
Public Sub Close_window()
keybd_event VK_Alter, 0, 0, 0
keybd_event VK_F4, 0, 0, 0
keybd_event VK_Alter, 0, KEYEVENTF_KEYUP, 0
keybd_event VK_F4, 0, KEYEVENTF_KEYUP, 0
End Sub

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

“Command.txt” file

[Grammer]
Type=Cfg
[S]
S=Start
S=Go
S=Up
S=Down
S=Left
S=Right
S=Open
S=Ok
S=Close
S=Exit

Past this “command.txt” file in this program main directory.

Download this Project: www.geocities.com/redu0007

Operation:
Say “Start” then start menu will open, then say “Up” or “Down” it will select a program or say “Left” or “Right”, select your desire program then say “Ok” or “Open”. Enjoy this program.

Conclusion:
I developed this program that published by Computer JAGAT in Bangladesh, May, 2006. For others people help I am publishing this in taking IT Global


]]> Wed, 19 Sep 2007 00:02:00 EDT http://redu0007.tigblog.org/post/251101 http://redu0007.tigblog.org/post/250017 Project: Voice Controlled Electrical Devices Details
Developer: Md. Redwanur Rahman
Location: Dhaka, Bangladesh.
Date: 15 September, 2007

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 switch on/off a room’s light

Needed components:
6V relay, Diode two pieces (1N914), Transistor (BC547A), Adaptor 6 12 V, 12V light, Printer port cable (D25 Connector).

Circuit details:
Carefully see the circuit of this project. 6V relay is used to controlled 12v light and this relay is controlled by Transistor (BC547A) that’s base (B) is connected to printer port pin 2 and emitter (E) is grounded that also connect to printer port pin 18~25. Diode 2 is used for proper working of relay. When computer gives signal to pin 2 then relay switch and it switch the 12v light. Run the below program in visual basic and say “ Device On” then light will be on or say “ Device off” light will be off. Project is very sample and builds circuit carefully. Also needed an inpout32.dll file that must past in windows system directory like c:windowssystem and download this file from www.geocities.com/redu0007

Program Details:
It has two parts 1. Program Codes 2. Command.txt file

1. Codes
‘Past this code in main form
Public Port As Integer
Private Declare Function Inp Lib "inpout32.dll" Alias "Inp32" (ByVal PortAddress As Integer) As Integer
Private Declare Sub Out Lib "inpout32.dll" Alias "Out32" (ByVal PortAddress As Integer, ByVal Value As Integer)

Private Sub Form_Load()
Dim FileN As String
FileN = App.Path "commands.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)
Port = H378
Select Case (UCase(Msg))
Case ("EXIT")
Out Port, 0
End
Case ("DEVICE ON")
Out Port, 1
Case ("DEVICE OFF")
Out Port, 0
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

2. Command.txt file

Put inside the below code in command.txt file and this file must be in this program directory.
[Grammer]
Type=Cfg
[S]
S=Device On
S=Device Off
S=Exit

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

Conclusion:
I developed this circuit and software that published in Cnews in Bangladesh. I am regular writer of Cnews, Computer Gajat and Computer tomorrow that’s monthly computer journal of Bangladesh. For others people help I am publishing this in taking IT Global.
]]> Sun, 16 Sep 2007 02:36:00 EDT http://redu0007.tigblog.org/post/250017 http://redu0007.tigblog.org/post/249671
The day 27th march 2004, in Hotel Sheraton where we awarded for developing Robot Bangla Manob. The NSU 5th Soft fair, 2004 was for 3 days. The 1st day in Fair our Robot was burned due to electricity problem. So before the 2nd day I worked for new robot whole night. In morning it was completed. The 2nd day in fair our computer local area network was not working and this day was our judgment day. So we try harder to solve this problem. We solved it timely and our judges’ ware pleased for our work. But at that time we didn’t know that we are going to achieve an award. The 2nd day was passed. In 3rd day many people ware gathering in front of our stall, just they want to talk with our robot “Bangla Manob”. I always remember that day. After that Bangla Manob went to Pakistan and got 2nd international Prize.

]]> Fri, 14 Sep 2007 23:15:00 EDT http://redu0007.tigblog.org/post/249671 http://redu0007.tigblog.org/post/247659 Sun, 09 Sep 2007 07:15:00 EDT http://redu0007.tigblog.org/post/247659 http://redu0007.tigblog.org/post/247639 Sun, 09 Sep 2007 06:23:00 EDT http://redu0007.tigblog.org/post/247639