// Enregistre le document présent dans le scanneur dans le fichier "MonDocument.PDF"

TwainVersPDF("C:\Temp\MonDocument.PDF")

// Récupère le CA du mois en cours

TotalCA est un monétaire = CalculCAMoisEnCours()

// Si le CA dépasse l'objectif

SI TotalCA >= 1 250 000 ALORS

LIB_Objectif= "Objectif dépassé !"

LIB_Objectif.Couleur= VertFoncé

SINON

// Si le CA n'atteint pas l'objectif minimum attendu

SI TotalCA <= 200 000 ALORS

LIB_Objectif= "Objectif non atteint"

LIB_Objectif.Couleur= RougeClair

FIN

FIN

// Récupère le CA du mois en cours

TotalCA is currency = CalculCAMoisEnCours()

// Si le CA dépasse l'objectif

IF TotalCA >= 1 250 000 THEN

LIB_Objectif = "Objectif dépassé !"

LIB_Objectif.Color = DarkGreen

ELSE

// Si le CA n'atteint pas l'objectif minimum attendu

IF TotalCA <= 200 000 THEN

LIB_Objectif = "Objectif non atteint"

LIB_Objectif.Color = LightRed

END

END

LIBELLE_PRIX = NombreEnLettres(1.10, "euro(s)")

// Affiche "un euro dix"

// Charge une image

MonImage est une Image

MonImage = "MonImage.jpg"

// Modifie sa luminosité, ici à 50%

MonImage.ModifieLuminosité(50)

// Sauve l'image modifié

MonImage.SauveJPEG("MonImageModifiée.jpg")

// Ouvre une session SMTP

MaSessionSMTP est un emailSessionSMTP

MaSessionSMTP.AdresseServeur = "monserveur.smtp.fr"

MaSessionSMTP.Nom = "Utilisateur"

EmailOuvreSession(MaSessionSMTP)

// Initialise les composantes du mail

MonEmail est un Email

MonEmail.Expéditeur= "<user@pcsoft.fr>"// L'expéditeur

MonEmail.Destinataire.Ajoute("destinataire@precilia.fr")// Le destinataire

MonEmail.Sujet= "Ouverture de compte"// Le sujet

MonEmail.Message= "[..]" // Le corps du message

// Envoie le mail

EmailEnvoieMessage(MaSessionSMTP, MonEmail)

// Déclaration de variables

Valeurest un entier = 3

RésultatSélectionest un booléen

Prixest un monétaire

i,j,ksont des entiers

MonTableau est un tableau de chaînes

MaPileest une Pile d'entiers

MonDocumentXML est un xmlDocument

MonDocumentPDF est un pdfDocument

MonCodeJSONest un JSON

MonCodeYAMLest un YAML

// Paramètre la destination de l'impression (ici en PDF)

iDestination(iPDF, "C:\Mes documents\Facture.pdf")

// Imprime l'état ETAT_FacturePDF

iImprimeEtat(ETAT_FacturePDF)

// Allocation d'un objet Produit

UnProduit est un Produit dynamique

UnProduit = allouer un Produit

// Utilisation d'une propriété

UnProduit.Référence = "TS-4893"

// Utilisation d'une méthode

UnProduit.ModifieStock(42)

// Déclaration de la classe Produit

Produit est une Classe

m_sRéférence est une chaîne

m_nStock est un entier

FIN

// Getter

PROCÉDURE PUBLIQUE Référence() : chaîne

RENVOYER m_sRéférence

// Setter

PROCÉDURE PUBLIQUE Référence(sValeur est une chaîne)

m_sRéférence=sValeur

// Méthode

PROCÉDURE ModifieStock(nStock est un entier)

m_nStock = nStock

// Initialisation de la structure SMS pour un numéro classique

SMS.Numéro= "0610203040"

SMS.Message= "J'envoie des SMS avec WINDEV Mobile !"

// Envoi du SMS

SMSEnvoie()

// Demande à l'utilisateur de sélectionner un fichier d'export

FichierXLS est une chaîne = "c:\Mes Documents\rapport_financier.xls"

// Exporte le contenu du champ Table dans le fichier XLS

TableVersExcel(TABLE_RAPPORT_FINANCIER, FichierXLS)

// Protège le fichier PDF

PDFMotDePasse("fichier_origine.pdf", "fichier_protege.pdf", iProtectionDéfaut, "motdepasse")

// Liste les contacts du téléphone

tabContacts est un tableau de Contact = ContactListe()

// Parcourt les contacts

POUR TOUT ELEMENT UnContact DE tabContacts

// Formate le nom affiché du contact (<nom> <prénom>)

UnContact.NomAffiché = UnContact.Nom+[" "]+UnContact.Prénom

// Modifie le contact

ContactModifie(UnContact)

FIN

// appel du Webservice de récupération des informations du client à partir de son identifiant

InformationClient est un JSON= ChercheInformationClient( IDClient )

// détermine si c'est un envoi à l'étranger

EnvoiEtranger = InformationClient.AdresseLivraison.Pays <> "FR"

// Utilise le masque du code postal espagnol

SAI_CodePostal..MasqueSaisie= MasqueCodePostal("ES")

// Met le masque téléphonique espagnol

SAI_Telephone..MasqueSaisie= MasqueNuméroDeTéléphone("ES")

// Lance le calcul des statistiques dans un thread

MonThread est un Thread = ThreadExécute(CalculStatistiques)

PROCÉDURE INTERNE CalculStatistiques()

// Exécute la requête de calcul

REQ_CalculeStatistiques.ExécuteRequête()

FIN

// Énumère les fichiers PDF du répertoire "Mes Documents"

fListeFichier("C:\Users\Anne\Documents\*.pdf", (sRépertoire, sFichier) => {

// Traitement sur le fichier

AnalyseFichier( sRépertoire + [ fSep ] + sFichier )

RENVOYER Vrai

})

// Ajout de l'icône "C:\Icones\Icone.ICO" dans la barre des tâches

SysIconeAjoute("C:\Icones\Icone.ICO", "", "Statistiques")

sTemplateHTML est une chaîne

// Récupère le contenu entre les balises <body>...</body>

ExtraitChaîneEntre(sTemplateHTML, 1, "<body>", "</body>")

// Détermine si le client a au moins une facture non réglée cette année

soit FactureNonRéglée = TableauFactureClient.Filter( facture => facture.date.année=2020 ).UnVrai( facture=>facture.ResteAPayer>0 )

// Lit la valeur "Langage" dans la clé "HKEY_LOCAL_MACHINE\SOFTWARE\Appli"

sResLecture est une chaîne = RegistreLit("HKEY_LOCAL_MACHINE\SOFTWARE\Appli", "Langage")