Computer will talk to you.

Main Title: Talking Software
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.