Direct text-to-speech exemple

Soyez le premier à donner votre avis sur cette source.

Vue 14 804 fois - Téléchargée 1 595 fois

Description

Un petit exemple sans prétention, juste pour mieux connaitre ce controle et API Microsoft Speech API 4.0 (DirectSS1 = Direct text to speech)

Je me demandais comment utiliser les(ou des) voix installées sur ma machine? et donc voilà rapidement un exemple explicite (...je l'espère).

Vous pouvez installer des voix comme celles de DIGALO et son logiciel Digit. C'est un petit
'shareware de 15 jrs mais les voix restent disponibles: http://www.digalo.com/digit_download.asp
'les voix de cathy et Robert sont bien plus sympas... et ont un accent moins Amerloc...

Bref tout est dans le Zip, y compris des liens et infos.

Source / Exemple :


Dim txt As String
Private Sub Check1_Click()
If Check1.Value = 1 Then
    txt = Text1.SelText 'lit uniquement le texte séléctionné
Else
    txt = Text1.Text 'ou lit le contenu du TextBox
End If
End Sub

Private Sub Check2_Click()
If Check2.Value = 1 Then
    Dss.Visible = True ' si on veux que la bouche parlante soit visisble
Else
    Dss.Visible = False ' si on ne veux pas que la bouche parlante soit visisble
End If
End Sub

Private Sub Command1_Click()
Call Check1_Click 'Appel de Check1_click pour savoir comment le texte est lu
Dss.Speak (txt) ' lit le texte
End Sub

Private Sub Command2_Click()
Dss.AudioPause 'faire une pause
End Sub

Private Sub Command3_Click()
Dss.AudioResume 'reprendre à l'endroit ou l'on a fait la pose
End Sub

Private Sub Command4_Click()
Dss.AudioReset 'arret dela lecture et reposistionne au debut
End Sub

Sub form_load()
Dim modename As String
Dim EngineId As Long
EngineId = Dss.Find("gender=0") 'on recherche les genres de voix installées
For i = 1 To Dss.CountEngines 'boucle pour ajouter toutes les voix présente sur le PC
    modename = Dss.modename(i)
    Combo1.AddItem modename 'on ajoute les voix dans le ComboBox
Next i

Dss.MaxVolumeLeft = 100000

End Sub

Private Sub Combo1_Click()
Dss.CurrentMode = Combo1.ListIndex + 1 'sélectionne la voix (+1 parcequ'un combobox commence à 0)
End Sub

Conclusion :


Voilà, il y a des chances que cela serve pour les prog amateurs comme celui que je suis...

J'en profitte pour dire merci à certains comme DarkSidious ou PcPunch et d'autres qui nous permettent de faitre des pas de géant grace à leurs sources et leurs COMMENTAIRES!!!

A dis chat maynats...

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

rock conrad
Messages postés
5
Date d'inscription
samedi 23 septembre 2006
Statut
Membre
Dernière intervention
13 décembre 2006
-
quelqu'un a t'il une idee sur une Speech recogntion speech to text en vb. contacter moi svp. aorconrad@hotmail.com
ghouitte
Messages postés
1
Date d'inscription
vendredi 19 mars 2004
Statut
Membre
Dernière intervention
19 juillet 2005
-
Bonjour,
J'ai utilisé votre source pour aider ma fille handicapée pour l'"Oraliser" . c'est Super et Merci beaucoup !!

Cependant, j'ai du réinstaller mon PC suite à un Spyware et j'ai installé WINDOWS 2000. Avant j'étais en XP.

Depuis, impossible de de faire fonctionner mon programme ni le source que vous publiez.

J'ai bien les 2 voix Femelle et male dans la combo box mais le programme renvoie une erreur à la ligne : DSS. Speak (txt)

J'ai essayé Digit de DIGALO, la réponse est "No Engine"
J'ai suivi la même procédure que la 1ère fois (sous XP)

Si vous avez une idée, elle sera la bienvenue.

POUR TOUT CE QUE VOUS FAITES : BRAVO ET MERCI !!!
Gérard
abeloni
Messages postés
2
Date d'inscription
mercredi 9 mars 2005
Statut
Membre
Dernière intervention
6 décembre 2005
-
Hello Darken..
D'entree j'aimerais te remercier pour tes contributions-je viens de le sdecouvrir et surement elles vont m'aider. Mais j'aurai besoin des "voice" voix de Diagolo car le link sur ces voix ne travailent plus.
Peux les rendre avaialable a partir de ton pc? dan le cas contraire je laisse mon email et toute personne sur ayant en sa possession pareils fichiers peut me les envoyer.
Merci a tous.
Cao
email: kasannova@centrum.cz
VBFPB
Messages postés
14
Date d'inscription
mercredi 4 décembre 2002
Statut
Membre
Dernière intervention
9 mars 2006
-
GRAND MERCI a DARKANLeGrd

qui n'abandonne jamais ceux qui ont chargé son programme . Trés attentif aux difficultées rencontrées il est un tres precieux assistant .
BRAVO a+++++++
DarkanLeGrd
Messages postés
17
Date d'inscription
lundi 5 avril 2004
Statut
Membre
Dernière intervention
12 mars 2005
-
hello,

ben là j'comprends pas bien car cela fait plus de trois mois que je l'ai sur ma machine et aucun pb !!!???!!!

je vais voir cela de plus pret et je te dis qlq chose.

A+

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.