|
|
| |
|
code:
Can't Copy and Paste this?
Click here for a copy-and-paste friendly version of this code!
Terms of Agreement:
By using this code, you agree to the following terms...
1) You may use
this code in your own programs (and may compile it into a program and distribute it in compiled format for languages that allow it) freely and with no charge.
2) You MAY NOT redistribute this code (for example to a web site) without written permission from the original author. Failure to do so is a violation of copyright laws.
3) You may link to this code from another website, but ONLY if it is not wrapped in a frame.
4) You will abide by any additional copyright restrictions which the author may have placed in the code or code's description. |
'**************************************
' Name: Make Characters Talk! MS Agent
' Description:It will make a character o
' f your choice(many to download) talk.
' By: Mike Miller
'
' Inputs:The MS Agent Character
'
' Returns:Voice
'
' Assumes:Make Sure you have MS Agent in
' stalled and TruVoice, you can get these
' from Microsoft's Website at http://msdn.
' microsoft.com/workshop/imedia/agent/defa
' ult.asp. This will allow you to make the
' characters talk. After you got the files
' , just insert the ms agent active x cont
' rol and you are on your way. All you got
' to do then is insert the code and downlo
' ad whatever characters you want to use,
' for example a cool parrot, a butler, sur
' fmonkey and much more!
'
'This code is copyrighted and has' limited warranties.Please see http://w
' ww.Planet-Source-Code.com/vb/scripts/Sho
' wCode.asp?txtCodeId=2750&lngWId;=1'for details.'**************************************
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
| |
Other 3 submission(s) by this author
|
|
| |
| Report Bad Submission |
|
| |
| Your Vote! |
|
See Voting Log |
| |
| Other User Comments |
8/2/1999 7:06:00 AM:Hunter
lol, this code requires some control
named Genie i would assume? Nice, but
mind telling us all where we can get
it? =)
|
8/2/1999 10:13:00 AM:Rick
Look for Microsoft Agent on the MS
WebSite. Otherwise if you own VB, check
on the CD, look for msagent, all of it
is in there.
|
8/2/1999 2:22:00 PM:Joseph Hobbs
Does this make the character actually
TALK, or just return that speech bubble?
|
8/2/1999 9:39:00 PM:Mike Miller
Sorry all, I was so busy with my tile
engine submission that I forgot to look
here, Genie is a ms-agent character at
the MS-Agent Website that you can
download. And yes the character really
does talk, and does a speach bubble. A
reason that you could just be getting
the speach bubble is because you didn't
download the truvoice engine(or
whatever its called) at the
site.
http://msdn.microsoft.com/worksho
p/imedia/agent/default.asp
Is the site.
|
8/2/1999 9:59:00 PM:Victor
This Works Great!!
But I have
downloaded
other Languages but I
don't know
what are the LanguagesID.
Help me!
|
8/3/1999 7:40:00 AM:lewis
Could you please let me know what the
other language ID's are. This code is
great. Thanks for posting it.
|
8/4/1999 10:57:00 AM:Forrest
Here are the other language id's from
the agent
documentation:
Arabic &H0401
Basque
&H042D
Chinese (Simplified) &H0804
Chinese (Traditional) &H0404
Croatian &H041A
Czech &H0405
Danis
h &H0406
Dutch &H0413
English
(British) &H0809
English (US) &H0409
Finnish &H040B
French &H040C
Germa
n &H0407
Greek &H0408
Hebrew &H040D
Hungarian &H040E
Ital
ian &H0410
Japanese &H0411
Korean &H04
12
Norwegian &H0414
Polish &H0415
Por
tuguese &H0816
Portuguese
(Brazilian) &H0416
Romanian &H0418
Rus
sian &H0419
Slovakian &H041B
Slovenian
&H0424
Spanish &H0C0A
Swedish &H041D
Thai &H041E;
Turkish &H041F;
|
8/4/1999 9:10:00 PM:rafael
can i request for a client/server
program
which is compatible to Linux
not Visual Basic?
i found the
client/server program and i download
it
but i want not in visual
basic....it is only for windows,
right?
thanks!!!!!111
|
8/9/1999 3:58:00 PM:Mike Miller
Visual Basic is made for windows, but
WINE will run VB, and there is a
program that will also just run
Compiled Visual Basic programs.
Linux
will emulate windows faster than
windows will run it self. So just to
let everyone know right now, I am on
linux.
|
8/21/1999 11:07:00 AM:James
Help Please email me the source code
for making agent speak i dont get it
please tell me how it
works!!!!!!!!
and how i make it work i
am very basic at the moment !!!
|
8/23/1999 10:53:00 AM:Farhan
Hi there...
I would like know where
to get the
agent from or in which
webpage is it
thanking you.
|
9/13/1999 12:56:00 PM:cihat
jjdfd
|
9/30/1999 7:26:00 AM:hassan malla
This technology is great!!!!!!!!!!!!
I
was written this code but the
line
objChar.LanguageID = &h409 was
release
an error (object doesn't
support this
property) but I was
install Text_To_speech
and I was
choosen the arabic language
but
doesn't run.
please help me!!
I want
merlin can speek arabic.
|
11/25/1999 1:49:00 PM:Tyrnt
i recently downloaded your code and
went to the MSDN site about ms agent
and stuff tryin to get the MSAGENT dude
to talk in japanese... but with
japanese he doesnt say anything he only
shows a text bubble.. can you tell me
why this is?
Thanx
--Tyrnt
http://www.alladvant
age.com/go.asp?refid=ALZ661
http://www.
blizzardnexus.com/
|
12/6/1999 1:28:00 PM:Microsoft Agent Web Ring
http://www.msagentring.org
|
9/8/2000 5:55:22 PM:scitch
dude.. this code was copied right from
the vb sample Hello.vbp.. could have
changed it around a bit..
|
9/8/2000 5:57:42 PM:scitch
humm.. yes this code is nice but its
not yours.. you copied it right from
the vb6 whatever your directory is...
\VB\COMMON\TOOLS\VB\MSAGENT\SAMPLES\VBHE
LLO\Hello.vbp file.. dont you feel bad
about stealing code and calling it
yours?
|
|
| Add Your Feedback! |
Note:Not only will your feedback be posted, but an email will be sent to the code's author in your name.
NOTICE: The author of this code has been kind enough to share it with you. If you have a criticism, please state it politely or it will be deleted.
For feedback not related to this particular code, please click here.
|
|
