Wait (método)

[Microsoft Agent está en desuso a partir de Windows 7 y puede no estar disponible en versiones posteriores de Windows].

descripción de

Hace que la cola de animación del carácter especificado espere hasta que se complete la solicitud de animación especificada.

sintaxis

agente**. Caracteres ("CharacterID"). Wait**Request

Parte	Descripción
de solicitud de	Objeto Request que especifica una animación determinada.

 

Observaciones

Use este método solo cuando admita varios caracteres (simultáneos) y intente secuenciar la interacción de los caracteres. (Para un solo carácter, cada solicitud de animación se reproduce secuencialmente después de que se complete la solicitud anterior). Si tienes dos caracteres y quieres que la solicitud de animación de un carácter espere hasta que finalice la animación del otro carácter, establece el método Wait en la animación del otro carácter objeto Request. Para especificar el parámetro de solicitud, debe crear una variable y asignar la solicitud de animación que desea interrumpir:

   Dim GenieRequest 
   Dim RobbyRequest 
   Dim Genie 
   Dim Robby 

   Sub window_Onload

   Agent1.Characters.Load "Genie", "https://agent.microsoft.com/characters/v2/genie/genie.acf"
   Agent1.Characters.Load "Robby", "https://agent.microsoft.com/characters/v2/robby/robby.acf"

   Set Genie = Agent1.Characters("Genie")
   Set Robby = Agent1.Characters("Robby")

   Genie.Get "State", "Showing"
   Robby.Get "State", "Showing"

   Genie.Get "Animation", "Announce, AnnounceReturn, Pleased, _ 
      PleasedReturn"
   
   Robby.Get "Animation", "Confused, ConfusedReturn, Sad, SadReturn"

   Set Genie = Agent1.Characters ("Genie")
   Set Robby = Agent1.Characters ("Robby")

   Genie.MoveTo 100,100
   Genie.Show

   Robby.MoveTo 250,100
   Robby.Show

   Genie.Play "Announce"
   Set GenieRequest = Genie.Speak ("Why did the chicken cross the road?")
   
   Robby.Wait GenieRequest
   Robby.Play "Confused"
   Set RobbyRequest = Robby.Speak ("I don't know. Why did the chicken _
      cross the road?")
   
   Genie.Wait RobbyRequest
   Genie.Play "Pleased"
   Set GenieRequest = Genie.Speak ("To get to the other side.")
   
   Robby.Wait GenieRequest
   Robby.Play "Sad"
   Robby.Speak "I never should have asked."

   End Sub

También puede simplificar el código simplemente llamando a Wait directamente mediante una solicitud de animación específica.

   Robby.Wait Genie.Play "GestureRight"

Esto evita tener que declarar explícitamente un objeto request.