Compteur Digital et Actions utilisateur

Bonjour,

Je vous propose un nouvel élément à utiliser : Compteur Digital et Actions utilisateur

Écrit en Lazarus 3.6, testé sur Windows. Ne devrait pas poser de problème pour l'adapter en Free Pascal ou Delphi.



C'est un compteur Digital avec ses fonctions classiques permettant d'interrompre le comptage précis à tout moment, de le reprendre ou de le réinitialiser.
1. Affichage digital d'un compteur avec des images pour les digits.
2. Un comptage du temps de rafraichissement de l'affichage est précis et utilise l'horloge interne.
3. Les commandes start, Pause et Stop sont basées sur une gestion des interruptions du compteur : La solution choisie est Application.ProcessMessages dans la boucle de temporisation pour permettre à l'application de rester réactive.

Qu'en pensez-vous ?

Pas de quoi.

Il n'y a rien de particulier à faire pour qu'une application Lazarus soit multiplatforme. Il suffit de ne pas utiliser l'unité Windows !

Nous attendons avec impatience la version avec thread !

Bonsoir,

Oui, c'est le premier réflexe que j'ai eu de séparer les deux méthodes, c'était évidemment plus simple... Mais je trouve intéressant cette interaction qu'il y a entre les deux solutions, ça oblige à réfléchir sur le niveau de la couche logicielle. Bah je crois que je suis un peu fou d'aller sur ce niveau, j'ai autre chose à faire. Je pense que cela vient du fait que les mêmes fonctions et commandes sont les mêmes pour les deux processus... Ils n'aiment pas se passer la main l'un après l'autre après une pause... Je vais voir, je peux séparer les commandes, ça devrait résoudre le problème.

Bah, je suis de la vieille école où l'on était heureux d'avoir ce ProcessMessage. Sans doute, il est plus simple à mettre en place. J'ai toujours eu quelques difficultés avec le multithread, non pas pour un seul processus comme ce compteur, mais lorsque plusieurs tâches différentes sont en Jeu. Le code devient plus conséquent, mais je vais en avoir besoin je pense de m'y replonger. J'ai d'ailleurs un exemple pédagogique que j'avais fait à l'époque avec delphi 7...

Bon, je me posais la question comment on fait pour modifier un code déjà posté? En accédant à mon source, je ne vois pas d'option de modification ou mise à jour!
Sinon, je pourrais poster ma version Thread uniquement comme nouveau code. Je vais vous le soumettre ici en attendant dans une version épurée vite fait. Je n'ai pas enlevé le traçage qui m'aidait à débugger : [ATTACH]664607d1/a/a/a" />

A+

Bonjour,

J'ai édité la fiche de téléchargement pour proposer les deux versions.

Ici en l'occurrence ça ne pose pas de problème puisque cette méthode est appelée depuis la tâche principale. Il ne faut pas confondre l'objet TThread, simple objet comme tous les autres, et sa méthode Execute qui est effectivement la tâche secondaire.
Ce sont les accès depuis Execute (ou les méthodes invoquées depuis cette dernière) qui doivent absolument être synchronisés d'une façon ou d'une autre.

Ca se discute en effet mais le faire ainsi rend le code beaucoup plus portable. Réutiliser cet objet dans une autre app se ferait sans se poser de question ; on appelle Start/Stop/Pause

Ca se discute une nouvelle fois.

Ici c'est la base de l'application et sans lui elle ne sert à rien, je l'aurais même créé une fois pour toute au lancement de l'app. Il en serait autrement (et encore) pour une tâche de mise à jour invoquée sporadiquement.

Ce qui ne va pas est la façon dont ce thread est "soi-disant" mis en pause ; dans les faits il ne l'est pas puisqu'il travaille toutes les 50 ms. Il faut remplacer cette logique par une véritable fonction d'attente telle que TEvent. Un thread correctement mis en attente ne consomme plus aucun temps CPU puisqu'il n'est plus planifié par l'OS. Pour reprendre ton terme : il existe mais n'est plus actif

Bonjour à tous,

:mouarf: Quelle horreur ce VIP sous notre Avatar! Enfin, c'est pour la bonne cause, plus petit ou discret aurait pas été plus mal...

1. Comme je l'ai dit à Roland, j'ai épuré mon code de test pour lui donner la version extraite rapidement de la solution Thread qui était encore en test dans un autre contexte de code.
Il est bien sûr évident que l'instruction "Form1.Memo1.Append..." n'était là que temporairement pour les tests qui étaient en cours.

2. Par contre effectivement, je développe des exemples que j'essaye de rendre portable au mieux de mes possibilités et je rejoint Andnotor sur le fait de développer une classe spécifique qu_e je transforme en une unité qui s'enrichira au fur et à mesure des besoins, avec par exemple plusieurs formats de sortie etc.
mais je rejoins aussi Roland lorsqu'il dit que l'on pourrait se passer des méthodes StartCounter, PauseCounter et ResetCounter. Je vais voir si je peux développer une autre version du Thread plus légère...

3. Finalement, j'avais pensé présenté les deux méthodes l'une à côté de l'autre tout en étant indépendantes. Dans certains cas, la méthode ProcessMessage est encore utile lorsque par exemple une propriété (ou un évènement) n'est pas disponible dans la version d'un contrôle, on peut toujours intercepter le message de l'application par les constantes de FCP, Winndows, RTL etc...

Bon, si je comprends vos messages, vous préférez que je publie la version Thread séparément?

A+

Bonsoir,

Je vous donne ici la version minimale du Thread pour le compteur. Je crois que c'était ce que Roland me demandait depuis le début : [ATTACH]664682d1/a/a/a" />.

Je pense que je vais avoir besoin d'un Thread plus sophistiqué pour gérer d'éventuels conflits sur un même contrôle (en l'occurence ici, un compteur à affichage digital).
Par exemple, un compteur qui relèverait des anomalies en provenance de différents systèmes, chercherait à incrémenter le compteur en même temps et certaines demandes en provenance d'autres processus pourraient se fondre ou être perdus car le compteur est déjà sollicité et être en train de mettre à jour le compteur.

Je vais donc écrire et publier j'espère une version multithread dans des interactions diverses entre le simple Thread (donné ci-dessus) et un thread plus élaboré sous forme de classe transportable dans une unité dédiée. Je la mettrais sur ce forum pour me dire ce que vous en pensez avant de le publier.

A+