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 d'ouvrir un fichier sélectionné. Le sélecteur de fichiers s'ouvre en ouverture de fichier (constante fSelOuvre). Seuls les fichiers existants apparaissent dans le sélecteur de fichiers (constante fSelExiste). Le fichier sélectionné est ouvert en mode lecture/écriture.



// Déclaration des variables
NomCheminFichier est une chaîne
IdFichier est un entier
// Sélection du fichier à ouvrir
NomCheminFichier = fSélecteur ("C:\MesRépertoires" , "Fichier.txt" , ...
       "Sélectionner un fichier" , "Fichier Texte (*.TXT)" + TAB + ...
        "*.txt" + RC + "Tous fichiers (*.*)" + TAB + "*.*" , "TXT" , fSelOuvre+ fSelExiste )
// Ouverture du fichier
IdFichier = fOuvre(NomCheminFichier , foLectureEcriture )
// Affichage du message d'erreur si l'ouverture n'a pas été effectuée
SI IdFichier = 1 ALORS
   Erreur(ErreurInfo( errMESSAGE ))
SINON
   // Traitements dans le fichier ouvert
   ...
   // Fin de traitements
FIN


Le code suivant permet de sélectionner un fichier son (de type ".WAV"). Le sélecteur de fichiers s'ouvre en ouverture de fichier (constante fselOuvre). Seuls les fichiers existants apparaissent dans le sélecteur de fichiers (constante fSelExiste). Lors d'un clic sur un fichier présent dans le sélecteur de fichiers, le son est joué.



--Code de création de la fenêtre
GLOBAL
   NomCheminFichier est une chaîne

--Code de clic sur BoutonSelectFichier
// Code d'initialisation
NumEven est un entier
// Déclaration de l'événement pour jouer le fichier son sélectionné
NumEven = Evénement("JouerSon" , FenEnExecution (), 1624 )
// Sélection d'un fichier son
NomCheminFichier = fSélecteur ("C:\MesRépertoires" , "" , "Sélectionner un fichier son" , ...
        "Son wave (*.WAV)" + TAB + "*.wav" , "" , fselOuvre + fselExiste + fselChange )
// Fin de l'événement
FinEvénement(NumEven )
// Traitements dans le fichier sélectionné
...
// Fin des traitements

// Procédure locale à la fenêtre. Cette procédure permet de jouer le fichier son
PROCEDURE JouerSon(wMessage , wParam , lParam )
NomFichier est une chaîne fixe sur 261
// Le chemin du fichier ne peut pas dépasser 260 caractères.

// Récupération de la chaîne qui contient le nom du fichier en cours de sélection
Transfert (& NomFichier , lParam , wParam )
// NomFichier : chaîne recevant le nom du fichier actuellement sélectionné
// lParam : adresse de la chaîne contenant le nom du fichier en cours de sélection
// wParam : taille de la chaîne contenant le nom du fichier en cours de sélection

// Exécution du fichier son sélectionné
Son(NomFichier )


Le code suivant permet d'ouvrir un fichier sélectionné. Le sélecteur de fichiers s'ouvre en ouverture de fichier (constante fselOuvre ). Seuls les fichiers existants apparaissent dans le sélecteur de fichiers (constante fselExiste ). Le fichier sélectionné est ouvert en mode lecture/écriture.



// Déclaration des variables
NomCheminFichier est une chaîne
IdFichier est un entier
// Sélection du fichier à ouvrir
// dans le répertoire "\Mes Documents\MesFichiers"
NomCheminFichier = fSélecteur ("MesFichiers", "Fichier.txt", "Sélectionner un fichier",...
      "Fichier Texte (*.TXT)"+ TAB +"*.txt"+ RC +"Tous fichiers (*.*)"+ TAB +"*.*",...
      "TXT", fSelOuvre + fSelExiste )
// Ouverture du fichier
IdFichier = fOuvre(NomCheminFichier, foLectureEcriture )
// Affichage du message d'erreur si l'ouverture n'a pas été effectuée
SI IdFichier = -1 ALORS
    Erreur(ErreurInfo( errMESSAGE ))
SINON
    // Traitements dans le fichier ouvert
    ...
    // Fin de traitements
FIN