EXEMPLE CODE WINDEV

Déclaration de variables

// Déclaration de variables
Valeur est un entier 
RésultatSélection est un booléen
Prix est un réel
i,j,k sont des entiers


Enregistre le document présent dans le scanneur dans le fichier
// Le document sera enregistré en noir et blanc
SI TwainVersJPEG("C:\Temp\MaPhoto.JPEG", 0, Faux, TwainNoirBlanc) = Vrai ALORS
Info("Le document a été enregistré")
SINON
Erreur("Le document n'a pas été scanné")
FIN


LECTURE D'UNE CLE REGISTRE 

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

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

SELECTION D'UNE COLEUR

Valeur est un entier 
RésultatSélection est un booléen

Valeur = RVB(10, 17, 69)
Info("Couleur de départ : " + Valeur)
RésultatSélection = SelectCouleur(Valeur, scInit)
Info("Couleur d'arrivée : " + Valeur)

CALCULE ENTRE DEUX DATE 

// Affiche le nombre de jours écoulés depuis le 01/01/1998
Info(NumériqueVersChaîne(DateDifférence("19980101", DateSys())) + " jours écoulés")

Envoi d'un email 

SI EmailOuvreSession(USER, PASSWORD, "pop3.ifrance.fr", "smtp.ifrance.fr") = Vrai ALORS
NomUser = USER
SINON
   NomUser = ""
   Erreur("Impossible d'établir la connexion")
FIN

// Initialise les composantes du mail
Email.Expéditeur = "<user@pcsoft.fr>" // L'expéditeur
Email.Destinataire[1] = DESTINATAIRE // Le destinataire
Email.NbDestinataire = 1 // Le nombre de destinataires
Email.Sujet = SUJET // Le sujet
Email.Message = TEXTE // Le corps du message
Email.NbAttache = 0 // Le nombre de pièces attachées

// Envoie le mail
SI EmailEnvoieMessage(NomUser) = Faux ALORS
Erreur()
FIN