begin process at 2012 02 14 08:02:01
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > 

Code

 > 

API

 > DIRECT TEXT-TO-SPEECH EXEMPLE

DIRECT TEXT-TO-SPEECH EXEMPLE


 Information sur la source

Note :
9 / 10 - par 3 personnes
9,00 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :API Niveau :Débutant Date de création :23/10/2004 Vu / téléchargé :12 466 / 1 406
Auteur : DarkanLeGrd

Ecrire un message privé
Commentaire sur cette source (13)
Ajouter un commentaire et/ou une note

 Description

Cliquez pour voir la capture en taille normale
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

  • 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 
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...

 Fichier Zip

Les Membres Club peuvent télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip


 Sources de la même categorie

Source avec Zip Source .NET (Dotnet) .NET DEPENDENCY VIEWER : ARBRE DES DÉPENDANCES D'UN ASSEMBLY... par ShareVB
Source avec Zip Source .NET (Dotnet) UTILITAIRE SKYDRIVE par MasterShadows
Source avec Zip ROTATION RAPIDE D'IMAGE par trex70
Source avec Zip Source avec une capture ENUMERATION DES PORTS TCP ET IDENTIFCATION DU PROCESS (PID) ... par Renfield
Source avec Zip Source avec une capture MOUSE SPEED AND WEIGHT : RETOUR DE FORCE VIRTUEL ! par ScSami
Toutes les sources de la catégorie API

Commentaires et avis

Commentaire de VBFPB le 24/10/2004 18:37:51

Bonjour
J'ai telechargé le logiciel DIGIT qui est bien installé et fonctionne.
Mais ton prog ne me fait pas apparaitre les 2 voix Cathy Robert  dans la liste des voix disponibles je ne retrouve que celles de Lermout & Hauspie- qui sont insatllées sur mon ordi .
Faut til deplacer quelque fichier du repertoire DIGIT ves au autre repertoire qui contient les voix Lermout & Hauspie- Si tu as une idée merci de me le dire

Commentaire de DarkanLeGrd le 24/10/2004 20:17:07

ok !

La version n'est plus la meme... !!!
et donc l'installation non plus.
Je regarde cela de plus pret et je te dis qlqchose.

A+

Commentaire de DarkanLeGrd le 24/10/2004 21:13:57

bon voilà l'adresse ou l'on peux charger l'ancienne version:

http://www.wanadoo.fr/bin/frame2.cgi?u=http%3A//logitheque.wanadoo.fr/categorie.html%3FN%3DTraduction%26PN%3DBureautique

avec elle plus de pb.

Commentaire de DarkanLeGrd le 24/10/2004 21:20:49

PS:

si vous voulez voir les Engines installez sur votre machine, allez dans 'Panneau config->voix->l'onglet 'autre' ->clickez sur le bouttons Aspi 4 - regardez dans la liste, tous les 'Engines' installez sont là !

Il faut bien evidemment avoir installé l'Aspi 4.0a de Crosoft. Elle est téléchargeable dans le lien que je donne dans la source en entete.

voilà... bossez bien!

Commentaire de VBFPB le 25/10/2004 00:11:18

J'ai telechargé DIGALOCOREFRA.EXE pour obtenir l'ancienne version apres install toujours pas de nouvelles voix accessibles depuis VB .
Dans le panneau de config  ASPI 4 je ne vois que les "engines" de LH et rien de ELAN DIGIT.
A+

Commentaire de VBFPB le 25/10/2004 00:28:09

Derniére nouvelle
Tout va bien ca fonctionne
IL FALLAIT avant d'installer la version ancienne RETIRER la plus recente
Merci DARKEN car les nouvelles voix sont sympa et enfin utilisables depuis VB

Commentaire de DarkanLeGrd le 25/10/2004 02:31:54

bien, heureux de voir que tout va bien...
ELANT fait un super boulot au niveau de la voix.
Leur tout dernier log est trés realiste. Le moteur d'ELANT est repris par de nombreux software du marché comme Dragon Speaking et bien d'autres.
On peu chrager la demo sur leur site, c'est assez impressionnant!!! Mais on ne peux utiliser ces voix....sniff... Le kit SDK pour devellopeur est trés couteux!
A bientot pour la suite....

Commentaire de VBFPB le 11/11/2004 16:59:45

Salut

Apres 15 jours de bons et loyaux services
les voix ne fonctionnet plus
un message invite a Enregistrer la version et faute
de le faire mon programme VB ne fonctionne plus avec les 2 voix françaises  ...........
ton commentaire initial disait le contraire .
Peux tu me dire si tu as le meme probléme

Merci

Commentaire de DarkanLeGrd le 12/11/2004 10:02:12

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+

Commentaire de VBFPB le 13/11/2004 16:15:37

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+++++++

Commentaire de abeloni le 16/03/2005 12:36:27

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

Commentaire de ghouitte le 19/07/2005 18:31:24

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

Commentaire de rock conrad le 13/12/2006 20:32:37

quelqu'un a t'il une idee sur une Speech recogntion speech to text en vb. contacter moi svp. aorconrad@hotmail.com

 Ajouter un commentaire

Nos sponsors


Sondage...

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

Photo Underwater View of the Ocean With LIght Shining Through the WavePhoto Beautiful woman in a bikini meditating on the beach
Photo Sparkling lagoon in the south pacific, Moorea, French Polynesia 

Visiter la photothèque
 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 1,498 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales
Outils Convertisseur VB/C# Snippets et scripts Outils en ligne La ToolBox
Communauté Programmation Photographie Technologie Newsgroups Emploi Forum Blogs
Guide d'achat Téléphonie mobile Image et son Informatique Bureautique Jeux vidéo
Logiciels Internet & Réseau Développement Market Android Jeux & Loisirs Graphisme Multimédia Sécurité Pilotes
Loisirs Cartes virtuelles Vidéos droles Jeux en ligne Géoguide AndroLib (Android Market)