La parole à l'ordinateur

Soyez le premier à donner votre avis sur cette source.

Snippet vu 4 913 fois - Téléchargée 45 fois

Commenter

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
cs_maciass Messages postés 44 Date d'inscription mercredi 13 février 2008 Statut Membre Dernière intervention 19 octobre 2009
3 juin 2008 à 05:25
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
SYSNSD Messages postés 1 Date d'inscription samedi 5 octobre 2002 Statut Membre Dernière intervention 5 octobre 2002
5 oct. 2002 à 09:41
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.
matrey Messages postés 399 Date d'inscription jeudi 31 janvier 2002 Statut Membre Dernière intervention 6 septembre 2004
24 sept. 2002 à 15:27
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 ;-)
S'inscrire maintenant

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.

Du même auteur (cs_KifKif)