La parole à l'ordinateur

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

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)