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
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.