by Dino Roger (4 Submissions)
Category: Coding Standards
Compatability: Visual Basic 5.0
Difficulty: Beginner
Date Added: Wed 3rd February 2021
Rating: 
(3 Votes)
This code is designed to show you some ofthe basic functions you can perform with Microsoft Agent. Microsoft Agent is that small animal/icon/character that sometimes appears on programs like the Microsoft Office paper clip.
VBcoders'INSTRUCTIONS
'* Add the component "Microsoft Agent Control"
'* Add the comonent "Microsoft Agent Control" to the form
'* Add a text box alled TEXT1
'* Add a button called CMD_HIDE
'* Add a button called CMD_SHOW
'* Add a button called CMD_SPEAK
'* Add a button called CMD_ANIMATION
'* Add a button called CMD_STOP
'* Add a button called CMD_FREEZE
'* Add a button called CMD_SHOWHIDE
'* Add a button called CMD_SPEAKQUESTION
'* Add a list box called LST_ANIMATIONS
'
' You may need to install the merlin agent character if not already installed
'URL to download the character = http://www.msagentring.org/download.asp?char=merlin
'NO DECLARATIONS
'START - CODE
Private Sub cmd_freeze_Click()
Set merlin = Agent1.Characters("merlin") 'Needed on every object that calls Merlin
merlin.Stop 'Will pause the current animation
End Sub
Private Sub cmd_speak_Click()
Set merlin = Agent1.Characters("merlin") 'Needed on every object that calls Merlin
If Not Text1.Text = "" Then merlin.Speak Text1.Text 'Will speak whatever text that is entered in the text box if text is not blank
End Sub
Private Sub cmd_Hide_Click()
Set merlin = Agent1.Characters("merlin") 'Needed on every object that calls Merlin
merlin.Hide 'Hides Merlin
End Sub
Private Sub cmd_Show_Click()
Set merlin = Agent1.Characters("merlin") 'Needed on every object that calls Merlin
merlin.Show 'Shows Merlin in the screen
End Sub
Private Sub cmd_animation_Click()
Set merlin = Agent1.Characters("merlin") 'Needed on every object that calls Merlin
merlin.Play lst_animations.Text 'Will play animation that is selected in the animations list box
End Sub
Private Sub cmd_Stop_Click()
Set merlin = Agent1.Characters("merlin") 'Needed on every object that calls Merlin
merlin.Stop 'Will stop the animation - needed for some animations that have built in loop
merlin.Play "RestPose" 'Will reset Merlin's pose
End Sub
Private Sub Cmd_speakquestion_Click()
Set merlin = Agent1.Characters("merlin") 'Needed on every object that calls Merlin
If Not Text1.Text = "" Then merlin.Think Text1.Text 'Will speak whatever text that is entered in the text box if text is not blank. Will display in thought bubble.
End Sub
Private Sub Cmd_showhide_Click()
Set merlin = Agent1.Characters("merlin") 'Needed on every object that calls Merlin
merlin.ShowPopupMenu 100, 100 'This will display a clickable HIDE button next to Merlin
End Sub
Private Sub Form_Load()
'You can specify other Microsoft Agents by pointing to a specific agent file.
'The agent file will have an ACS extension. Remove the quote from the following line and edit.
'Agent1.Characters.Load "Merlin", "C:\MYAGENT\Merlin.acs"
Agent1.Characters.Load "merlin", Path 'Needed to access Merlin commands - If you specify your own agent file, delete this line.
Set merlin = Agent1.Characters("merlin") 'Needed on every object that calls Merlin
merlin.LanguageID = &H409 'Sets 'Merlin language
merlin.Show 'Shows Merlin on the screen
'START - Fill list box with animations
'Listed this way to show all the animations.
lst_animations.AddItem "Acknowledge"
lst_animations.AddItem "Alert"
lst_animations.AddItem "Announce"
lst_animations.AddItem "Blink"
lst_animations.AddItem "Confused"
lst_animations.AddItem "Congratulate"
lst_animations.AddItem "Congratulate_2"
lst_animations.AddItem "Decline"
lst_animations.AddItem "DoMagic1"
lst_animations.AddItem "DoMagic2"
lst_animations.AddItem "DontRecognize"
lst_animations.AddItem "Explain"
lst_animations.AddItem "GestureDown"
lst_animations.AddItem "GestureLeft"
lst_animations.AddItem "GestureRight"
lst_animations.AddItem "GestureUp"
lst_animations.AddItem "GetAttention"
lst_animations.AddItem "GetAttentionContinued"
lst_animations.AddItem "GetAttentionReturn"
lst_animations.AddItem "Greet"
lst_animations.AddItem "Hearing_1"
lst_animations.AddItem "Hearing_2"
lst_animations.AddItem "Hearing_3"
lst_animations.AddItem "Hearing_4"
lst_animations.AddItem "Hide"
lst_animations.AddItem "Idle1_1"
lst_animations.AddItem "Idle1_2"
lst_animations.AddItem "Idle1_3"
lst_animations.AddItem "Idle1_4"
lst_animations.AddItem "Idle2_1"
lst_animations.AddItem "Idle2_2"
lst_animations.AddItem "Idle3_1"
lst_animations.AddItem "Idle3_2"
lst_animations.AddItem "LookDown"
lst_animations.AddItem "LookDownBlink"
lst_animations.AddItem "LookDownReturn"
lst_animations.AddItem "LookLeft"
lst_animations.AddItem "LookLeftBlink"
lst_animations.AddItem "LookLeft"
lst_animations.AddItem "LookLeftBlink"
lst_animations.AddItem "LookLeftReturn"
lst_animations.AddItem "LookRight"
lst_animations.AddItem "LookRightBlink"
lst_animations.AddItem "LookRightReturn"
lst_animations.AddItem "LookUp"
lst_animations.AddItem "LookUpBlink"
lst_animations.AddItem "LookUpReturn"
lst_animations.AddItem "MoveDown"
lst_animations.AddItem "MoveLeft"
lst_animations.AddItem "MoveRight"
lst_animations.AddItem "MoveUp"
lst_animations.AddItem "Pleased"
lst_animations.AddItem "Process"
lst_animations.AddItem "Processing"
lst_animations.AddItem "Read"
lst_animations.AddItem "ReadContinued"
lst_animations.AddItem "Reading"
lst_animations.AddItem "ReadReturn"
lst_animations.AddItem "RestPose"
lst_animations.AddItem "Sad"
lst_animations.AddItem "Search"
lst_animations.AddItem "Searching"
lst_animations.AddItem "Show"
lst_animations.AddItem "StartListening"
lst_animations.AddItem "StopListening"
lst_animations.AddItem "Suggest"
lst_animations.AddItem "Surprised"
lst_animations.AddItem "Think"
lst_animations.AddItem "Thinking"
lst_animations.AddItem "Uncertain"
lst_animations.AddItem "Wave"
lst_animations.AddItem "Write"
lst_animations.AddItem "WriteContinued"
lst_animations.AddItem "WriteReturn"
lst_animations.AddItem "Writing"
'END - Fill list box with animations
'START - Merlin introduction
merlin.Play "Announce"
merlin.Play "RestPose"
merlin.Play "Explain"
merlin.Speak "Welcome to the Microsoft Agent how to VB6 snippet. Brought to you by http://allvb.net"
merlin.Play "DoMagic1"
merlin.Play "DoMagic2"
merlin.Play "RestPose"
merlin.Play "Explain"
merlin.Speak "You can use my code to learn how to use Microsoft Agent in your own programs."
merlin.Play "Wave"
merlin.Play "RestPose"
'END - Merlin introduction
End Sub
'END - CODE
