COMPAGNON INTERACTIF ÉVOLUTIF
Ben2998
Messages postés
14
Date d'inscription
mardi 7 novembre 2000
Statut
Membre
Dernière intervention
1 novembre 2007
-
24 juin 2005 à 18:19
cs_marisette Messages postés 23 Date d'inscription dimanche 10 août 2008 Statut Membre Dernière intervention 23 septembre 2008 - 29 oct. 2009 à 14:06
cs_marisette Messages postés 23 Date d'inscription dimanche 10 août 2008 Statut Membre Dernière intervention 23 septembre 2008 - 29 oct. 2009 à 14:06
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/32304-compagnon-interactif-evolutif
https://codes-sources.commentcamarche.net/source/32304-compagnon-interactif-evolutif
29 oct. 2009 à 14:06
tout marche annick te pourait expliquer pourquois
tu lui demande vas sur
http://www.winpasapas.org/fr.tec.agents
et las t'auras reopnse a tout
richard a++++++++++++++++
29 oct. 2009 à 03:26
sur mon nouveau pc avec xp et vista, sur vista impossible d'installer le setup et le problème avec les active x. et sur le xp meme problème pour le setup (erreur d'exécution 52
nom ou numéro de fichier incorrect.
29 oct. 2009 à 03:16
Sur xp, l'installation du setup fonctionne mais j'ai le message: L'identificateur du compagnon n'est pas valide.
Non pas besoin de me dire de passer sur le site me milo, j'ai installer tout les programmes qu'il a cité, installer le programme puis essayé de le lancer ep paff toujour le message. (tester sur 2 pc, 1 avec xp et vista et l'autre avec xp). je pense quil doit y avoir une erreure quelque part.
8 janv. 2009 à 09:18
bon tu inscrit des erreur
la je voies pas......
tu pourrait redemander la a cette adresse
sa serait plus simple pour moi et mes copains et copines il as ete fait special agents
http://www.winpasapas.org/fr.tec.agents
richard a++++++++++++++++++
7 janv. 2009 à 21:46
Erreur d'exécution'-2147213310 (80042002)': L'identificateur du compagnon n'est pas valide. vérifier que l'identificateur a bien été défini et que son orthographe est correcte
j'ai pourtant pu le lancé la derniÚre fois. je comprent pas.
23 juil. 2008 à 00:16
5 nov. 2007 à 16:34
5 nov. 2007 à 15:38
merci d'avance de votre aide
13 sept. 2006 à 17:52
Avant tout bravo pour ce code .. les codes qui fonctionnent sur le agents sont rare !!
Je dois etre un peu limité mais ..... j'arrive pas a lui parler :(
Apres avoir un peu galeré pour l'install, je n'arrive pas a converser avec lui, j'ai surement du louper une etape qqes part.
Merci de votre aide
12 août 2005 à 18:21
(Note aussi que pour faire un bon agent il faut aussi penser à le rendre "compatible" avec Office en lui ajoutant les evènements adéquats ce qui, de fait, le rendra plus lourd encore!).
[Pour plus d'infos sur les MsAgents :
http://www.microsoft.com/MSAGENT/default.asp
Entrée du Cercle
http://www.msagentring.org/
]
Enjoy
12 août 2005 à 18:08
Les nanas sexy et surtout, gratuites, sont rares car elles proviennent de sites commerciaux (vente d'agents) et ne sont donc que des "démos" :-(
Mais bon, y'a quand même de quoi faire! En fait, il y a 3 sortes d'agents :
en 3D
en 2D dessiné
en 2D photoréalistique
Le problème est que plus "l'interface" se veut complète (images + sons), plus ces agents sont "gros" et donc difficilement diffusable et utilisable... certains font 10 Mo facile bien que la pluspart fassent 5Mo. Mais certains montent jusqu'a 30Mo voire 50Mo !!! Et je pense en effet qu'un agent vraiment complet (dans ses mouvements et dans son interface [animes + sons]) doit faire dans les 50Mo (a cause, entre autre, du format Wav employé par les agents!). Mais il faut savoir qu'il n'y a pas que le système Crosoft en la matière ce qui rend déjà cette technologie ""incompatible"". Bref, si vous avez une nana sous la main et un peu de matos (APN, PS, ...), laissez tombé tout de suite ;-)
31 juil. 2005 à 23:53
31 juil. 2005 à 23:52
31 juil. 2005 à 23:06
Essaye d'installer vb on ne sais jamais
31 juil. 2005 à 22:54
31 juil. 2005 à 22:52
31 juil. 2005 à 22:35
http:\\milo2009.free.fr\Compagnon.html
31 juil. 2005 à 22:31
31 juil. 2005 à 18:28
31 juil. 2005 à 18:23
Euh, oui alors, euh...ah! mais je vois que l'on pense de la même maniere, milo2009!! Euh, et si tu reconstruisait tous autour d'une nana en 2d ou en trois dimensions?!?
31 juil. 2005 à 12:16
30 juil. 2005 à 21:33
30 juil. 2005 à 21:31
6 juil. 2005 à 05:05
mais pourtant jai tout fait comme tu le disais
27 juin 2005 à 20:18
Attends toi à un MEGA COMPAGNON.
27 juin 2005 à 20:02
Dll Init/clmInit.cls
Dll Init/Init.dll
Dll Init/Init.exp
Dll Init/Init.lib
Dll Init/Init.vbp
Dll Init/Init.vbw
27 juin 2005 à 19:57
Je suis entrain de travailler dessus et je compte bien lui incorporer la vrai IA car ça me passionne;quand tout sera fait,je le publierai,à moins que j'abandonne le projet.
Ecoute ScSami,télécharge le package .
Je sais que t'es un puissant en prog .Allez vas-y laisse toi aller.
27 juin 2005 à 17:33
Pour le simplifier, je suis desolé mais je suis occupé par autre chose cette été, peut etre plus tard.
Si vous voulez le simplifier, amusez-vous.
A+
27 juin 2005 à 17:06
http://www.vbfrance.com/article.aspx?ID=10419
C'est hyper simple à comprendre... c'est une histoire de moyenne de Pythagore...
Mais c'est évident qu'il faut également passer par un stade d'apprentissage innévitable!!! Donc, il faudra innévitablement demander à l'utilisateur quel soft il voudra lancer en fonction de la forme qu'il dessinera!
Ceci dit, le prog en question peut être, à mon avis, mieux régler au niveau de sa précision d'évaluation... A toi de faire des tests et de voir :-)
Ceci dit, pour ton Geni, je dois admettre que j'ai moi aussi toujours des messages d'erreurs!!! Je pense qu'il serait bon de le simplifier ! Bon, ceci dit, j'ai pas téléchargé ton pack... Mais normalement, on devrait ne pas avoir à le faire!
Allez, amuse toi bien avec ce petit code (qui n'est pas de moi, qui n'est pas très populaire et qui pourtant, est d'une efficacité redoutable!!!) et améliore-nous ton Génie jusqu'a qu'il devienne plus intelligent que Windows et qu'il arrive à corriger tous ses défauts ;-)
Enjoy
27 juin 2005 à 16:42
Le mieux serai de demander ou il y par une Common Dialog.
Ps : peut tu me donnerles lien pour la reconnaisance d'écriture, j'aimerai voir ce que tu entend par là !
27 juin 2005 à 15:35
C'est pas dure à faire en plus (3 lignes de code!) [cf. 2 sources sur VBF]...
On doit bien pouvoir lancer des softs via ton Génie !
27 juin 2005 à 03:02
par exemple le Genie ne peut pas enregistrer " vous n'avez qu'à bosser".
Pour l'enregistrer, il faut saisir "vous navez qua bosser", là la DataBase va l'accèpter.
Cette source INSPIRE et donne des IDEES.
Allez Milo continu à nous GUIDER VERS LA LUMIERE...
COOOOOOOOOOOOOL.
27 juin 2005 à 02:45
ça devrait marcher même sous WinMe mon pôte.
Si ça ne marche chez toi,alor vérifie bien Windows peut être qu'il y a un programme incompatible...
Le programme marche bien.
A+
27 juin 2005 à 02:05
Agent1.Characters(CaracAgent.NomAgent).Play AppelAtt.RetourAtt(4)
ActiveX component can't create objects
26 juin 2005 à 21:22
J'ai aussi réparer la fonction annule qui plantait quand on ne sélectionnez rien.
J'ai réparer le probleme de "reponse" sans le S, et maintenant il trouve toujours l'element sélectionné qu'il soit dans la table question ou réponses.
Merci, pour vos remarque
26 juin 2005 à 21:04
car j'ai corrigé toutes les Erreurs et le programme fonctionne maintenant très bien:
Allez sur ce lien http:\\milo2009.free.fr\Compagnon.html et téléchargez le package puis installez-le.
Ensuite lancez la toute dernière source que Milo a publié sur http://www.vbfrance.com/code.aspx?ID=32304.
Ensuite supprimez toutes les lignes qui génèrent des erreurs suivantes dont
j'ai bien mentionné "Ligne à supprimer:
------------------------------------------------------------------------
Une Erreur se produit Lorsqu'on clic sur le Bouton Annulé de selection d'Agent
sur la feuille feuille frmAgent.
Private Sub cmdAnnul_Click()
' Agent1.Characters.Unload ApAgent==>Ligne à supprimer
' lstAgent.Clear==>Ligne à supprimer
Me.Hide
InitAgent
End Sub
-------------------------------------------------------------------------
Une Erreurse produit Lorsqu'on clic sur memoire,pour éviter ça , supprimez ces lignes.
feuille mdlAgent.
Function DechargeFrm(NomFrm As Object)
Unload NomFrm
' With Agent1.Characters(CaracAgent.NomAgent)==>Ligne à supprimer
'.Top = (800 - .Height) / 2==>Ligne à supprimer
' .Left = (1280 - .Width) / 2==>Ligne à supprimer
'End With==>Ligne à supprimer
End Function
----------------------------------------------------------------------------
Si vous placez un S dans frmTables
If NTable = 0 Then
Table = "Phrases"
Else
Table = "Reponse'S'" '<-- il manque un "s"
End If
Mon pauvre Genie ne trouvera pas de réponse.Donc laissez comme tel
car la bonne est toujours:
If NTable = 0 Then
Table = "Phrases"
Else
Table = "Reponse"
End If
J'ai compilé et recompilé le programme sur plusieurs ordinateurs et ça marche.
Vous allez me demander pourquoi installer le package du http:\\milo2009.free.fr\Compagnon.html
Ben tout simplement parce que nous ne savons pas bien quel fichier le compilateur de milo
a ajouté dans le package.
Allez bonne programmation,
Une fois de plus,Merci Milo pour la source.
La source n'a plus de bugs car toutes les fonctions fonctionnent bien même sous Win98 et WinMe.
A+
26 juin 2005 à 21:03
car j'ai corrigé toutes les Erreurs et le programme fonctionne maintenant très bien:
Allez sur ce lien http:\\milo2009.free.fr\Compagnon.html et téléchargez le package puis installez-le.
Ensuite lancez la toute dernière source que Milo a publié sur http://www.vbfrance.com/code.aspx?ID=32304.
Ensuite supprimez toutes les lignes qui génèrent des erreurs suivantes dont
j'ai bien mentionné "Ligne à supprimer:
------------------------------------------------------------------------
Une Erreur se produit Lorsqu'on clic sur le Bouton Annulé de selection d'Agent
sur la feuille feuille frmAgent.
Private Sub cmdAnnul_Click()
' Agent1.Characters.Unload ApAgent==>Ligne à supprimer
' lstAgent.Clear==>Ligne à supprimer
Me.Hide
InitAgent
End Sub
-------------------------------------------------------------------------
Une Erreurse produit Lorsqu'on clic sur memoire,pour éviter ça , supprimez ces lignes.
feuille mdlAgent.
Function DechargeFrm(NomFrm As Object)
Unload NomFrm
' With Agent1.Characters(CaracAgent.NomAgent)==>Ligne à supprimer
'.Top = (800 - .Height) / 2==>Ligne à supprimer
' .Left = (1280 - .Width) / 2==>Ligne à supprimer
'End With==>Ligne à supprimer
End Function
----------------------------------------------------------------------------
Si vous placez un S dans frmTables
If NTable = 0 Then
Table = "Phrases"
Else
Table = "Reponse'S'" '<-- il manque un "s"
End If
Mon pauvre Genie ne trouvera pas de réponse.Donc laissez comme tel
car la bonne est toujours:
If NTable = 0 Then
Table = "Phrases"
Else
Table = "Reponse"
End If
J'ai compilé et recompilé le programme sur plusieurs ordinateurs et ça marche.
Vous allez me demander pourquoi installer le package du http:\\milo2009.free.fr\Compagnon.html
Ben tout simplement parce que nous ne savons pas bien quel fichier le compilateur de milo
a ajouté dans le package.
Allez bonne programmation,
Une fois de plus,Merci Milo pour la source.
La source n'a plus de bugs car toutes les fonctions fonctionnent bien même sous Win98 et WinMe.
A+
26 juin 2005 à 18:54
J'ai réparé ces erreurs, mais si vous trouvées d'autres erreur, envoyé moi un message pour me le signaler.
Merci
26 juin 2005 à 18:21
1° Dans frmTables.cmdValid_Click(), on voit au début :
If NTable = 0 Then
Table = "Phrases"
Else
Table = "Reponse" '<-- il manque un "s"
End If
Comme le dit le commentaire que j'ai ajouté, il manque un s à Reponse.
2° Toutefois, dans la même procédure, j'ai une erreur sur la ligne suivante :
While !Question <> Selection
L'erreur me dit : Élément non trouvé dans cette collection. Comme je ne connais pas grand chose en gestion de bases de données, j'attendrai qu'une solution soit trouvée.
26 juin 2005 à 17:58
Le zip ne contient plus non plus l'executable.
26 juin 2005 à 17:55
26 juin 2005 à 17:50
Lorsque j'ai empaqueter ma source pour en faire un fichier installation, l'empaquettage à récupéré tous les éléments obligatoire, y compris ce que je ne geres pas.
Donc, à la fin de l'installation, l'appli possede tous les éléments pour fonctionner.
26 juin 2005 à 17:20
Si c'est des composants comme Speech & Co, moi je les ait tous! En revanche, je bosse sous WinMe... celà m'étonnerait fort, mais est-ce que ça pourait jouer en ma défaveur !?!?
:-/
Sinon, clair, continue Milo, c'est vraiment trop important ça !!!
Sinon, voici une petite adresse si vous voulez un peu plus d'agents : http://www.bobsftp.com/
Enjoy
26 juin 2005 à 17:08
26 juin 2005 à 17:05
je compile la source=>ok
En fait y a un fichier qui figure dans l'exe et qui est très important pour la compilation du programme car dès que j'ai installé le package, aussitôt j'ai pu compiler la source .
Donc en un mot sans le package,la source affiche le même message.
Bravo à toi Milo et Merci pour tes éfforts.
26 juin 2005 à 16:10
J'ai fait un tutorial avec tous les liens obligatoires à cette adresse http:\\milo2009.free.fr\Compagnon.html
Ce qui est ecrit, je l'ai fait sur un autre ordi qui n'avait rien d'installer a part XP sp2, et il a tres bien marché.
26 juin 2005 à 15:21
en isolant la ligne "Agent1.Characters(CaracAgent.NomAgent).Play AppelAtt.RetourAtt(4)",le message d'erreur disparâit mais Génie me dit "impossible de se connecter à la base de données.
Allez Milo encore un peu d'éffort,ta source est trop importante .
GUIDE NOUS VERS LALUMIERE MILO...
26 juin 2005 à 02:23
Mais, toujours en déconnectant le gestionnaire d'erreur et toujours dans la même procédure on obtient l'erreur "Type incompatible" a la ligne "DateJour = GetSetting(App.EXEName, "Environement", "DateJour")" un peu plus bas.
Donc, en effet, t'as bien résolu un problème mais il en reste encore!!!
Allez, encore un ptit effort :-D
N'empêche que c'est extrêmement bizarre que ça fonctionne chez toi!!!
25 juin 2005 à 19:54
Apres avoir vu que cela ne venais pas des composant j'ai reverifié le code, et comme la montré ScSami l'erreur est bien là.
Cependant le probleme ne vient pas du composant ActiveX. L'erreur est celle d'un débutant.
Ci dessous, la fonction qui gere la sauvegarde des caracteristique de l'agent :
Function SauvegardeIni()
Dim Donnee As String
'Sauvegarde des données de l'agent
Open App.Path & "\Setting.ini" For Output As #1
For x = 0 To 3
Select Case x
Case 0
Donnee = "Nom de l'agent:" & CaracAgent.NomAgent
Case 1
Donnee = "Date de Naissance:" & CaracAgent.DNaiss
Case 2
Donnee = "Taille de l'agent:" & CaracAgent.Taille
Case 3
Donnee = "Poids de l'agent:" & CaracAgent.Poids
End Select
Write #1, , Donnee <----- Erreur /////
Next x
Close #1
End Function
Lorsque qu'il ecrit il ajoute une vigule de trop dans le fichier ini, car le bon code est
Write #1, Donnee
Le probleme venait du faite qu'il mettait une vigrule devant chaque caracteristique, et lorsque qu'il chargé la date, la virgule n'est pas au format Date, il provoqué une erreur.
J'ai relancer mon appli une fois modifier est elle marche impeccable chez moi. J'ai vais de suite mettre la nouvelle feuille.
Je vous prie d'agreer mes excuses pour cette erreur si stupide et impardonnable. Essayez chez vous et dite moi si cela à resolu le probleme.
25 juin 2005 à 19:41
En fait, le problème vient de la procédure Form_Load. J'ai isolé la ligne d'origine en déconnectant le gestionnaire d'erreur :
Private Sub Form_Load()
Dim Donnee As String
'On Error GoTo Fin
Me.Hide
If Dir$(App.Path & "\Setting.ini") <> vbNullString Then
'chargement des données de l'agent
Open App.Path & "\Setting.ini" For Input As #1
For x = 0 To 3
Input #1, Donnee
Select Case x
Case 0
CaracAgent.NomAgent = Mid(Donnee, InStr(1, Donnee, ":", 1) + 1)
Case 1
'######## ERREUR ICI ########
'Type incompatible
CaracAgent.DNaiss = Mid(Donnee, InStr(1, Donnee, ":", 1) + 1)
Case 2
CaracAgent.Taille = Mid(Donnee, InStr(1, Donnee, ":", 1) + 1)
Case 3
CaracAgent.Poids = Mid(Donnee, InStr(1, Donnee, ":", 1) + 1)
End Select
Next x
Close #1
DateJour = GetSetting(App.EXEName, "Environement", "DateJour")
Else
ResetAgent
End If
InitAgent
AppelAtt.InitAttitudes
Set DB = OpenDatabase(App.Path & "\mémoire.mdb") 'connexion à la mémoire
CaracAgent.Age = CalculCaracAgent()
Exit Sub
Fin:
'######## ERREUR ICI ########
'Le composant ActiveX ne peut pas créer l'objet
Agent1.Characters(CaracAgent.NomAgent).Play AppelAtt.RetourAtt(4)
Agent1.Characters(CaracAgent.NomAgent).Speak "Impossible de ce connecter à la base !"
End Sub
!?!?
25 juin 2005 à 19:31
dans le sous dossier de vb6 appélé References j'ai:
Visual basic for application
Visual basic runtime ...
Visual basic object ...
Ole Automaton
Microsoft agent control agent 2.0
Microsoft DAO 3.6 object library
Microsoft remote object data 2.0
ma dll Init
C'est références sont indispensable car certaine gere la connection avc la bdd, d'autre le fonctionnement.
Essayé pour voir si ca marche.
25 juin 2005 à 19:24
Agent1.Characters(CaracAgent.NomAgent).Play AppelAtt.RetourAtt(4)
alors que tout est installé chez moi (et même plus ;-) !!!
Que faire ???
Je suis sous VB6
25 juin 2005 à 19:16
25 juin 2005 à 19:14
Sinon je met 10/10 rien que pour avoir exploité les agents (trop rare sur VBF je trouve!)
Bonne continuation !
25 juin 2005 à 09:14
25 juin 2005 à 07:15
je te joints la source que tu mets dans la source d'un mess de outlook
et tu regarde le resultat
tu peux piquer des truc dedans
**********************************************************
<HTML>
<SCRIPT language= JavaScript id=copJS>
var w,wW,wH,wL,wT,libPludinfo,anglais,espagnol,francais,parBul,sf,sh;
var popup=true; // animation actuelle dans fenêtre popup (basculé à "false" à l'initialisation)
var tabMov = new Array(); // table de mémorisation des positions des personnages
libPludinfo = "Pour plus d'informations, voir site Acier :
";
anglais =1033;
espagnol=1034;
francais=1036;
parBul=""; // paroles dans bulle, si différentes de celles prononcées
sf=""; // système de fichiers
sh=""; // script shell
// Rangement informations concernant les Agents
function rangeInfos(libelle)
{
if ( infos.innerHTML.indexOf(libelle) == -1)
{
infos.insertAdjacentHTML("beforeEnd", libelle + "
");
}
}
// Affichage informations concernant les Agents
function affInfos()
{
infos.style.display="";
}
// Repositionnement des personnages aux endroits mémorisés
function reMov()
{
for(var i in tabMov)
{
eval(tabMov[i]);
}
}
// Mémorisation position d'un personnage
function memoMov(idAgent,x,y)
{
tabMov[idAgent.name] = "movAgent(id" + idAgent.name + "," + x + "," + y + ")";
}
// Affichage dans fenêtre popup
function goPopup()
{
popup=true;
var versIE=window.navigator.appVersion.match(/MSIE [\d\.]*/); // test si compatible IE5.5
if(versIE==null) return;
versIE=versIE[0].substring(5);
if(versIE<5.5) return;
pop=window.createPopup();
bop=pop.document.body;
bop.style.cursor="crosshair";
bop.innerHTML=fond.outerHTML + exitPopup.innerHTML; // rangement image de fond et bouton sortie popup
bpa=bop.all;
bpa.fond.style.height="100%";
bpa.fond.style.width="100%";
wW=window.screen.width; // mémorisation nouvelles dimensions fenêtre : elle couvre tout l'écran
wH=window.screen.height;
wL=0; // mémorisation nouvelle position fenêtre : coin haut/gauche écran
wT=0;
reMov(); // repositionnement des personnages aux endroits mémorisés
pop.show(0, 0, window.screen.width, window.screen.height);
}
// Sortie fenêtre popup
function endPopup()
{
popup=false;
pop.hide(); // masquage fenêtre popup
resiz(); // traitement lié au redimensionnement fenêtre
}
</SCRIPT>
<SCRIPT language=VBScript id=copVBS>
option explicit
dim errAgentAbsent
dim resizeEncours
resizeEncours=false
errAgentAbsent = &H80070002
' Teste la présence de MS Agent
function testMSAgent
dim agt1,agt2
on error resume next
set agt1 = createObject("Agent.Control.1")
set agt2 = createObject("Agent.Control.2")
if isObject(agt2) then
rangeInfos "MS Agent 2 est installé."
end if
testMSAgent=false
if not isObject(agt1) and not isObject(agt2) then
rangeInfos "MS Agent n'est pas installé sur votre machine. Vous ne pouvez pas voir les personnages."
rangeInfos libPludinfo & ancre2.innerHTML
testMSAgent=true
end if
if isObject(agt1) and not isObject(agt2) then
rangeInfos "Vous n'avez pas la dernière version."
rangeInfos libPludinfo & ancre2.innerHTML
end if
end function
' Déplacement personnage
' Fonction des dimensions actuelles de la fenêtre et du personnage
function movAgent(idAgent,x,y)
memoMov idAgent, x, y ' mémorisation position du personnage
set movAgent=idAgent.moveTo(wL+x*wW-idAgent.width/2, wT+y*wH-idAgent.height/2)
end function
' Chargement personnage
function chargAgent (byVal nomAgent)
on error resume next
set chargAgent = nothing
objAgent.characters.load nomAgent, nomAgent & ".acs"
if err.number > 0 then
rangeInfos "Erreur " & err.number & " lors du chargement de " & nomAgent & "."
exit function
end if
if err.number = errAgentAbsent then
rangeInfos "le personnage " & nomAgent & " n'est pas installé sur votre machine."
rangeInfos libPludinfo & ancre1.innerHTML
exit function
end if
set chargAgent = objAgent.characters(nomAgent)
chargAgent.name = nomAgent
end function
' Traitement bookmark pour enchaînement des scènes
sub objAgent_bookmark (ByVal idBookmark)
setTimeout "scene" & idBookmark & "()", 100
end sub
' Initialisation langue personnage
sub iniLangAgent (idAgent, byVal lda)
if idAgent.TTSModeID = "" then
rangeInfos "Aucun moteur de conversion texte / parole n'est associé à " + idAgent.name
rangeInfos "La voix anglaise est imposée à " & idAgent.name & "."
langueAgent idAgent, anglais
else
langueAgent idAgent, lda ' langue personnage par défaut chez l'auteur
end if
end sub
' Changement langue personnage
sub langueAgent (idAgent, langue)
dim libLangue
on error resume next
if idAgent.languageId <> langue then
idAgent.languageId=langue
end if
if err.number <> 0 then
select case langue
case anglais libLangue="anglaise"
case espagnol libLangue="espagnole"
case francais libLangue="française"
case else libLangue=langue
End Select
rangeInfos "La langue " & libLangue & " n'est pas installée sur votre machine."
rangeInfos idAgent.name & " parle avec la voix précédemment définie ou celle par défaut."
end if
end sub
' Prise en compte redimensionnement fenêtre
sub window_onresize
setTimeout "resiz()", 100 ' traitement différé pour éviter déclenchements multiples
end sub
' Séquence de traitement redimensionnement ou déplacement fenêtre
sub resiz
if resizeEncours then exit sub ' pour éviter déclenchements multiples
resizeEncours = true
set w=document.body
wW=w.offsetWidth ' mémorisation nouvelles dimensions de la fenêtre
wH=w.offsetHeight
wL=window.screenLeft ' mémorisation nouvelle position de la fenêtre
wT=window.screenTop
fond.style.width=wW ' fond redimensionné
fond.style.height=wH
reMov ' repositionnement des personnages aux endroits mémorisés
setTimeout "resizeEncours=false", 200
end sub
' Si fenêtre déplacée, traitement lié au redimensionnement
sub testDeplace
if popup then exit sub ' si fenêtre popup pas de test
if window.screenLeft<>wL or window.screenTop<>wT then
resiz
end if
end sub
' Initialisations
sub window_onload
set w=document.body
w.scroll="no"
w.style.cursor="crosshair"
infos.innerHTML=""
resiz ' traitement lié au redimensionnement fenêtre
if testMSAgent() then exit sub
setInterval "testDeplace()", 1000 ' si fenêtre déplacée, traitement lié au redimensionnement (test chaque seconde)
init
end Sub
</SCRIPT>
<SCRIPT language=VBScript>
dim idgenie, reqgenie
sub init
rangeInfos "Animation effectuée à l'aide de Jaugez vos Agents - 2.15"
scene0
end sub
sub scene0
set idgenie = chargAgent("genie")
if idgenie is nothing then exit sub
iniLangAgent idgenie, 1036
set reqgenie = idgenie.show()
set reqgenie = movAgent(idgenie, 0.4621, 0.6678)
set reqgenie = idgenie.play("Congratulate")
set reqgenie = idgenie.play("Congratulate_2")
set reqgenie = idgenie.play("GetAttention")
set reqgenie = idgenie.speak("\map=""bonjour bon tu as fait quelque chose mais dans ton truc tu nas pas d'exemple ""=""bonjour bon tu as fait quelque chose mais dans ton truc tu nas pas d'exemple """)
set reqgenie = idgenie.speak("\map=""et pour un nouveau quois de neuf la visulisatio, n c'est se qui faut la je te mets un truc fait avec se que a fait sergio et sa c'est bon ""=""et pour un nouveau quois de neuf la visulisatio, n c'est se qui faut la je te mets un truc fait avec se que a fait sergio et sa c'est bon """)
set reqgenie = movAgent(idgenie, 0.678, 0.5636)
set reqgenie = idgenie.play("Announce")
set reqgenie = idgenie.speak("\map=""bon je vous laisse ""=""bon je vous laisse """)
set reqgenie = idgenie.hide()
end sub
</SCRIPT>
<STYLE>
.clInfos {background-color:navy; border:solid ; padding:1pt; font:bold 10pt Arial; color=white}
a:hover{color:red}
</STYLE>
x
i
Pour télécharger un personnage
Infos sur MS Agent
<!-- Objet MS agent -->
<OBJECT id =objAgent classid=clsid:D45FD31B-5C6E-11D1-9EC1-00C04FD7081F></OBJECT>
</HTML>
marysette dit aussi richard
24 juin 2005 à 21:39
24 juin 2005 à 20:50
- Microsoft Agent core components
- The Speech Control Panel
- Text to Speech Engine (Fr)
Vous pouvez les trouver ici :
http://www.microsoft.com/products/msagent/downloads/user.asp
24 juin 2005 à 19:37
24 juin 2005 à 18:34
je vais testé ce code de ce pas
24 juin 2005 à 18:19
Agent1.Characters(CaracAgent.NomAgent).Play AppelAtt.RetourAtt(4)
ActiveX component can't create objects