pictogram Auteur: Patrick Biker
Date: 18 mars 2006
Maj : 21 Mars 2015

Exemples évolués

Chaque exemple montre une utilisation pratique de la fonction du WLangage.

Quand plusieurs syntaxes sont possibles, chacune est illustrée indépendamment.

Revenir à la page des exemples évolués


Le code suivant permet de décompresser un fichier. Le fichier à décompresser et le fichier décompressé sont sélectionnés avec la fonction fSélecteur . Une jauge permet d'indiquer le pourcentage de décompression. Cette jauge sera affichée dans la barre de message.



--Code de clic sur BoutonDécompresseFichier
// Code d'initialisation
NumEven est un entier
FichierADécompresser est une chaîne
FichierDécompressé est une chaîne
ResDécompression est un entier
// Sélection du fichier à décompresser
FichierADécompresser = fSélecteur("", "", "Sélection du fichier à décompresser",…
      "Tous fichiers (*.*)"+ TAB +"*.*", "", fselOuvre + fselExiste )
// Sélection du fichier décompressé
FichierDécompressé = fSélecteur("", "", "Sélection du fichier décompressé",…
      "Tous fichiers (*.*)"+ TAB +"*.*", "", fselCrée )
// Appel de l'événement pour afficher la jauge
NumEven = Evénement("JaugeDécompression", FenEnExecution(), JaugeCompactage )
// Décompression du fichier
ResDécompression = fDécompacte (FichierADécompresser, FichierDécompressé)
// Fin de l'événement
FinEvénement(NumEven)
// Affichage du message d'erreur si la décompression n'a pas été effectuée
SI ResDécompression <> 0 ALORS
   Erreur(ErreurInfo( errMESSAGE ))
SINON
   Info("Le fichier a été décompressé")
FIN

// Procédure locale JaugeDécompression
PROCEDUREJaugeDécompression(wMessage, wParam, lParam)
SI wParam < 100 ALORS
   Jauge(wParam, 100)
   // Rafraîchissement de la fenêtre
  
Multitache(-1)
SINON
   // La décompression est finie
  
Jauge()
FIN


Le code suivant permet de décompresser un fichier.



--Code de clic sur BoutonDécompresseFichier
// Code d'initialisation
NumEven est un entier
FichierADécompresser est une chaîne
FichierDécompressé est une chaîne
ResDécompression est un entier
// Sélection du fichier à décompresser
FichierADécompresser = "C:\MesRépertoires\FichierCompressé.tx_"
// Sélection du fichier décompressé
FichierDécompressé = "C:\MesRépertoires\Fichier.txt"
// Décompression du fichier
ResDécompression = fDécompacte (FichierADécompresser, FichierDécompressé)
// Affichage du message d'erreur si la décompression n'a pas été effectuée
SI ResDécompression <> 0 ALORS
   Erreur(ErreurInfo( errMESSAGE ))
SINON
   Info("Le fichier a été décompressé")
FIN