librairie Speak()

[Backup]

je me suis amusé a refaire une petite lib qui permet de faire parler le purebasic en utilisant l'Api

voulez vous bien tester si ça marche chez vous ?

http://michel.dobro.free.fr/download.php?view.23

l'installateur s'occupe d'installer la lib dans purebasic
et l'exemple d'utilisation dans le repertoire de purebasic !!

l'utilisation est tres simple

Code : Tout sélectionner

Speak("on fait parler PureBasic !!.",100,-5) ; speak (text$,volume,vitesse de diction)

Speak("on fait parler PureBasic.",100,-50) ; Speak (Text$,Volume,vitesse de diction)

dites moi si c'est Sam qui parle chez vous ou virginie ??

si c'est Sam avec son accent anglais , j'inclurai dans l'installe
l'installe de Virginie (superbe voix féminine française )

[Cls]

Je suis au boulot : c'est l'ami Sam qui m'a parlé

[Anonyme]

C'est Sam , là je file à l'hosto , je viens de faire une crise d'épilepsie sur ton site

[jbernard13]

j'ai une voix de robot qui parle doucement

[Anonyme]

Code : Tout sélectionner

T$ = "66,69,82,78,65,82,68,32,44,32,74,69,32,83,85,73,83,32,84,79,78,32,80,232,82,69,46,32"
For i = 1 To CountString(T$,",")+1 : P$+Chr(Val(StringField(T$,i,","))):Next 
Speak(p$,100,-50) 

Même là Bernard ?

[Progi1984]

Code : Tout sélectionner

T$ = "66,69,82,78,65,82,68,32,44,32,74,69,32,83,85,73,83,32,84,79,78,32,80,232,82,69,46,32"
For i = 1 To CountString(T$,",")+1 : P$+Chr(Val(StringField(T$,i,","))):Next 
Speak(p$,100,-50) 

Même là Bernard ?

Un simple mot : lol !

[Backup]

excellent

[jbernard13]

ça gresille

[Backup]

dans l'archive qui fait 23 mo
j'ai joins la voix de virginie , vous n'avez qu'a l'installer

http://michel.dobro.free.fr/download.php?view.23

[jbernard13]

si c'est Efira je veux bien

[Anonyme]

Toujours sam , j'avais déjà la grognasse , ton fichier ne ma servi qu'a "réparer..."

[Backup]

Toujours sam , j'avais déjà la grognasse , ton fichier ne ma servi qu'a "réparer..."

normal !!

faut allez dans le panneau de config, Voix , choisir Virginie comme voix par defaut !!

faudrai que je trouve le moyen d'activer ce choix sans que l'utilisateur s'emmerde

pour l'instant je n'ai que ça pour afficher le panneau

Code : Tout sélectionner

RunProgram("C:\Program Files\Fichiers communs\Microsoft Shared\Speech\sapi.cpl") ; panneau de  config Xp

mais pour forcer une voix .... mystere !!


je vais dormir , on verra ça plus tard

[Progi1984]

C'est du SAPI ?

[Backup]

C'est du SAPI ?

oui
je suis parti de codes se trouvant sur le forum anglais
et je voulais faire une lib concise, qui n'utilise pas d'autres lib

je sais qu'il existe deja des lib toute faite, mais de ne pas avoir les source, ça me rend nerveux

je veux faire avec cette lib, ce que j'avais fait avec le code sur les skins de fenetre facile ...

je sais deja qu'on peut lister les voix par le registre

mais pour en activer une ..... sapi 4 OU(ET) 5

sam = Sapi4
Virginie = Sapi5

de plus ici
http://www.purebasic.fr/french/viewtopi ... light=sapi

Nico a fait un boulot remarquable

[Backup]

c'est bon !!

avec ma lib, il suffit de faire

Code : Tout sélectionner

voix.s="<voice required="+Chr(34)+"Name= Microsoft Sam"+Chr(34)+"/>"
Speak(voix.s+"on fait parler ,PureBasic !!.",100,-5) ; Speak2 (text$,volume,vitesse de diction)

voix.s="<voice required="+Chr(34)+"Name=ScanSoft Virginie_Dri40_16kHz"+Chr(34)+"/>" ; change la voix

Speak("on fait parler, PureBasic.",100,-50) ; Speak2 (Text$,Volume,vitesse de diction)

je vais inclure ça dans la lib
de façon a l'ajouter dans un parametre !!

et aussi une fonction pour lister les voix presente



ps : Grand Merci Nico , tu m'avais donné la soluce, mais a l'epoque, mon cerveau n'avait pas encore évolué

j'en avais marre d'avoir ce "Esteban1" du forum anglais qui gardait ses sources pour lui !!

ps: j'ai une sacres collections de voix sapi4