Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations bkrike on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

How to introduce some speech/sound 1

Status
Not open for further replies.

isha

MIS
Mar 7, 2002
216
IN
I am developing a simple complaints lodgement system. At the click of Save button a complaint no. is generated and displayed in a text box on the form. I want an arrangement through which side by side displaying on the text box it is also communicated through the voice on the system speakers and it should sound "Your complaint no. is ----. Thank you"

Can someone provide me some hint?
Thanks.
 
isha,

hello

you can download the MS Agent.
download Text-to-speech engines and setup it up,
then down load Microsoft Agent character files then set it up.Try the code below from microsoft...he he he.


general declaration

Dim Genie As IAgentCtlCharacterEx
Const DATAPATH = "genie.acs"

Private Sub Form_Load()
Agent1.Characters.Load "Genie", DATAPATH
Set Genie = Agent1.Characters("Genie")
Genie.LanguageID = &H409
TextBox.Text = "Hello World!"
End Sub

Private Sub Button_Click()
Genie.Show
Genie.Speak TextBox.Text
Genie.Hide
End Sub

change it to fit ur needs...

jayrojz
 
jayrojz

Your suggestion worked but i came across the following mentioned two problems.

1. When i made the package through Package and Deployment Wizard it gave an error as "dependency information for the following could not be found agentctl.dll" I clicked O.K. to proceed without dependency information.

2. When i set up the package at a client and try to run that particular form on which MS Agent is used it gives the error as "Runtime error 2147024893(80070003) The system cannot find the path specified"
I want to make one thing clear that I have not loaded the MS Agent, Genie and text to speech engine on the client.

Can someone help me resolve the problem.
Thanks.
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top