Auteur: Patrick BikerExemples évolués
Chaque exemple montre une utilisation pratique de la fonction du WLangage.
Quand plusieurs syntaxes sont possibles, chacune est illustrée indépendamment.
Le code suivant permet d'arrêter à un instant donné la compression d'un fichier. Le fichier à compresser et le fichier compressé sont sélectionnés avec la fonction fSélecteur . Une jauge permet d'indiquer le pourcentage de compression. Cette jauge sera affichée dans la barre de message.
|
||
|
--Code de clic sur BoutonCompresseFichier
// Code d'initialisation NumEven est un entier FichierACompresser est une chaîne FichierCompressé est une chaîne ResCompression est un entier // Sélection du fichier à compresser FichierACompresser = fSélecteur("", "", "Sélection du fichier à compresser",... "Tous fichiers (*.*)"+ TAB +"*.*", "", fselOuvre + fselExiste ) // Sélection du fichier compressé FichierCompressé = fSélecteur("", "", "Sélection du fichier compressé",... "Tous fichiers (*.*)"+ TAB +"*.*", "", fselCrée ) // Appel de l'événement pour afficher la jauge NumEven = Evénement("JaugeCompression", FenEnExecution(), JaugeCompactage ) // Compression du fichier ResCompression = fCompacte(FichierACompresser, FichierCompressé) // Fin de l'événement FinEvénement(NumEven) // Affichage du message d'erreur si la compression n'a pas été effectuée SI ResCompression <> 0 ALORS Erreur(ErreurInfo( errMESSAGE )) SINON Info("La compression a été effectuée") FIN // Procédure locale JaugeCompression PROCEDURE JaugeCompression(wMessage, wParam, lParam) SI wParam < 100 ALORS Jauge(wParam, 100) // Rafraîchissement de la fenêtre Multitache(-1) SINON // La compression est finie Jauge() FIN --Code de clic sur BoutonArrêtCompression SI OuiNon("Voulez-vous arrêter la compression en cours ?) = Vrai ALORS fStopCompacte () FIN
|
