Remerciez-le!

Remerciez @Admin pour avoir partagé cet document gratuitement, de la manière la plus simple, en partageant sur les réseaux sociaux.

Projet Exemples_YT PG_TextToSpeech 19/04/2018 1 Déclaration de PG_TextToSpeech

Projet Exemples_YT PG_TextToSpeech 19/04/2018 1 Déclaration de PG_TextToSpeech // Objet permettant d'effectuer la synthèse vocale gclTextToSpeech est un SpeechSynthesizer Procédure globale Parle // Résumé : Effectue une synthèse vocale du texte passé en paramètre // Syntaxe : //[ <Résultat> = ] Parle (<sPhrase> est chaîne [, <bBloquant> est booléen [, <nVitesse> est entier]]) // // Paramètres : // sPhrase (chaîne ANSI) : Texte à lire // bBloquant (booléen - valeur par défaut=1) : Vrai si la lecture du texte est bloquante, Faux sinon // nVitesse (entier - valeur par défaut=-1) : Vitesse de lecture // Valeur de retour : // booléen : Vrai si la synthèse a pu être lancée, Faux sinon // // Traitement automatique des exceptions : exécuter le bloc de code CAS EXCEPTION: // PROCÉDURE Parle(LOCAL sPhrase est une chaîne, LOCAL bBloquant est un booléen = Vrai, LOCAL nVitesse est un entier = -1) TANTQUE ParleLectureEnCours() = Vrai Multitâche(-1) FIN // Si aucune synthèse n'est en cours SI ParleLectureEnCours() = Faux ALORS // Sortie audio par défaut gclTextToSpeech:SetOutputToDefaultAudioDevice() SI nVitesse <> -1 ALORS // Modifie la vitesse de lecture gclTextToSpeech:set_Rate(nVitesse) FIN SI bBloquant ALORS // Lecture synchrone gclTextToSpeech:Speak(sPhrase) SINON // Lecture asynchrone gclTextToSpeech:SpeakAsync(sPhrase) FIN RENVOYER Vrai SINON RENVOYER Faux FIN CAS EXCEPTION: RENVOYER Faux Procédure globale ParleFin // Résumé : Met fin à toutes les synthèses vocales en cours // Syntaxe : //[ <Résultat> = ] ParleFin () // // Paramètres : Projet Exemples_YT PG_TextToSpeech 19/04/2018 2 // Aucun // Valeur de retour : // booléen : Vrai si la fonction a pu être exécutée, Faux sinon // // Traitement automatique des exceptions : exécuter le bloc de code CAS EXCEPTION: // Procédure ParleFin() // Si aucune synthèse n'est en cours SI ParleLectureEnCours() = Faux ALORS RENVOYER Vrai // Met fin à toutes les synthèses vocales en cours gclTextToSpeech:SpeakAsyncCancelAll() renvoyer vrai CAS EXCEPTION: renvoyer faux Procédure globale ParleLectureEnCours // Résumé : Indique si une synthèse vocale est en cours d'exécution // Syntaxe : //[ <Résultat> = ] ParleLectureEnCours () // // Paramètres : // Aucun // Valeur de retour : // booléen : Vrai si une lecture est en cours, Faux sinon // // Traitement automatique des exceptions : exécuter le bloc de code CAS EXCEPTION: // Procédure ParleLectureEnCours() RENVOYER (gclTextToSpeech:get_State() <> SynthesizerState::Ready) CAS EXCEPTION: renvoyer Faux Procédure globale ParleVersFichier // Résumé : Effectue une synthèse vocale du texte passé en paramètre vers un fichier audio (au format WAV) // Syntaxe : //[ <Résultat> = ] ParleVersFichier (<sPhrase> est chaîne, <sFichierAudioSortie> est chaîne [, <bBloquant> est booléen [, <nVitesse> est entier]]) // // Paramètres : // sPhrase (chaîne ANSI) : Texte à lire // sFichierAudioSortie (chaîne ANSI) : Chemin complet du fichier audio qui sera généré // bBloquant (booléen - valeur par défaut=1) : Vrai si la lecture du texte est bloquante, Faux sinon // nVitesse (entier - valeur par défaut=-1) : Vitesse de lecture // Valeur de retour : // booléen : Vrai si la synthèse a pu être lancée, Faux sinon // // Traitement automatique des exceptions : exécuter le bloc de code CAS EXCEPTION: // Procédure ParleVersFichier(local sPhrase est une chaine, local sFichierAudioSortie est une chaine, local bBloquant est un booléen = vrai, local nVitesse est un entier = -1) Projet Exemples_YT PG_TextToSpeech 19/04/2018 3 // Si aucune synthèse n'est en cours SI ParleLectureEnCours() = Faux ALORS // Sortie audio dans le fichier spécifié gclTextToSpeech:SetOutputToWaveFile(sFichierAudioSortie) SI nVitesse <> -1 ALORS // Modifie la vitesse de lecture gclTextToSpeech:set_Rate(nVitesse) FIN SI bBloquant ALORS // Lecture synchrone gclTextToSpeech:Speak(sPhrase) SINON // Lecture asynchrone gclTextToSpeech:SpeakAsync(sPhrase) FIN RENVOYER Vrai sinon RENVOYER Faux FIN CAS EXCEPTION: RENVOYER Faux Procédure globale VérifieVersionDOTNET // Résumé : Vérifie la version de DOTNET installée // Syntaxe : //[ <Résultat> = ] VérifieVersionDOTNET () // // Paramètres : // Aucun // Valeur de retour : // booléen : Vrai si une version compatible du framework DOTNET a été trouvée, Faux sinon // Procédure VérifieVersionDOTNET() sListeVersion est une chaine sVersion est une chaine rVersionMAX est un reel bVersionOK est un booléen // Récupère la liste des versions de DOTNET installées sListeVersion = DotNetVersion(dnvListe) // Parcours la liste des versions pour toute chaine sVersion de sListeVersion separee par rc // Détermine la version maximum si rVersionMAX < val(sVersion) ALORS rVersionMAX = Val(sVersion) FIN FIN // Le framework DOTNET 3.0 minimum doit être présent si rVersionMAX < 3.0 alors bVersionOK = faux sinon bVersionOK = vrai FIN Projet Exemples_YT PG_TextToSpeech 19/04/2018 4 renvoyer bVersionOK uploads/Litterature/ pg-texttospeech.pdf