version 2.00
j'inclue maintenant le source de la librairie 
j'ai ajouté la fonction qui cherche le nom des voix installées !!
Getvoix()
ça retourne une chaine qui contient le nombre de voix trouvé
et ensuite les noms des voix séparé par des virgules
avec un simple stringfield(), il est facile de séparé ces données pour l'exploitation
comme l'exemple ci dessous
:
maintenant le nom de la voix fait partie de l'appel de la fonction
Speak()
voix$=getvoix() ; on recupere le nombre et le nom des voix installé
; getvoix() retourne une chaine "nbr_de_voix,voix1$,voix2$,voix3$........ etc "
nombre = Val ( StringField (voix$,1, "," )) ; recupere le nombre de voix installé (premier element de la chaine)
voix$= Right (voix$, Len (voix$)-2) ; on retire le nombre de voix, et sa virgule de la liste des noms de voix
For i=1 To nombre ;
Debug StringField (voix$,i, "," ) ; ressort tout les noms des voix installées
Next i
;vo$=StringField(voix$,1,",") ; on en choisi une la premiere
vo$= "Microsoft Sam" ; ou on donne son nom
Speak(vo$, "hello, how are you ?" ,100,-5) ; Speak2 (text$,volume,vitesse de diction)
; vo$=StringField(voix$,2,",") ; on en choisi une autre la deuxiemme (chez moi c'est virginie)
vo$= "ScanSoft Virginie_Dri40_16kHz" ; ou l'on donne directe le nom de virginie
Speak(vo$, "Bonjour, comment allez vous ?" ,100,-5) ; Speak2 (Text$,Volume,vitesse de diction)
amusez vous bien , je vous met rapidement les liens vers les voix
que je dispose
vous trouverez la voix de virginie ici :
http://michel.dobro.free.fr/Forum_PB/Virginie.zip
