• Home
 · 
• Coding Standards
 · 
• Microsoft Agent How To Basics

Microsoft Agent How To Basics

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.

Rate Microsoft Agent How To Basics

• 1
• 2
• 3
• 4
• 5

(3(3 Vote))

'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