Ce programme fait suite aux précédents "Aide pour handicapé de la parole" .
J'ai reçu des suggestions et j'en ai tenu compte pour améliorer mon programme.
Il est maintenant doté de la synthèse vocale qui permet à l'ordinateur de prononcer tout
le texte écrit en français.
Cependant il est INDISPENSABLE d'aller sur le site '
http://easyvb.free.fr/agent.php3 '
pour copier ou ouvrir directement les programmes suivants :
Ace.exe & Agtx040c_fr.exe & Msagent.exe & Lhttsfrf.exe & Genie.exe
Ces programmes proviennent de Microsoft et sont dédiés à MsAgent.
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.
Commentaires
Je suis bénévole pour une association de personnes handicapées, j'ai besoin de logiciels libres, ou à la limite en version d'essai (ce que je fais je le fais sur mon temps et avec mes deniers propres) de :
- conversion de mes pages textes en braille,
- reconnaissance vocale de texte, je dicte et l'ordinateur écrit.
Ces deux logiciels sont importants pour mon engagement.
Merci de vos renseignements.
Kyot
j'ai un nouveau probème a présenter.
comment puis-je enregistrer dans un fichier wave ce que dit l'agent.
je ne trouve aucune source pour ce genre de problème.
coquin007
j'utilise les msagents et j'ai un problème.
quand j'en utilise deux dans le mëme texte il parlent en mëme temps.
Je lit le texte avec
open fichier.txt for input as 1
while eof(1)
input#1, letexte
agent.speak letexte
wend
close #1
dans mon fichier l'agent est choisi ce qui me permet de faire parler l'agent que je veut ex.
lire une frase
<genie.speak>
lire une dexieme phrase
ect...
mais la boucle n'attend pas que l'agent ai fini de parler,les deux parlent en mëme temps.
connaissez-vous le moyen pour regler mon problème, y a t_il un moyen pour que la ligne suivante dans la boucle attende que l'agent est fini de parler.
merci.
coquin007
Bonne prog à tous et bonne année.
JLN
Chez moi il marche pas ton progz, le problème est que quand je le lance, il me met "fichier introuvable" à la ligne :
Agent1.Characters.Load "Genie", DATAPATH
de
Private Sub Form_Activate()
If Dac = True Then Exit Sub
Agent1.Characters.Load "Genie", DATAPATH
Set Genie = Agent1.Characters("Genie")
Genie.MoveTo 450, 300
Dac = True
End Sub
Est-ce normal ?
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.