Microsoft Agent 2.0 - Объект Agent

Метод ShowDefaultCharacterProperties

Метод ShowDefaultCharacterProperties выводит панель настройки свойств для выбора персонажа по умолчанию

agent.ShowDefaultCharacterProperties [ X , Y]

X	Необязательный параметр. Значение типа Integer, задающее горизонтальную координату экрана для вывода окна в пикселах
Y	Необязательный параметр. Значение типа Integer, задающее вертикальную координату экрана для вывода окна в пикселах

Form1.Hide

' Выводим панель свойств

Agent1.ShowDefaultCharacterProperties 4, 4

Свойство Name

Свойство Name возвращает имя, используемое в коде как название используемого элемента управления. В период выполнения программы данное свойство доступно только для чтения

agent.Name

Dim mychar As IAgentCtlCharacterEx

' Загружаем персонаж

Agent1.Characters.Load "MyChar"



Set mychar = Agent1.Characters("MyChar")

mychar.Show

' Выводим имя элемента управления

MsgBox Agent1.Name

Событие Command

Событие Command возникает при выборе заданной команды

Sub agent_Command(ByVal UserInput)

UserInput

Определяет объект Command, возвращаемый сервером. Следующие свойства доступны через объект Command: CharacterID Строковое значение, идентифицирующее имя (ID) персонажа, получающего команду Name Строка, идентифицирующая имя (ID) команды Confidence Значение Long показывающее the confidence scoring команды Voice Строка, идентифицирующая фонетический текст для команды Alt1Name Строка, идентифицирующая имя следующей(второй) лучшей команды Alt1Confidence Значение Long, определяющее confidence scoring для следующей(второй) лучшей команды Alt1Voice Строка, идентифицирующая фонетический текст для для следующей лучшей альтернативной команды Alt2Name Строка, идентифицирующая имя третьей лучшей команды Alt2Confidence Значение Long, определяющее confidence scoring для третьей лучшей команды Alt2Voice Строка, идентифицирующая фонетический текст для третьей лучшей команды Count Значение Long, показывающее номер возвращаемой альтернативы

Private Sub Agent1_Command(ByVal UserInput As Object)

If UserInput.Name = "TimeCommand" Then

    merlin.Speak "Сейчас " & CStr(Time)

End If

End Sub