pcsoft.fr.windevCopyright 2026, PC SOFT25 Dec 2018 22:12:29 Z20 Dec 2018 10:07:36 ZBonjour, J'essaye d'adapter a Windev mes connaissances en taches parallèles dans d'autre langages. Pour ce faire je fait des tests, dans l'exemple que je poste, il s'agit bêtement de renommer une liste de fichiers contenu dans un colonne d'une table. Pour les pro de Windev, si vous avez 5 minutes a y consacrer j'aiemerai bien avoir vos avis sur mon code, histoire de vois si il y a des choses a améliorer, ou a revoir ! Je vous en remercie par avance. [code:wl] // CLic sur le bouton Convertir. PROCÉDURE INTERNE RenommerFichier(LOCAL sNomOriginal est une chaîne, LOCAL sNomFinal est une chaîne) SI fRenomme(sNomOriginal, sNomFinal) ALORS RENVOYER sNomFinal SINON RENVOYER "" FIN FIN PROCÉDURE INTERNE AfficheFichier(LOCAL nIdx est un entier, LOCAL sFichier est une chaîne) TABLE_fichiers.COL_Renommé[nIdx] = sFichier FIN idx est un entier = 0 tabTâches est un tableau de TâchesParallèles UneTâche est une TâcheParallèle Sablier(Vrai) ChronoDébut() POUR idx = 1 À TABLE_fichiers.Occurrence() // crée et mémorise cette nouvelle tâche dans un tableau UneTâche = TâcheParallèleExécute(RenommerFichier, (TABLE_fichiers.COL_Original[idx], ChaîneConstruit("%1%3%4%2", fExtraitChemin(TABLE_fichiers.COL_Original[idx], fDisque+fRépertoire), fExtraitChemin(TABLE_fichiers.COL_Original[idx], fExtension), SAI_Préfixe, NumériqueVersChaîne(idx,"08.0"))), tpoCopieDifféréeContexteHFSQL) Ajoute(tabTâches, UneTâche) TâcheParallèleExécuteAprès(UneTâche, AfficheFichier, (idx, UneTâche..ValeurRenvoyée), tpoThreadPrincipal) FIN // Attend la fin de l'exécution des tâches TâcheParallèleAttendToutes(tabTâches) Sablier(Faux) LIB_Message = "Traitement terminé en " + DuréeVersChaîne(ChronoFin(), "MMm SSs LLL") [/code] -- ——————————————————————————————————— Ce qui se conçoit bien se code clairement et se débogue facilement... - Pastiche d’une citation de Nicolas Boileau -30WEBDEVfr_FRhttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/222817-wd23-taches-parallele-bonnes-pratiques/read.awpmoderateur@pcsoft.fr (El moderador)webmaster@pcsoft.fr (El webmaster)Der§enpcsoft.fr.windevhttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/222817-wd23-taches-parallele-bonnes-pratiques-222924/read.awp25 Dec 2018 22:12:29 ZIntéressant, cela ouvre des perspectives :D -- ——————————————————————————————————— Ce qui se conçoit bien se code clairemen…https://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/222817-wd23-taches-parallele-bonnes-pratiques-222924/read.awphttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/222817-wd23-taches-parallele-bonnes-pratiques-222924/read.awp[WD23] Tâches parallèle - bonnes pratiquesDamienpcsoft.fr.windevhttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/222817-wd23-taches-parallele-bonnes-pratiques-222923/read.awp25 Dec 2018 20:26:39 ZUtiliser _A_ à la place de A permet de ne calculer qu’une seule fois l’indice final. Sinon il est recalculé à chaque itérations.https://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/222817-wd23-taches-parallele-bonnes-pratiques-222923/read.awphttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/222817-wd23-taches-parallele-bonnes-pratiques-222923/read.awp[WD23] Tâches parallèle - bonnes pratiquesDer§enpcsoft.fr.windevhttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/222817-wd23-taches-parallele-bonnes-pratiques-222922/read.awp25 Dec 2018 20:09:26 ZPourquoi vouloir optimiser ? Pour pousser l’enveloppe (Dave small sort de mon corps), plus sérieusement, en vieux de la vieil…https://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/222817-wd23-taches-parallele-bonnes-pratiques-222922/read.awphttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/222817-wd23-taches-parallele-bonnes-pratiques-222922/read.awp[WD23] Tâches parallèle - bonnes pratiquesjean.pierre.blochpcsoft.fr.windevhttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/222817-wd23-taches-parallele-bonnes-pratiques-222893/read.awp22 Dec 2018 11:35:21 ZBonjour, Vous avez testé votre code et obtenu un résultat. Si ce résultat est correct, pourquoi vouloir optimiser ? Deux sug…https://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/222817-wd23-taches-parallele-bonnes-pratiques-222893/read.awphttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/222817-wd23-taches-parallele-bonnes-pratiques-222893/read.awp[WD23] Tâches parallèle - bonnes pratiquesDer§enpcsoft.fr.windevhttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/222817-wd23-taches-parallele-bonnes-pratiques-222892/read.awp22 Dec 2018 11:18:02 ZPersonne n’a de critique à faire ou d’amélioration possible dans mon bout de code ? -- ——————————————————————————————————— …https://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/222817-wd23-taches-parallele-bonnes-pratiques-222892/read.awphttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/222817-wd23-taches-parallele-bonnes-pratiques-222892/read.awp[WD23] Tâches parallèle - bonnes pratiques