Direct text-to-speech exemple

Télécharger le projet
Commenter

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...
Télécharger le projet

Codes Sources

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.