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.
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
|