La parole à l'ordinateur

Soyez le premier à donner votre avis sur cette source.

Snippet vu 4 730 fois - Téléchargée 43 fois

Contenu du snippet

Comme j'ai un problème avec le lien d'expédition de mon programme zip de synthèse vocale je
vais essayer d'envoyer le code que j'ai utilisé pour ceux d'entre-vous que cela intéresse.
INDISPENSABLE : Aller sur le site http://easyvb.free.fr/agent.php3 pour copier ou ouvrir
les fichiers suivants : ace.exe & AgtX040C_fr.exe & Msagent.exe & Genie.exe &
Lhttsfrfr.exe qui sont dédiés à MsAgent. Le site est Français.
Autre possibilité:
Sur le CD VB6.0\COMMON\TOOLS\VB\MSAGENT.Un programme d'intallation existe .
Ensuite \COMMON\TOOLS\VB\FRENCH\MSAGENT pour msagent français.

Source / Exemple :


Ajouter une feuille et y mettre un textbox et 3 boutons de commande.
Le caption de commande2=Parler
Le caption de commande3=Effacer
Le caption de commande1=Quitter
Ne pas oublier de cocher le composant Microsoft Agent Control 02 pour le mettre également
sur la feuille.
Dim Genie As IAgentCtlCharacterEx
Const DATAPATH = "genie.acs"
Private Sub Command1_Click()
TextBox.Text = ""
Unload Me
End Sub
Private Sub Command2_Click()
On Error GoTo erreur
Genie.MoveTo 450, 300
    Genie.Show
        Genie.Speak TextBox.Text
    Genie.Hide
    Exit Sub
erreur:
 Genie.Show
        Genie.Speak "Vous n'avez pas entré de texte !!"
    Genie.Hide
    End Sub
Private Sub Command3_Click()
TextBox.Text = ""
End Sub
Private Sub Form_Load()
    Agent1.Characters.Load "Genie", DATAPATH
    Set Genie = Agent1.Characters("Genie")
      End Sub

A voir également

Ajouter un commentaire Commentaires
Messages postés
44
Date d'inscription
mercredi 13 février 2008
Statut
Membre
Dernière intervention
19 octobre 2009

slt j arrive pas a faire marcher ce programme il m affiche erreur 424
et le debougage arrete au niveau de la ligne suivante:
Agent1.Characters.Load "Genie", DATAPATH
Set Genie = Agent1.Characters("Genie")

qlq un peut me dire la cause?
merci d avance
Messages postés
1
Date d'inscription
samedi 5 octobre 2002
Statut
Membre
Dernière intervention
5 octobre 2002

Petit programme qui existe dèjà sur le site MSAGENT.
Pour ton problème de fichier, crée un installateur des fichiers MSagent en
indiquant le path en premier lieu to C:WINDOWSMsagentCHARS pour
les personnages, C:WINDOWSMsagent pour les librairies et le reste en
C:WINDOWSsystem .
ZIP le tout et le tour et joué
Pour ta source , crée un ZIP a part dans le ZIP principal
Bonne prog à toi.
Messages postés
399
Date d'inscription
jeudi 31 janvier 2002
Statut
Membre
Dernière intervention
6 septembre 2004

Ouin ! J'avais préparé le même système pour mettre sur VBFrance... A un jour près... Enfin bon voila... Je ne t'en veux pas...pas trop ;-)

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.