Remerciez-le!

Remerciez @Admin pour avoir partagé cet document gratuitement, de la manière la plus simple, en partageant sur les réseaux sociaux.

Exemple 1 : Scan d'un document // Enregistre le document présent dans le scanne

Exemple 1 : Scan d'un document // Enregistre le document présent dans le scanneur dans le fichier "MaPhoto.JPEG" // 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 Exemple 2 : Lecture d'une clé de 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 Exemple 3 : Sélection d'une couleur 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) Exemple 4 : Calcul du nombre de jours entre 2 dates // Affiche le nombre de jours écoulés depuis le 01/01/1998 Info(NumériqueVersChaîne(DateDifférence("19980101", DateSys())) + " jours écoulés") Exemple 5 : Extraction d'une partie de chemin de fichier // Récupèration du nom du fichier ResNomFichier = fExtraitChemin("C:\MesRépertoires\Fichier.doc", fFichier) // fExtraitChemin renvoie "Fichier" Exemple 6 : Phonétique d'une chaîne // Comparaison de deux chaînes de caractères Phonétique("volant") = Phonétique("volent") Exemple 7 : 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 Exemple 8 : Ajout d'une icône dans le systray // Ajout de l'icône "C:\Icones\Icone.ICO" dans la barre des tâches ResAjoutIcone = SysIconeAjoute("C:\Icones\Icone.ICO", "", "Ventes 2013") Exemple 9 : Sauvegarde d'une hard copie // Sauve en mémoire l'image présente dans "IMG_ImageDessin" ResSauvegarde = dSauveImageJPEG(IMG_ImageDessin, enMémoire) Exemple 10 : Exemple de 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 Exemple 11 : Interaction Code / Interface // Exécute le traitement de clic sur un bouton ExécuteTraitement(BTN_Sauve, trtClic) Exemple 12 : Gestion des Thread par programme // Exécution d'un thread avec passage de paramètres sDate est une chaîne sDate = DateSys() // Exécution du thread ThreadExécute("THREADNAME", threadNormal, "pExecReq", sDate) // Détail de la procédure "pExecReq" qui attend une date en paramètre d'une requête PROCEDURE pExecReq(sDate) SI HExécuteRequête(Sup_Date, hRequêteDéfaut, sDate) = Faux ALORS Erreur(HErreurInfo()) SINON HLitPremier(Sup_Date) FIN Exemple 13 : Aperçu avant impression // Suppression des boutons Email de l'aperéu avant impression iParamètreAperéu(iBoutonTous - iBoutonEmail - iBoutonEmailPdf) iAperéu() iImprimeEtat(ETAT_MonEtat) Exemple 14 : Impression en HTML // Impression dans un fichier HTML d'un état basé sur une requête sans paramètre // Générer un nom de fichier unique MonFichierEtat est une chaîne = fRepWeb() + "\" + "EtatRequête_" + DateSys() + HeureSys() + ".htm" // Paramètrer la destination de l'impression iDestination(iHTML, MonFichierEtat) // Imprimer l'état ETAT_EtatRequête iImprimeEtat(ETAT_EtatRequête) // Extraire le nom et l'extension du fichier généré NomFichierGénéré est une chaîne = fExtraitChemin(MonFichierEtat, fFichier + fExtension) // Envoyer le fichier dans le navigateur PageAffiche(NomFichierGénéré) Exemple 15: Génération d'un fichier PDF // Générer un nom de fichier PDF unique UnFichier est une chaîne UnFichier = fRepWeb() + "\" + DateSys() + HeureSys() + ".pdf" // Paramètrer la destination de l'impression iDestination(iPDF, UnFichier) // Imprimer l'état ETAT_FacturePDF iImprimeEtat(ETAT_FacturePDF) // Envoyer le fichier dans le navigateur FichierAffiche(UnFichier, "application/pdf") // Supprimer le fichier fSupprime(UnFichier) Exemple 16 : Protection d'un fichier PDF // Dans cet exemple le mot de passe est donc "motdepasse" iParamètrePDF("ouverture", "motdepasse", iProtectionImpression + iProtectionSélection) // Création du PDF iAperéu(iPDF, "MonPDF.PDF") // Code d'impression iCréePolice(1, 16, iGras, iRoman) iImprimeMot("Première ligne de mon PDF" + RC + "Seconde ligne de mon PDF" + RC + "Dernière ligne de mon PDF") // Fin de l'impression et fermeture du fichier PDF cr iFinImprime() // Affichage du PDF LanceAppliAssociée(iDernierFichier()) Exemple 17 : Sélection d'une imprimante PCL (mobile) // Imprimante PCL à utiliser iDestination(iPCL, "\\MonRéseau\MonImprimante") Exemple 18 : Impression au format PCL (mobile) iDestination(iPCL, "\MesDocuments\MonFichier.PCL") Exemple 19 : Composer un numéro de téléphone SI telCompose(SAI_NuméroTéléphone, "TestEtatLigne") = Vrai ALORS Info("Cliquez sur OK pour raccrocher") telRaccroche() FIN PROCEDURE TestEtatLigne(ValeurEtatLigne est un entier) SELON ValeurEtatLigne CAS telLigneOccupée : Message("La ligne est occupée") CAS telLigneDecrochée : Message("OK, connecté") CAS telLigneNumérote : Message("Numérotation en cours") CAS telLigneTonalité : Message("Tonalité") CAS telLigneRaccrochée : Message("Le correspondant a raccroché") CAS telLigneAttendRéponse : Message("Recherche du correspondant") CAS telLigneSonnerie : Message("Sonnerie chez le correspondant") FIN Exemple 20 : Calculs financiers // Taux d'intérêt pour un emprunt de 25 000 Euros. Six versements // de 5 000 Euros sont nécessaires au remboursement de l'emprunt. ResTauxIntérêt = FinTauxIntérêt(6, -5000, 25000) Exemple 21 : Lecture d'un fichier texte ligne par ligne // Sortie selon une condition SI BOUCLE // Lecture d'une ligne du fichier texte UneLigne = fLitLigne(NumFic) SI UneLigne = EOT ALORS SORTIR TraiteLigne(UneLigne) FIN Exemple 22 : Sortie selon une condition TANTQUE MaListe = INILit("Exemples", "", "", FichierINI) MotClé = ExtraitChaîne(MaListe, nb, RC) TANTQUE MotClé <> "" nb = nb + 1 NomExpl = INILit("Projets installés", MotClé, "", FichierINI) MotClé = ExtraitChaîne(MaListe, nb + 1, RC) FIN Exemple 23 : Sortie selon une itération // Sortie selon une itération BOUCLE (10) // Lecture d'une ligne du fichier texte UneLigne = fLitLigne(NumFic) TraiteLigne(UneLigne) FIN Exemple 24 : Export vers Excel sFic est une chaîne // On demande le nom du fichier sFic = fSélecteur("", "", "Choisissez le fichier d'exportation", ... "Fichiers Excel (*.xls) *.xls", "xls", fselCrée + fselExiste) // Si le nom n'a pas été fourni, on abandonne l'export // Sinon, on exporte le contenu de la table TABLE_TABLE1 SI sFic <> "" ALORS TableVersExcel(TABLE_TABLE1, sFic, taSansTitre) Exemple 25 : Export vers XML sFic est une chaîne // Nom du fichier sFic = fSélecteur("", "", "Choisissez le fichier d'exportation", ... "Fichiers XML (*.XML) *.xml", "xml", fselCrée + fselExiste) // Si le nom n'a pas été fourni, on abandonne l'export // Sinon, on exporte le contenu de la table TABLE_TABLE1 SI sFic <> "" ALORS TableVersXML(TABLE_TABLE1, sFic, taSansTitre) Exemple 26 : Extraction d'une partie de chemin de fichier sFic est une chaîne // On demande le nom du fichier sFic = fSélecteur("", "", "Choisissez le fichier d'exportation", ... "Fichiers Word (*.rtf) *.rtf", "rtf", fselCrée + fselExiste) // Si le nom n'a pas été fourni, on abandonne l'export // Sinon, on exporte le contenu de la table TABLE_TABLE1 SI sFic <> "" ALORS TableVersWord(TABLE_TABLE1, sFic, taSansTitre) Exemple 27 : Envoi d'un SMS // 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 ResEnvoi = SMSEnvoie() // Erreur rencontrée ? SI ResEnvoi = Faux ALORS Erreur(ErreurInfo(errMessage)) FIN Exemple 28 : Envoi d'un fax IDConnect est un entier IDConnect = FaxConnecte() SI IDConnect = 0 ALORS Erreur("La connexion au serveur de fax a échoué." + ... "Vérifiez que celui-ci est bien démarré", ... ErreurInfo(errMessageSystème)) SINON ListeAjoute(LISTE_FaxEnvoi, FaxBoîteEnvoi(IDConnect)) FIN ... // Code de clic de la liste SI FaxEtat(LISTE_FaxEnvoi..ValeurAffichée) = FaxEtatPrisEnCharge ALORS FaxRéinitialise(LISTE_FaxEnvoi..ValeurAffichée) FIN ... FaxDéconnecte(IDConnect) Exemple 29 : Acquisition sur le port série (ce code est généré par un assistant, vous n'aurez même pas à le taper !) Résultat1 = sOuvre(1, 2000, 2000) // Ouverture de COM1 SI Résultat1 = Vrai ALORS // Paramètrage Com1 : Taux 9600, Parité paire, // 8 bits de données, 1 bit de stop sFixeParamètre(1, 9600, 1, 8, 0) // Paramètrage de COM1 // Suite traitement... sFerme(1) // Fermeture de COM1 SINON Erreur("Erreur d'ouverture de COM1") FIN uploads/Litterature/ wlang.pdf