Fonctions CE

Des exemples d'utilisation des fonctions du WLangage

Rien de tel qu'un exemple pour comprendre une fonction de WLangage. Dans cette section, vous trouverez des exemples simples.

Des exemples évolués, où la fonction est utilisée en contexte, sont également disponible sur ce site.

Aller à la page des exemples évolués

ceConnecte (en anglais ceConnect)

// Ouverture d'une connexion avec le Pocket PC
ResConnexion est un booléen = ceConnecte ()
// Problème rencontré ?
SI ResConnexion = Vrai ALORS
Info("La connexion est établie.")
SINON
Erreur(ErreurInfo())
FIN

Début de la page

ceCopieFichier (en anglais ceCopyFile)

// Copie du fichier "Image.GIF" présent dans le répertoire en cours
// du poste en cours vers le Pocket PC connecté
// Si ce fichier existe déjà sur le Pocket PC,
// ce fichier est écrasé (constante ceEcrase)
ResCopie = ceCopieFichier ( cePCVersPocket + ceEcrase , "Image.GIF", ...
                            "\MesImages\Photo.GIF")
// Problème rencontré ?
SI ResCopie = Vrai ALORS
    Info("La copie a été effectuée.")
SINON
    Erreur(ErreurInfo())
FIN

Début de la page

ceCopieFichier (en anglais ceCopyFile)

// Copie les fichiers présents dans le répertoire
// "\MesImages" sur le Pocket PC
// connecté vers le poste en cours
// Les sous-répertoires et leurs fichiers sont
// pris en compte (constante ceRécursif)
ResCopie = ceCopieFichier ( cePocketVersPC + ceRécursif , ...
"\MesImages\*.*", "C:\MesFichiers\", ...
GestionProgression)

---Code de la procédure GestionProgression
Procédure GestionProgression(TotalOctet, TotalTransmis)
// Affiche la progression de la copie dans la barre de message
Message("Copie en cours : " +TotalTransmis+" / "+ TotalOctet)
Renvoyer Vrai

Début de la page

ceCreeRaccourci (en anglais ceCreateShortcut)

// Création d'un raccourci dans le menu "Programme"
ceCréeRaccourci("Exemple de raccourci", ""\Program Files\MonExe.exe"")

Début de la page

ceCreeRaccourci (en anglais ceCreateShortcut)

// Création d'un raccourci dans le répertoire "Temp"
ceCréeRaccourci("\Temp\Exemple de raccourci.lnk", "\MonRépertoire\MonExe.exe")

Début de la page

ceDateFichier (en anglais ceFileDate)

// Connaître la date de création du fichier "\MesFichiers\Fichier.txt"
// présent sur le Pocket PC connecté au poste en cours
ResDate = ceDateFichier ("\MesFichiers\Fichier.txt", "", fCréation )
// Afficher la date renvoyée
Info("Ce fichier a été créé le : "+ DateVersChaîne(ResDate))

Début de la page

ceDateFichier (en anglais ceFileDate)

// Modifier la date du dernier accès au fichier "\MesFichiers\Fichier.txt"
// présent sur le Pocket PC connecté au poste en cours
ceDateFichier("\MesFichiers\Fichier.txt", "20040201", fAccès )

Début de la page

ceDeconnecte (en anglais ceDisconnect)

// Ouverture d'une connexion avec le Pocket PC
ResConnexion = ceConnecte()
...
// Déconnexion
ceDéconnecte ()

Début de la page

ceEtatAlimentation (en anglais cePowerStatus)

// Ouverture d'une connexion avec le Pocket PC
ceConnecte()
// Traitement
...
// Etat de la batterie principale ?
Info("La batterie est chargée à : "+ ...
ceEtatAlimentation ( cePourcentageCharge )+" %")

Début de la page

ceEtatConnexion (en anglais ceConnectionStatus)

// Ouverture d'une connexion avec le Pocket PC
ceConnecte()
// Traitement
...
// Etat de la connexion ?
ResEtatConnexion = ceEtatConnexion ()
SELON ResEtatConnexion
    CAS ceEtatDéconnecté
      Info("La connexion n'a pas été établie.")
    CAS ceEtatConnecté
      Info("La connexion est active.")
    CAS ceEtatConnexionInvalide
      SI OuiNon("La connexion n'est plus établie.", ...
             "Voulez-vous rétablir la connexion ?") = Oui ALORS
          // Déconnexion de la connexion invalide
          ceDéconnecte()
          // et reconnexion
          ceConnecte()
      FIN

Début de la page

ceFenEnumere (en anglais ceWinEnum)

// Énumération des fenêtres Windows ouvertes
ResHandle est un entier = ceFenEnumère ()
// Parcours de toutes les fenêtres
TANTQUE ResHandle <> Null
    // Ajout du titre de la fenêtre trouvée dans une liste
    ListeAjoute(ceFenTitre(ResHandle))
    // Passage à la fenêtre suivante
    ResHandle = ceFenEnumère (ResHandle)
FIN

Début de la page

ceFenTitre (en anglais ceWinTitle)

// Énumération des fenêtres Windows ouvertes
ResHandle est un entier = ceFenEnumère()
// Parcours de toutes les fenêtres
TANTQUE ResHandle <> Null
    // Ajout du titre de la fenêtre trouvée dans une liste
    ListeAjoute( ceFenTitre (ResHandle))
    // Passage à la fenêtre suivante
    ResHandle = ceFenEnumère(ResHandle)
FIN

Début de la page

ceFichierExiste (en anglais ceFileExist)

// Existence d'un fichier
SI ceFichierExiste ("\MesFichiers\Fichier.BMP") = Vrai ALORS
Info("Ce fichier est présent sur le Pocket PC")
FIN

Début de la page

ceHeureFichier (en anglais ceFileTime)

// Connaître l'heure de création du fichier "\MesFichiers\Fichier.txt"
// présent sur le Pocket PC connecté au poste en cours
ResHeure = ceHeureFichier ("\MesFichiers\Fichier.txt", "", fCréation )
// Afficher l'heure renvoyée
Info("Ce fichier a été créé à : "+ HeureVersChaîne(ResHeure))

Début de la page

ceHeureFichier (en anglais ceFileTime)

// Modifier l'heure du dernier accès au fichier "\MesFichiers\Fichier.txt"
// présent sur le Pocket PC connecté au poste en cours
ceHeureFichier ("\MesFichiers\Fichier.txt", "174327", fAccès )

Début de la page

ceLanceAppli (en anglais ceRunExe)

// Lancement de la calculette sur le Pocket PC connecté
ResLancement = ceLanceAppli ("calc.exe")
// Problème rencontré ?
SI ResLancement = Faux ALORS Erreur(ErreurInfo())

Début de la page

ceListeFichier (en anglais ceListFile)

// Liste les fichiers de type ".BMP" présents dans "\MesDocuments".
// La procédure AttributFichier retourne le nombre de fichiers en lecture seule.
ResListeFichier = ceListeFichier ("\MesDocuments\*.bmp", AttributFichier)

Début de la page

ceRegistreCleSuivante (en anglais ceRegistryNextKey)

Chemin est une Chaîne
// Connaître le nom de la clé primaire
Chemin = ceRegistrePremièreSousClé()
// Parcourir toutes les sous clés
TANTQUE Chemin <> ""
Chemin = ceRegistreCléSuivante (Chemin)
FIN

Début de la page

ceRegistreCleSuivante (en anglais ceRegistryNextKey)

// Identification de la clé suivant la clé "HKEY_LOCAL_MACHINE\SYSTEM"
ResCléSuivante = ceRegistreCléSuivante ("HKEY_LOCAL_MACHINE\SYSTEM")

Début de la page

ceRegistreCreeCle (en anglais ceRegistryCreateKey)

// Création de la clé "HKEY_LOCAL_MACHINE\SOFTWARE\MonAppli"
ResCréeClé = ceRegistreCréeClé ("HKEY_LOCAL_MACHINE\SYSTEM\SOFTWARE\MonAppli")

Début de la page

ceRegistreEcrit (en anglais ceRegistrySetValue)

// Écrire la valeur "English" dans la valeur "Langage"
// dans la clé "HKEY_LOCAL_MACHINE\SOFTWARE\MonAppli"
ResEcriture = ceRegistreEcrit ("HKEY_LOCAL_MACHINE\SOFTWARE\MonAppli", ...
"Langage", "English")

Début de la page

ceRegistreExiste (en anglais ceRegistryExist)

// Teste l'existence la clé "HKEY_LOCAL_MACHINE\SOFTWARE\MonAppli"
ResExiste = ceRegistreExiste ("HKEY_LOCAL_MACHINE\SOFTWARE\MonAppli")

Début de la page

ceRegistreListeValeur (en anglais ceRegistryListValue)

// Récupération de la liste des valeurs de la clé "HKEY_CURRENT_USER\Console"
Info( ceRegistreListeValeur ("HKEY_CURRENT_USER\Console")

Début de la page

ceRegistreLit (en anglais ceRegistryQueryValue)

// Lit la valeur "Langage" dans la clé "HKEY_LOCAL_MACHINE\SOFTWARE\MonAppli"
// Le booléen ResExécute permet de savoir si la valeur a été lue
ResLecture = ceRegistreLit ("HKEY_LOCAL_MACHINE\SOFTWARE\MonAppli", ...
"Langage", ResExécute)

SI ResExécute = Vrai ALORS
Info("La valeur a été lue et vaut : "+ResLecture)
FIN

Début de la page

ceRegistrePremiereSousCle (en anglais ceRegistryFirstSubKey)

Chemin est une Chaîne
// Connaître le nom de la clé primaire
Chemin = ceRegistrePremièreSousClé ()
// Parcourir toutes les sous clés
TANTQUE Chemin <> ""
Chemin = ceRegistreCléSuivante(Chemin)
FIN

Début de la page

ceRegistrePremiereSousCle (en anglais ceRegistryFirstSubKey)

// Identification de la première sous-clé de "HKEY_LOCAL_MACHINE\SYSTEM"
ResSousClé = ceRegistrePremièreSousClé ("HKEY_LOCAL_MACHINE\SYSTEM")

Début de la page

ceRegistreSousCle (en anglais ceRegistrySubKey)

Chemin est une Chaîne
// Connaître le nom de la clé primaire
Chemin = ceRegistrePremièreSousClé()
// Connaître le nom de la 3° sous-clé de la clé primaire
Chemin3SousClé = ceRegistreSousClé (Chemin, 3)

Début de la page

ceRegistreSupprimeCle (en anglais ceRegistryDeleteKey)

Chemin est une Chaîne
// Connaître le nom de la clé primaire
Chemin = ceRegistrePremièreSousClé()
// Supprimer la clé de "MonAppli"
Chemin =Chemin + "\MonAppli\"
SI ceRegistreSupprimeClé (Chemin) = Vrai ALORS
    Info("La clé a été supprimée.")
SINON
    Erreur("Erreur lors de la suppression.", ...
              ErreurInfo())
FIN

Début de la page

ceRegistreSupprimeValeur (en anglais ceRegistryDeleteValue)

// Supprime la valeur "Langage"
// dans la clé "HKEY_LOCAL_MACHINE\SYSTEM\Appli"
ResSuppression = ceRegistreSupprimeValeur (...
"HKEY_LOCAL_MACHINE\SYSTEM\Appli", "Langage")

Début de la page

ceRep (en anglais ceDir)

Chemin est une chaîne
// Recherche de tous les fichiers présents dans
// le répertoire "\MonRépertoires" présent
// sur le Pocket PC connecté au poste en cours
Chemin = ceRep ("\MesRépertoires\*.*", ceFichier )
// Ajout des fichiers trouvés dans la liste "ListeFichier"
TANTQUE Chemin <> ""
ListeAjoute(ListeFichier, Chemin)
Chemin = ceRep ("")
FIN

Début de la page

ceRepCree (en anglais ceCreateDir)

// Création d'un répertoire sur le Pocket PC connecté au poste en cours
ResCréation = ceRepCrée ("\MesFichiers\MesImages")
// Problème rencontré ?
SI ResCréation = Faux ALORS Erreur(ErreurInfo())

Début de la page

ceRepSupprime (en anglais ceDeleteDir)

// Suppression d'un répertoire sur le Pocket PC connecté au poste en cours
ResSupprime = ceRepSupprime ("\MesFichiers\MesImages")
// Problème rencontré ?
SI ResSupprime = Faux ALORS Erreur(ErreurInfo())

Début de la page

ceSupprimeFichier (en anglais ceDeleteFile)

// Suppression d'un fichier sur le Pocket PC connecté au poste en cours
ResSupprime = ceSupprimeFichier ("\MesFichiers\Images.gif")
// Problème rencontré ?
SI ResSupprime = Faux ALORS Erreur(ErreurInfo())

Début de la page

ceSupprimeRaccourci (en anglais ceDeleteShortcut)

// Création d'un raccourci dans le menu "Programme"
ceCréeRaccourci ("Exemple de raccourci", ""\Program Files\MonExe.exe"")
...
// Suppression du raccourci
ceSupprimeRaccourci("Exemple de raccourci")

Début de la page

ceSupprimeRaccourci (en anglais ceDeleteShortcut)

// Création d'un raccourci dans le répertoire "Temp"
ceCréeRaccourci ("\Temp\Exemple de raccourci.lnk", "\MonRépertoire\MonExe.exe")
...
// Suppression du raccourci
ceSupprimeRaccourci("\Temp\Exemple de raccourci.lnk")

Début de la page

ceSysRep (en anglais ceSysDir)

// Récupérer le chemin du répertoire système
ResRep = ceSysRep ( srBureau )

Début de la page

ceTailleFichier (en anglais ceFileSize)

// Connaître la taille du fichier "\MesFichiers\Fichier.txt"
// présent sur le Pocket PC connecté au poste en cours
ResTaille = ceTailleFichier ("\MesFichiers\Fichier.txt")
// Afficher la taille renvoyée
Info("La taille de ce fichier : "+ ResTaille +" octets.")

Début de la page

ceTypeProcesseur (en anglais ceProcessorType)

// Type de processeur du Pocket PC
// connecté au poste en cours
ResProcesseur = ceTypeProcesseur ()

Début de la page

ceVersionWindows (en anglais ceWindowsVersion)

// Numéro de version de Windows utilisé sur le
// Pocket PC connecté au poste en cours
ResVersion = ceVersionWindows ( ceVersionNuméro )

Début de la page

ceXRes (en anglais ceXRes)

// Résolution horizontale de l'écran
// du Pocket PC connecté au poste en cours
ResHoriz = ceXRes ()

Début de la page

ceYRes (en anglais ceYRes)

// Résolution verticale de l'écran
// du Pocket PC connecté au poste en cours
ResVert = ceYRes ()

Début de la page