Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS

CodeS-SourceS est hébergé par Frontier.fr

Cliquez ici pour mettre ce site au démarrage de votre navigateur

AccueilCodesTutorielsForumsEmploiLivresGuide achatConnexion

begin process at 2009 07 06 01:29:58

SILVERLIGHT 3 : COMMUNICATION ET MULTICAST par KooKiz

[PERSO] DéCOUVERTES ESTIVALES : LINUX (PART I) par FREMYCOMPANY

[REFACTORING] RESHARPER POUR VISUAL STUDIO 2010 (PREVIEW) par tja

[REFACTORING] ANALYSER VOS EXCEPTIONS AVEC RESHARPER EXCEPTIONAL par tja

SHAREPOINT 2007 : PATTERNS & PRACTICES SHAREPOINT GUIDANCE par phil

RE : RECUPERER LE RESULTAS AFFICHER PAR LINVITE DE COMMANDE par jack

RECUPERER LE RESULTAS AFFICHER PAR LINVITE DE COMMANDE par liehuos001

RE : LORSQUE JE VEUX FAIRE LES ENREGISTREMENT DANS MA TABLE EN VB.NET UN MESSAGE S'AFFICHE EN ME DISANT QUE LE CHAMPS EST PETIT. QUE FAIE? par PCPT

RE : BUFFERING par pingouin84k

RE : SIMULER CTRL+A PUIS CTRL+C NE MARCHE PAS TOUT LE TEMPS .. POURQUOI ? par Renfield

+ de logiciels à télécharger

1 464 951 membres
8 nouveaux aujourd'hui
15 046 membres club

Trouver une ressource

Trouvez une ressource parmi 40 095 codes, 1 303 045 messages d'aide etc...

Recherche: dans [ Dernières recherches ]

Filtre:Tous les codes.NET uniquementExclure .NET

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

DIRECT TEXT-TO-SPEECH EXEMPLE

Information sur la source

Catégorie :API Niveau : Débutant Date de création : 23/10/2004 Vu / téléchargé: 9 673 / 1 267

Auteur : DarkanLeGrd

Ecrire un message privé

Note :

9,00 / 10

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

Pour les "Membres Club", vous pouvez télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Form2.frm 6 349 octets
Form2.frx126 octets
Projet2.vbp 745 octets
Projet2.vbw 49 octets

Télécharger le zip

Sources de la même categorie

IP_PUBLIQUE_INTERNETGETCONNECTEDSTATE par marco62118

TOUTES LES RÉSOLUTIONS D'ÉCRAN ET TAILLE MAXI DE LA FORM AUD... par marco62118

UTILISER L'API DE GOOGLE (CALENDRIER) par Any_Problem_Have_Solution

WIFI MANAGÉ (WLANAPI) EN VB.NET par fadelovesky

GÉNÉRER UN DOCUMENT RTF EN VBA/VB AMÉLIORÉ par Triboutmatthieu

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