Sur nono2009 j'ai une erreur:
"le fichier Tampon ne peut être ouvert (nonoparle)
prévenir Dobro en donnant le mot" ??
Code : Tout sélectionner
; exemple d'appel
; nono(A$, B, C )
; A$: phrase_a_dire$
; B: panoramique de : 0=gauche a 200=droite : 100=Centre
; C: si 0=affiche la tete , si 1=n'affiche pas la tete (moins de temps machine pris)
; exemple :
phrase.s = "coucou, je m'appel Nono , et je suis enchanté de pouvoir vous parler "
nono(phrase.s, 100, 1)
Dans tous le cas Merci et Bravo Dobro pour Speak
Je n'ai pas trouvé la source de nono parcontre j'ai celui de Speak
Voici un exemple avec choix de la personne et
variation sur Volume et Vitesse de Speak
Code : Tout sélectionner
voix$ = getvoix() ; on recupere le nombre et le nom des voix installé
; getvoix() retourne une chaine "nbr_de_voix,voix1$,voix2$,voix3$........ etc "
Dim t_v.s(10)
Debug voix$
nombre.i = 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
vi$ = ""
Speak(vo$, "Bonjour, comment allez vous ?", 100, -5) ; Speak2 (Text$,Volume,vitesse de diction)
t_v(0) = Str(nombre)
;**************************************************************************************************************************
If OpenWindow(0, 0, 0, 300, 100, "ComboBoxGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
ComboBoxGadget(0, 10, 10, 290, 20, #PB_ComboBox_Editable)
EndIf
;**************************************************************************************************************************
For i = 1 To nombre ;
Debug StringField(voix$, i, ",") ; ressort tout les noms des voix installées
t_v(i) = StringField(voix$, i, ",")
AddGadgetItem(0, -1, t_v(i))
Next i
mgg$ = gg$
Repeat
gg$ = GetGadgetText(0)
Until (WaitWindowEvent() = #PB_Event_CloseWindow) And gg$<>mgg$
Debug gg$
#stpx = 20
For vol.i = -100 To 100 Step #stpx
For vit.i = -100 To 100 Step #stpx
chx.i = Abs(vol*vit)
ch.i = (chx%(nombre))
If ch = 0 : ch + 1 : EndIf
vo$ = t_v(ch) ; ou l'on donne directe le nom de virginie
text$ = "Bonjour " + t_v(ch) + " , Volume , " + Str(Vol) + " , vitesse , " + Str(vit)
;Debug formn(ch) + " " + forms(gg$) + " , " + forms(text$)
Speak(gg$, text$, Vol, vit) ; Speak2 (voix$,Text$,Volume,vitesse de diction)
; Debug formn(ch) + " " + forms(vo$) + " , " + forms(text$)
; Speak(vo$, text$, Vol, vit) ; Speak2 (voix$,Text$,Volume,vitesse de diction)
Next
Next
A+ et encore Merci
)
Nono2009 
, bon toute proportion gardée, dites moi ce que vous en pensez ...
