Date: 4/22/2000 6:53:44 PM
Microsoft Agent Version 2 Needed.
This starts a beginner level and shows how to load the control, use speech output tags, animations and bookmarks.
Part 1 - Loading the Microsoft Agent Control
Private WithEvents MSAgent As Agent Set MSAgent = New Agent
For the purposes of this text we will assume the name of the Agent Control is called "MSAgent".
Part 2 - Loading a Character
A Character file defines what your agent will look like, and all the character animations are stored there. Before you can begin programming for MS Agent you need to specify what character file to open.
‘Create a Character Object Private Merlin As IAgentCtlCharacterEx ‘Load the Default Character by not supplying ‘an ACS file MSAgent.Characters.Load "Merlin", _ “c:windowsmsagentcharsmerlin.acs” ‘Set the Merlin object to our new character. Set Merlin = MSAgent.Characters("Merlin")
Microsoft Agent 2.0 has the ability to allow the user to enter in a default character to use with programs. If you want to load the default character the code looks just about the same.
Instead of doing this:
MSAgent.Characters.Load "Merlin", “c:windowsmsagentcharsmerlin.acs”
We just need to leave out the path and the default will be used, like this:
To show your character on the screen do the following:
You can also hide your character by doing this:
Part 3 - Speech and Animations
Now that you have the character appearing on the screen you just need to get it to do something. Enter the following command after the Merlin.Show command:
Merlin.Speak "Hello World!"
As you can see it's easy to get the agent to say something, all you need to do is give it a string with the text to speak and it will talk. Now try this one:
Merlin.Speak "HELLO WORLD!"
You will notice that the Agent will not speak the words, but will sound out each letter. Remember this when you send text to the agents as you may want to convert it to lowercase before you call the Speak command.
The problem with the Speak command is that the agent does not use things like inflections or dramatic pauses; things we use in everyday speech, so typically when getting the agent to speak long sentences it will sound rather monotone. Lucky this is where speech output tags come in handy.
Speech output tags can be used to modify the way in which words are spoken. All tags start and end with a backslash, and modify the word following the output tag. Whitespace is important so be sure not to leave empty space after your output tag or else your tag will not work properly.
One good example of this is the Emphasis ("Emp") tag. This tag will force the agent to emphasize a word. First lets hear a phrase without the emphasis placed on any word:
Merlin.Speak "I will emphasize this word."
Now try it with the emphasis tag on the word "this".
Merlin.Speak "I will emphasize empthis word."
Some tags like the Character ("Chr") tag have a parameter you can pass. This parameter must be surrounded by quotes, but since this is a string and the whole text is already in quotes you have to use double-quotes so VB knows that the quotes are part of the string. So to use the "Whisper" parameter for the "Chr" tag we would do this:
Merlin.Speak "Chr=""Whisper""This is an example of whispering."
Another example of a tag that has parameters is the Context ("Ctx") tag. This tag can be used for EMail addresses and phone numbers. To see why you may want to use the tag try this:
Notice Merlin said "me at someplace com" instead of "me at someplace dot com". That is because the period is never normally spoken by the agent. To get the agent to speak the period for an email address you need to use the "Ctx" tag. Try this:
Part 5 - Bookmarks
A bookmark is really just another speech output tag, ("Mrk") except for one difference, and that is that there is a special event tied to this tag. The bookmark tag is used to mark specific points in the text supplied to the agents Speak command. Once one of these tags is hit it will fire the BookMark event of the Agent control and pass it the ID you entered in the "Mrk" tag.
To demonstrate how to use bookmarks here is a small application.
You will need to Create a foRM and place this code in it. You will also need to put a label on the form and call it "Label1".
Option Explicit Private WithEvents MSAgent As Agent Private Peedy As IAgentCtlCharacterEx Private Merlin As IAgentCtlCharacterEx Private Sub Form_Load() 'Create an Instance of the Agent Control Set MSAgent = New Agent 'Load the Merlin Character MSAgent.Characters.Load "Merlin", "c:windowsmsagentcharsMerlin.acs" Set Merlin = MSAgent.Characters("Merlin") 'Move the Character to the left Merlin.Left = 500 'Show Merlin without playing the animation Merlin.Show True 'Use bookmarks in the text to identify where merlin is Merlin.Speak "Mrk=1I am now reading line number one. " & _ "Mrk=2Now I am reading line two. " & _ "Mrk=3And finally, I am reading line three. Mrk=4 " End Sub Private Sub MSAgent_Bookmark(ByVal BookmarkID As Long) 'When Merlin hits the point in the text above where 'there is a bookmark tag this event is fired and the 'ID in the Mrk tag is passed into here as the 'BookMark ID Select Case BookmarkID Case 1 Form1.Label1.Caption = "Merlin is currently Reading Line 1" Case 2 Form1.Label1.Caption = "Merlin is currently Reading Line 2" Case 3 Form1.Label1.Caption = "Merlin is currently Reading Line 3" Case 4 Form1.Label1.Caption = "Merlin has finished Reading all lines" End Select End Sub
Part 6 - Animations
(Microsoft provides the complete animation list for all its characters on their website.)
Making the agent perform a specific animation is just one line of code. Try running this:
Notice the agent will read and then stop and go back to the default animation behavior. This is not true for all animations there are some that are called Looping Animations. These animations behave like their name suggests, they loop repeatedly. Try this:
You will have to stop the above program because the Agent will continuing looping forever. One way to stop this is by using the "Stop" command.
来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/10752043/viewspace-992344/，如需转载，请注明出处，否则将追究法律责任。