Voix francaise avec W7

LABEL Parler, Maj
DIM bal$, par$, par2$, voix$, a$, txt$, debit, timbre, i%
bal$ = "C:\Progra~2\Balabolka\balabolka.exe ": ' ... chemin à ajuster...
par$ = "-rnmq "
voix$ = " Virginie"
debit = -2: ' -10 à +10
timbre = 4: ' -10 à +10

' Imparfait du subjonctif (Alphonse Allais)
DATA "Oui, dès l'instant que je vous vis,"
DATA "Beauté féroce, vous me plûtes !"
DATA "De l'amour qu'en vos yeux je pris,"
DATA "Sur-le-champ vous vous aperçûtes."
DATA "Ah ! fallait-il que je vous vîsse,"
DATA "Fallait-il que vous me plussiez,"
DATA "Qu'ingénument je vous le disse,"
DATA "Qu'avec orgueil vous vous tussiez !"
DATA "Fallait-il que je vous aimasse,"
DATA "Que vous me désespérassiez."
DATA "Et qu'en vain je m'opiniâtrasse"
DATA "Et que je vous idolâtrasse,"
DATA "Pour que vous m'assassinassiez !"
DATA "F"
txt$ = "": READ a$
WHILE a$ <> "F"
    txt$ = txt$ + a$ + CHR$(13) + CHR$(10): READ a$
END_WHILE

HEIGHT 0,180: FONT_BOLD 0: COLOR 0,190,255,255: CAPTION 0, " - SYNTHÉTISEUR -"
ALPHA 1: TOP 1,5: CAPTION 1,"Entrez le texte à synthétiser:"
EDIT 2: TOP 2,20: WIDTH 2,580

ALPHA 3: TOP 3, 62: CAPTION 3,"Débit:"
TRACK_BAR 4: TOP 4,60: LEFT 4,40: WIDTH 4,250
ALPHA 5: TOP 5,45: LEFT 5,40
CAPTION 5,"-10                          0                        +10"
ALPHA 6: TOP 6, 62: LEFT 6,295: CAPTION 6, STR$(debit)
FONT_COLOR 6,128,0,0

ALPHA 7: TOP 7, 92: CAPTION 7,"Timbre:"
TRACK_BAR 8: TOP 8,90: LEFT 8,40: WIDTH 8,250
ALPHA 9: TOP 9,92: LEFT 9,295: CAPTION 9, STR$(timbre)
FONT_COLOR 9,128,0,0
FOR i% = 4 TO 8 STEP 4
    MIN i%,-10: MAX i%,10: ON_CHANGE i%, Maj
NEXT i%
POSITION 4,debit: POSITION 8,timbre

BUTTON 10: TOP 10,80: LEFT 10,350: WIDTH 10,100: CAPTION 10, "Dire le texte"
ON_CLICK 10, Parler
BUTTON 11: TOP 11, 80: LEFT 11,480: WIDTH 11,100: CAPTION 11,"Texte type"
ON_CLICK 11, Parler
END

Parler:
IF CLICKED(10) = 1
    a$ = TEXT$(2): IF a$ = "" THEN a$ = "Entrer un texte"
ELSE
    a$ = txt$
END_IF
par2$ = voix$ + " r"+STR$(debit) + " p"+STR$(timbre)
EXECUTE_WAIT bal$ + par$ + CHR$(34) + a$ + CHR$(34) + " " + par2$
RETURN

Maj:
debit = POSITION(4): CAPTION 6, STR$(debit)
timbre = POSITION(8): CAPTION 9, STR$(timbre)
RETURN

LABEL Parler, Maj
DIM bal$, par$, par2$, voix$, a$, txt$, debit, timbre, i%
bal$ = "C:\Progra~2\Espeak\comman~1\Espeak ": ' ... chemin à ajuster...
' par$ = "-v mb-fr1+m3 "
par$ = "-v mb-fr1+f20 "
voix$ = " "
debit = 120 : ' 80 à +450
timbre = 50 : ' 0 à 99

' Baudelaire, Les fleurs du mal II
DATA "Souvent, pour s'amuser, les hommes d'équipage"
DATA "Prennent des albatros, vastes oiseaux des mers,"
DATA "Qui suivent, indolents compagnons de voyage,"
DATA "Le navire glissant sur les gouffres amers."
DATA "A peine les ont-ils déposés sur les planches,"
DATA "Que ces rois de l'azur, maladroits et honteux,"
DATA "Laissent piteusement leurs grandes ailes blanches"
DATA "Comme des avirons traîner à côté d'eux."
DATA "Ce voyageur ailé, comme il est gauche et veule!"
DATA "Lui, naguère si beau, qu'il est comique et laid!"
DATA "L'un agace son bec avec un brûle-gueule,"
DATA "L'autre mime, en boitant, l'infirme qui volait!"
DATA "Le Poète est semblable au prince des nuées"
DATA "Qui hante la tempête et se rit de l'archer,"
DATA "Exilé sur le sol au milieu des huées,"
DATA "Ses ailes de géant l'empêchent de marcher."
DATA "F"
txt$ = "": READ a$
WHILE a$ <> "F"
    txt$ = txt$ + a$ + CHR$(13) + CHR$(10): READ a$
END_WHILE

HEIGHT 0,180: FONT_BOLD 0: COLOR 0,190,255,255: CAPTION 0, " - SYNTHÉTISEUR -"
ALPHA 1: TOP 1,5: CAPTION 1,"Entrez le texte à synthétiser:"
EDIT 2: TOP 2,20: WIDTH 2,580

ALPHA 3: TOP 3, 62: CAPTION 3,"Débit:"
TRACK_BAR 4: TOP 4,60: LEFT 4,40: WIDTH 4,250 : MIN 4,80: MAX 4,450
ALPHA 5: TOP 5,45: LEFT 5,40
ALPHA 6: TOP 6, 62: LEFT 6,295: CAPTION 6, STR$(debit): FONT_COLOR 6,128,0,0

ALPHA 7: TOP 7, 92: CAPTION 7,"Timbre:"
TRACK_BAR 8: TOP 8,90: LEFT 8,40: WIDTH 8,250 : MIN 8,0: MAX 8,99
ALPHA 9: TOP 9,92: LEFT 9,295: CAPTION 9, STR$(timbre) : FONT_COLOR 9,128,0,0

POSITION 4,debit : POSITION 8,timbre : ON_CHANGE 4, Maj : ON_CHANGE 8, Maj

BUTTON 10: TOP 10,80: LEFT 10,350: WIDTH 10,100: CAPTION 10, "Dire le texte"
ON_CLICK 10, Parler
BUTTON 11: TOP 11, 80: LEFT 11,480: WIDTH 11,100: CAPTION 11,"Texte type"
ON_CLICK 11, Parler
END

Parler:
IF CLICKED(10) = 1
    a$ = TEXT$(2): IF a$ = "" THEN a$ = "Entrer un texte"
ELSE
    a$ = txt$
END_IF
par2$ = " -s"+STR$(debit) + " -p"+STR$(timbre)+" "
EXECUTE_WAIT bal$ + par2$  + par$ + CHR$(34) + a$ + CHR$(34)
RETURN

Maj:
debit = POSITION(4): CAPTION 6, STR$(debit)
timbre = POSITION(8): CAPTION 9, STR$(timbre)
RETURN