Part 1 - Adding Agent Commands To get the Agent to respond to userinput you will need to add commands Commands are a word or series of words the Agent waits for Once one of the commands is spoken the agent will call the Commands () Event.. And Return the name of the command That Was Spoke. Name Your Agent Control Msagent. Add this to the form_load () Event: msagent.characters.load "defaultcharacter"
Set agentchar = msagent.characters ("defaultcharacter") agentchar.commands.add "notepad", "NOTEPAD", "NOTEPAD", TRUE, TRUE
Private sub msagent_command (Byval UserInput As Object)
Msgbox userinput.name
End Sub
There, now try running it. Press SCROLLLOCK and then say your agents name to get him to appear. Once the agent has appeared press SCROLLLOCK again to get the agent to listen and then say the word "Notepad". A msgbox should appear with the word notepad in it, since that is the name we gave our command. The first parameter listed above is the name that is what the Command () Event will return to you when your command is spoken. The next is the Caption parameter, which will determine how this command is displayed in the Agent Voice Commands Window. The third is the Voice property. The voice property is what the user must say to evoke this command. The voice property does not have to be the same as the Name or the Caption NOW Take a look at this line of code: agentchar.commands.add "notepad", "notepad", "[...] notepad [...], true, true
Notice the ellipses in brackets? These have a special meaning to the Text to speech engine. These basically mean to ignore any speech before and after the word notepad. So you could say something like this "Open notepad please" and it will still return the . "Notepad" command Be careful when using the ellipses though, since they slow down processing considerably.Part 2 - It's all guesswork When a command is spoken the Agent takes its best guess and then returns you a command The command may not always!. be correct, since the Agent is really just making a guess Imagine this scenario:.. you have the agent setup to delete a database entry when the user speaks a specific command Now you would want to ensure that MSAgent is fairly confident in the command before . you wipe out valuable data Thankfully MSAgent has a property designed to let you know just how certain the agent is about a command The UserInput object has a confidence property designed just for this purpose;. the confidence prop Erty. Confidence Properties in msagent can range from -100 to 100. TRY THIS: Private Sub Msagent_Command (Byval UserInput As Object)
IF userinput.confidence> -50 Then
Msgbox userinput.name
Else
Msgbox "I Have" & UserInput.confide & "Confidence In That Command"
END IF
End Sub
Sometimes you want to have different confidence levels for different commands. There is a property for this as well. Each command object can have a confidence level specified and a confidence text specified. If the agents confidence level does not meet or exceed the confidence level you set then the confidence text will be displayed in the agents ToolTip Try adding this to the Form_Load:... AgentChar.Commands ( "notepad") confidence = "50" AgentChar.Commands ( "notepad") ConfidenceText = "Was that notepad you WANTED? "
Notice that when the agents confidence level is below 50 it will display the ConfidenceText in the tooltip. But you should also notice that the agent will still proceed with the command and show the msgbox. To avoid that you would need to add code to check the Userinput confidence setting and the command confidence setting to see letter confidence setting to see letter. Something Like this: if UserInput.confidence> agentchar.commands (userinput.name) .confiderence .confidence Then
Msgbox userinput.name
END IF
