Microsoft Agent Control 2.0

Imágenes de este control en tiempo de Ejecución

Por: Carlos Alberto Arango Schutz
Programa diseñado por Caas Producciones
Programador: Carlos Alberto Arango Schutz
Programa propiedad de: Caas Producciones (este programa es código libre, cualquier alteración del mismo NO será penalizada)
Nota Importante: Caas Producciones no se hace responsable de cualquier uso indebido de este programa o código 
Publicado el: 18/08/06
Descargar el Proyecto de Vb6 (Nota: este Ejemplo tiene un cambio las acciones de merlin se llevan a cabo cuando la persona hunde clic sobre el o cuando lo arrastra.)

¿Te acuerdas del los muñequitos molestos de Office que supuestamente eran parte de la ayuda interactiva de office?

¿Si te acuerdas?, bueno supongo que de eso nadie se a olvidado, bueno el hecho es que esta especie de ayudantes están disponibles para Vb6 mediante este control, pero en este caso poseemos un mago, un perro y otros personajes que podemos manipular a nuestro gusto ya sea para brindar un sistema de ayuda dinámico, para atraer la atención o por simple diversión. (en este articulo solo voy a hablar del personaje Merlín o el Mago)

Pero antes de entrar en materia ¿como consigo este control?

Muy simple solo ve a la siguiente pagina Web Ir  y descarga la Dll, los personajes, los módulos de lenguaje (bueno esto es solo si quieres que hablen bien pero eso depende de ti) y husmea la pagina Web para ver que mas encuentras útil para ti.

Bueno entrando en materia todo sobre como cargar tu agente y utilizarlo

Bueno esta parte para los neófitos (principiantes):

  1. Carguen el control en Vb6, hay dos formas de hacerlo, una es en el panel de los objetos hundan clic derecho y escojan el control Microsoft Agent Control 2.0 de la lista de controles y entonces escojan aceptar, la otra forma de hacerlo es meterse en la pestaña que dice proyecto, entonces allí escoger componentes y abrirá la lista de componentes y entonces escogen el control y listo.

  2. Después Insértenlo en el formulario arrastrando el control de la barra de objetos al formulario.

Ahorra si para todos:

Advierto antes de empezar: Solo les diré como cargar al personaje, como hacer hablar al personaje (en este caso merlín) y como hacerlo ejecutar algunas acciones.

Cargando al Personaje en Vb6: Una vez insertado el control en el formulario, procedemos a introducir el siguiente código dentro del Option Explicit:

Option Explicit
Const DataAtor = "merlin.acs"
Dim merlin As IAgentCtlCharacterEx

Y para terminar de cargar el personaje en el evento load del formulario ponemos el siguiente código:

Private Sub Form_Load()
Agent1.Characters.Load "merlin", DataAtor
Set merlin = Agent1.Characters("merlin")
End Sub

Haciendo un poco de magia (como hacer que aparezca Merlín, como hacerlo hablar y como ejecutar una acción o gesto con el): En el formulario incorporamos un commandbutton o un botón de comando llamado command1 e insertamos en el siguiente código:

Private Sub Command1_Click()
merlin.Show
merlin.Play ("Decline")
merlin.Play ("GetAttentionContinued")
merlin.Play ("GetAttentionContinued")
merlin.Play ("GetAttentionContinued")
merlin.Speak ("No me Hagas perder el Tiempo")
merlin.Hide

End Sub

Esto si vale la pena explicarlo, bueno empecemos:

Cuando se le da instrucción merlin.show esto hace que el personaje de Merlin aparezca (muy obvio ¿no?), cuando se le da la instrucción merlin.Play ("Decline") o merlin.Play ("GetAttentionContinued") es para que realice un gesto o una acción (bueno se estarán preguntando como diablos se que acciones puede hacer Merlin pues eso lo deberían de haber buscado en la pagina Web de Microsoft porque son mas 30 acciones y la verdad no tengo ganas de explicarlas) y cuando se le da la instrucción merlin.Speak ("No me Hagas perder el Tiempo") se le esta indicando que utilice una nube (como en las caricaturas) para que imprima el texto que le indicamos (en este caso "No me Hagas perder el Tiempo").

Bueno la verdad hay muchas cosas que este personaje puede hacer aparte de hablar, realizar acciones y ejecutar sonidos, pero eso se los dejo para que los descubran por si solos.