Voix francaise avec W7

DIM bal$, par$

bal$ = "C:\Progra~2\Balabolka\balabolka.exe ": ' ... chemin à ajuster...
par$ = " -rnmq " +chr$(34) + "Bonjour les amis" + CHR$(34)

EXECUTE_WAIT bal$ + par$

END

' Balabolka la synthèse vocale en ligne de commande
'
' Balabolka accepte les paramètres en ligne de commande :
' balabolka.exe [-options] [nom_de_fichier] [fichier_audio] [voix]
'
' Le paramètre voix est défini de manière suivante :
' nom_de_voix [rDébit] [pTimbre]
' nom_de_fichier    => ouvrir fichier texte
' -c                => lire à haute voix le contenu du presse-papiers
' -c nom_de_voix    => choisir une voix et lire à haute voix le contenu du presse-papiers
' -m                => lancer en fenêtre réduite
' -r nom_de_fichier  => ouvrir le fichier et lire à haute voix dès le début
' -r nom_de_fichier nom_de_voix  => ouvrir le fichier, choisir une voix et lire à haute voix dès le début
' -s nom_de_fichier fichier_audio => ouvrir le fichier et enregistrer le texte sous fichier audio (WAV, MP3, MP4, OGG ou WMA)
' -s nom_de_fichier fichier_audio nom_de_voix => ouvrir le fichier, choisir une voix et enregistrer le texte sous fichier audio
' -q                => fermer le programme après la fin de la lecture
' Le nom de la voix peut être défini par un seul mot, par exemple : Jean-Pierre. Le programme va choisir le nom approprié dans la liste des voix (SAPI 5, puis SAPI 4).
'
' Plusieurs options peuvent être fixées à la fois :
' -rm nom_de_fichier => lancer le programme en fenêtre réduite et lire le fichier spécifié
' -rq nom_de_fichier => lire le fichier spécifié et fermer le programme après la fin de la lecture
'
' Par exemple :
'        balabolka.exe book.txt
'        balabolka.exe -rmq book.txt
'        balabolka.exe -sq "c:\my books\book.txt" "c:\my files\book.wav"
'        balabolka.exe -s "c:\my books\book.txt" "c:\my files\book.wav" Bruno
'
' S'il est nécessaire de définir dans la ligne de commande non pas le nom d'un fichier texte, mais une ligne de texte, les options doivent contenir un modificateur spécial :
' -n [ligne_de_texte]  => ce paramètre signifie que la ligne de commande contient une ligne de texte au lieu du nom de fichier (le texte doit être entre les guillemets)
' Par exemple :  balabolka.exe -n "Exemple de texte."
'
' Les utilisateurs ont demandé d'ajouter deux paramètres spéciaux (pour les essais de correction de l’articulation) :
' -d nom_de_fichier nom_de_dossier    => lancer le programme en fenêtre réduite, ouvrir le fichier texte (nom_de_fichier), diviser le texte en parties en utilisant les paramètres de la fenêtre « Fractionner le fichier », sauvegarder de nouveaux fichiers texte dans le dossier (nom_de_dossier) et fermer le programme
' -t nom_de_fichier1 nom_de_fichier2  => lancer le programme en fenêtre réduite, ouvrir le fichier texte (nom_de_fichier1), appliquer les règles de correction de l’articulation au texte, enregistrer le texte modifié sous le nouveau fichier (nom_de_fichier2) et fermer le programme
' Ces deux paramètres peuvent être utilisés ensemble :
' -dt nom_de_fichier nom_de_dossier1 [nom_de_dossier2] => lancer le programme en fenêtre réduite, ouvrir le fichier texte, diviser le texte en parties, appliquer les règles de correction de l’articulation au texte, sauvegarder de nouveaux fichiers texte dans le dossier (nom_de_dossier1) et fermer le programme ; si l’autre paramètre est défini (nom_de_dossier2), les fichiers texte seront sauvegardés dans ce dossier avant l'application des règles de correction de l’articulation (ce qui peut être utile pour comparer les textes avant et après l’application des règles)
' Par exemple :  balabolka.exe -dt book.txt c:\changed\

DIM bal$          :  bal$ = "C:\Progra~2\Balabolka\balabolka.exe ": ' ... à ajuster...
DIM par$          :  par$ = " -rnmq "
DIM message$  :  message$ = "Bonjour les amis"
DIM voix$          :  voix$ = " Virginie r2 p4"

EXECUTE_WAIT bal$  + par$ + CHR$(34)+ message$ + CHR$(34) + voix$
END

LABEL Parler
DIM bal$, par$, par2$, voix$, a$, txt$, debit, timbre
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,120: 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, 53: CAPTION 3,"Débit:            Timbre:"
SPIN 4: TOP 4,50: LEFT 4, 40: WIDTH 4, 45
MIN 4, -10: MAX 4, 10: POSITION 4, debit
SPIN 5: TOP 5,50: LEFT 5, 130: WIDTH 5, 45
MIN 5,-10: MAX 5, 10: POSITION 5, timbre
BUTTON 8: TOP 8,50: LEFT 8,220: WIDTH 8,100: CAPTION 8, "Dire le texte"
ON_CLICK 8, Parler
BUTTON 9: TOP 9, 50: LEFT 9,380: WIDTH 9,100: CAPTION 9,"Texte type"
ON_CLICK 9, Parler
END

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