Les aventures des agents microsoft

Soyez le premier à donner votre avis sur cette source.

Snippet vu 8 917 fois - Téléchargée 69 fois

Contenu du snippet

Chargement et installations des fichiers nécessaires à partir du site Microsoft :
  • The Microsoft Agent core components.
  • Selected language (après avoir sélectionné French !).
  • Selected character (après avoir sélectionné le personnage qui vous intéresse. En fait, je vous conseille de tous les télécharger).
  • A text-to-speech engine (c'est ce qui vous permettra de faire parler votre personnage à partir d'un texte).
  • Speech recognition engines (pour pouvoir commander votre programme à l'aide de la parole).
  • Et enfin pendant que vous y êtes le speech control panel.


"James et Al est un Agent créé par La Cantoche production- Tous doits réservés"

http://www.cantoche.com/francais/msagent.htm

http://www.chez.com/pitrack1

Source / Exemple :


'Chargement et installations des fichiers nécessaires à partir du site Microsoft :

'*The Microsoft Agent core components.
'*Selected language (après avoir sélectionné French !).
'*Selected character (après avoir sélectionné le personnage qui vous intéresse. En fait, je vous conseille de tous les télécharger).
'*A text-to-speech engine (c'est ce qui vous permettra de faire parler votre personnage à partir d'un texte).
'*Speech recognition engines (pour pouvoir commander votre programme à l'aide de la parole).
'*Et enfin pendant que vous y êtes le speech control panel.

'"James et Al est un Agent créé par La Cantoche production- Tous doits réservés"

'http://www.chez.com/pitrack1

Option Explicit
Dim miFormLeft%, miFormTop%
Dim msLocalPath$
Dim theAgent As IAgentCtlCharacter
Dim Genie As IAgentCtlCharacter
Dim Merlin As IAgentCtlCharacter
Dim Robby As IAgentCtlCharacter
Dim Al As IAgentCtlCharacter
Dim James As IAgentCtlCharacter
Dim Peedy As IAgentCtlCharacter
Dim req
Dim reqWait 'request
Dim reqOk 'request

Private Sub Form_Load()
    On Error Resume Next
    LoadAgent "genie"
    Set Genie = theAgent
    LoadAgent "merlin"
    Set Merlin = theAgent
    LoadAgent "robby"
    Set Robby = theAgent
    LoadAgent "Al"
    Set Al = theAgent
    LoadAgent "James"
    Set James = theAgent
    LoadAgent "Peedy"
    Set Peedy = theAgent
End Sub

Sub LoadAgent(sAgentName)
    msLocalPath = "c:windowsmsagentchars"
    Agent1.Characters.Load sAgentName, msLocalPath & sAgentName & ".acs"
    If Err = 0 Then
        Set theAgent = Agent1.Characters(sAgentName)
    Else
        MsgBox "Cannot load " & sAgentName
        End
    End If
End Sub

Sub RandomXY(x%, y%)
    Randomize
    x = Int((Screen.Width  Screen.TwipsPerPixelX - theAgent.Width) * Rnd)
    y = Int((Screen.Height  Screen.TwipsPerPixelY - theAgent.Height) * Rnd)
End Sub

Private Sub cmdOrder_Click()
    cmdOrder.Enabled = False
    Dim x%, y%
    RandomXY x, y
    
Genie.MoveTo 17, 51
    Genie.Show
Set reqWait = Genie.Speak("Hé robby ou estes vous?")
Robby.Wait reqWait
RandomXY x, y
Robby.MoveTo 497, 183
Robby.Show
Set reqWait = Robby.Speak("Je suis ici Génie...")
Set reqWait = Robby.Speak("Voulez vous que je vous fasse une copie?")
Genie.Wait reqWait
Genie.Speak "Non c'est bon,la derniere copie que vous m'avez donné etait illisible"
Genie.Play "GetAttention"
Genie.Play "GetAttentionReturn"
Set reqWait = Genie.Speak("Vous n'avez pas une idée sur ce qui pourrait etre détraqué?")
Robby.Wait reqWait
Set reqWait = Robby.Speak("Non,mais laissez moi voir...")
Genie.Wait reqWait
Genie.Play "Write"
Genie.Play "WriteContinued"
Genie.Play "WriteContinued"
Set reqWait = Genie.Play("WriteContinued")
Robby.Wait reqWait
Robby.Play "Confused"
Set reqWait = Robby.Play("Confused")
Genie.Wait reqWait
Genie.Play "LookDown"
Genie.Play "LookLeft"
Genie.Play "LookRight"
Set reqWait = Genie.Play("LookRightReturn")
Robby.Wait reqWait
Robby.Play "Idle2_2"
Robby.Play "Read"
Robby.Play "ReadReturn"
Robby.Speak "Je pense que je l'ai réparé ce devait etre un fusible qui avait sauter."
Set reqWait = Robby.Speak("Je vous imprimerai une autre copie plus tard,Génie.")
Genie.Wait reqWait
Set reqWait = Genie.Speak("Merci robby vous etes gentil.")
Merlin.Wait reqWait
Merlin.MoveTo 238, 372
Merlin.Show
Merlin.Speak "Salut Robby,Salut Génie."
Merlin.Play "Surprised"
Merlin.Speak "Humm c'est humide ici."
Merlin.Speak "Robby,tandis que vous etes la vous pourriez imprimer une copie du texte de mon breuvage magique?"
Set reqWait = Merlin.Speak("Il ferait des miracles sur le tein de peau de Génie.Je le trouve un peu bleu hi hi hi.")
Robby.Wait reqWait
Robby.Speak "Aucun problème Merlin,je le ferai."
Set reqWait = Robby.Speak("Bon je rentre a la maison sinon ma femme vas encore raler.")
Set reqWait = Robby.Hide
Genie.Wait reqWait
Merlin.Wait reqWait
Genie.Play "Wave"
Merlin.Play "Wave"
Genie.Hide
Merlin.Hide
'Set regWait = Merlin.Hide

Al.Wait reqWait
Al.MoveTo 383, 245
Al.Show
Al.Speak "Bah ou sont'ils tous passé?"
Al.Play "Clap"
Al.Speak "Hé les copains ou etes vous?"
Set reqWait = Al.Speak("Cest pas sympa de me laisser tomber.")
James.Wait reqWait
James.MoveTo 632, 183
Set reqWait = James.Show()
Al.Wait reqWait
Set reqWait = Al.Play("LookLeft")
James.Wait reqWait
Set reqWait = James.Speak("Salut Al c'est moi James.")
Al.Wait reqWait
Set reqWait = Al.Play("LookLeft")
James.Wait reqWait
James.Play "Uncertain"
Set reqWait = James.Speak("J'ai un de ces mal de crane...")
Al.Wait reqWait
Set reqWait = Al.Speak("Vous avez qu'a prendre des comprimés pour le mal de tète,James.")
James.Wait reqWait
James.Speak "Vous avez raison il faut que je note cela sinon je vais encore oublié."
James.Play "Write"
James.Play "WriteContinued"
James.Play "WriteReturn"
James.Play "LookRight"
James.Play "LookRightReturn"
Set reqWait = James.Speak("Merci Al c'est gentil de votre part de vous préocupez de ma santé.")
Al.Wait reqWait
Al.Play "LookLeft"
Set reqWait = Al.Speak("Vous n'auriez pas vu Merlin et Robby par hasard?")
James.Wait reqWait
James.Play "LookRight"
James.Play "LookRightReturn"
Set reqWait = James.Speak("Robby est rentré chez lui , je crois ! quand a Merlin , vous savez bien qu'il vas et vient , il est insaisissable.")
Al.Wait reqWait
Al.Play "LookLeftBlink"
Al.Speak "Je voulais juste demander a Robby s'il c'etait auto réparé?"
Al.Play "LookLeftBlink"
Set reqWait = Al.Speak("Car Génie m'avait dit qu'il ne pouvait plus rien imprimer , ces copies etait illisible.")
James.Wait reqWait
James.Play "LookDownRight"
James.Play "LookDownRightReturn"
James.Speak "Je vais aller voir si je le trouve pour vous.Je reviens tout de suite , a bientot Al."
Set reqWait = James.Hide()
Al.Wait reqWait
Al.Play "LookLeftBlink"
Al.Speak "Merci James , bah lui au moins c'est du service rapide."
Al.Speak "Bon je ne me rapelle plus ce que j'avais a imprimer?"
Al.Play "Read"
Al.Speak "Ha oui c'est ca javais completement oublié."
Al.Play "ReadReturn"
Al.Speak "Que fait James j'espère qu'il a trouver Robby?."
Al.Speak "Voyons s'il arrive?."
Al.Play "Idle3_2"
Al.Play "Idle3_2Return"
Al.Play "LookLeft"
Al.Play "LookRight"
Set reqWait = Al.Speak("Ha le voila.")

Robby.Wait reqWait
Robby.MoveTo 510, 219
Robby.Show
Set reqWait = Robby.Speak("Vous me chercher Al?")
Robby.MoveTo 453, 245
Al.Wait reqWait
Al.Speak "Oui je voulais vous demander de m'imprimer ceci si vous etiez réparé?."
Al.Play "Read"
Al.Play "ReadReturn"
Set reqWait = Al.Speak("Vous me seriez tres obliger....")
Robby.Wait reqWait
Robby.Speak "Mais il n'y a pas de problème."
Robby.Play "Read"
Robby.Play "ReadReturn"
Set reqWait = Robby.Speak("Voila Al,c'est fait.")
Al.Wait reqWait
Al.Speak "Je vous remercie Robby."
Al.Speak "Au revoir."
Al.Play "Wave"
Set reqWait = Al.Hide()
Robby.Wait reqWait
Robby.Speak "Mais qu'ont t'ils donc tous a vouloir faire des copies?."
Robby.Speak "Allez moi je m'en retourne voir ma ROBETTE."
Robby.Play "Wave"
Robby.Hide

    Set reqOk = Robby.Hide
    
    
    

End Sub

Private Sub Agent1_RequestComplete(ByVal Request As Object)
    Select Case Request
        Case reqOk
            cmdOrder.Enabled = True
        End Select
End Sub

A voir également

Ajouter un commentaire

Commentaires

tu serai pas un fan de marionnettes?
Les adresses données sont fausses
HammaDi07
Messages postés
1
Date d'inscription
vendredi 23 janvier 2004
Statut
Membre
Dernière intervention
29 octobre 2004
-
Tout ce qu'il y a à-savoir est sur le site de microsoft consacré au msagents : http://www.microsoft.com/msagent/default.asp
voir rubriques : downloads et programming agent

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.