Metodo Wait

[Microsoft Agent è deprecato a partire da Windows 7 e potrebbe non essere disponibile nelle versioni successive di Windows.]

Descrizione

Causa il completamento della coda di animazione per il carattere specificato fino al completamento della richiesta di animazione specificata.

Sintassi

agent**. Caratteri ("CharacterID"). Wait**Request

Parte Descrizione
Richiesta Oggetto Request che specifica un'animazione specifica.

 

Commenti

Usare questo metodo solo quando si supportano più caratteri simultanei e si sta tentando di sequenziare l'interazione dei caratteri. Per un singolo carattere, ogni richiesta di animazione viene riprodotta in sequenza dopo il completamento della richiesta precedente. Se si hanno due caratteri e si vuole che la richiesta di animazione di un carattere attendi fino al completamento dell'animazione dell'altro carattere, impostare il metodo Wait sull'oggetto Request dell'animazione di altri caratteri. Per specificare il parametro della richiesta, è necessario creare una variabile e assegnare la richiesta di animazione che si desidera interrompere:

   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

È anche possibile semplificare il codice chiamando Wait direttamente usando una richiesta di animazione specifica.

   Robby.Wait Genie.Play "GestureRight"

Ciò evita di dover dichiarare in modo esplicito un oggetto Request .