Accueil > > > TABLEAU DE VOYANTS CLIGNOTANTS
TABLEAU DE VOYANTS CLIGNOTANTS
Information sur la source
Description
J'est en me heurtant à une gestion de voyants (Voir la capture!) que j'ai décidé de publier ce code. Il me fallait des voyants clignotants! Ce programme pourra servir à d'autres débutants. L'utilisateur peut modifier le nombre de voyants, de niveau et leur dimension (en partie)
Source
- Les thèmes et intérêts de programmation sont divers :
-
- Pour la 1ère version :
-
- - Image des voyants chargés par appel direct du fichier Bitmap:
- TImage(FindComponent('Image' + IntToStr(i))).Picture.LoadFromFile(FicVoy);
- Ou par référence à un index du composant ImageList
- ImageList1.GetBitmap(1,TImage(Components[i]).Picture.Bitmap)
-
- - Sélection visuelle d'option (en cliquant sur un voyant). Paramétrage de la colonne et de la ligne d'une Matrice de voyants
- Colonne = Process concerné / Ligne = Niveau du Paramètre du Process
-
- - Clignotement (par deux timers) du Voyant concerné par l'option choisie
- - Identifications dynamiques divers de voyants :
- if Assigned(FindComponent('Image' + IntToStr(i))) then
- TImage(FindComponent('Image' + IntToStr(i))).Picture.LoadFromFile(FicVoy)
- ou
- If Components[i] Is TImage Then if ( Components[i].Name = 'Image4') then...
-
- Pour la 2ème version, on ajoutera :
-
- - Création Dynamique des Leds
- - Centralisation des clics de sélection des leds
- - Personnalisation du tableau des Leds : Nombre de proces, de leds par process, espacements...
-
- On notera que le deuxième source (blincker 2) est beaucoup moins gourmand en octets
-
- Jean_Jean
Les thèmes et intérêts de programmation sont divers :
Pour la 1ère version :
- Image des voyants chargés par appel direct du fichier Bitmap:
TImage(FindComponent('Image' + IntToStr(i))).Picture.LoadFromFile(FicVoy);
Ou par référence à un index du composant ImageList
ImageList1.GetBitmap(1,TImage(Components[i]).Picture.Bitmap)
- Sélection visuelle d'option (en cliquant sur un voyant). Paramétrage de la colonne et de la ligne d'une Matrice de voyants
Colonne = Process concerné / Ligne = Niveau du Paramètre du Process
- Clignotement (par deux timers) du Voyant concerné par l'option choisie
- Identifications dynamiques divers de voyants :
if Assigned(FindComponent('Image' + IntToStr(i))) then
TImage(FindComponent('Image' + IntToStr(i))).Picture.LoadFromFile(FicVoy)
ou
If Components[i] Is TImage Then if ( Components[i].Name = 'Image4') then...
Pour la 2ème version, on ajoutera :
- Création Dynamique des Leds
- Centralisation des clics de sélection des leds
- Personnalisation du tableau des Leds : Nombre de proces, de leds par process, espacements...
On notera que le deuxième source (blincker 2) est beaucoup moins gourmand en octets
Jean_Jean
Conclusion
Le source est commenté en détail. Le code est encore améliorable. Notamment, celui d'écrire un Objet Tableau de voyants ou un composant comme l'a suggéré Florenth :-) L'utilisation va de soi et peut s'adapter très facilement...
Historique
- 31 décembre 2006 17:53:09 :
- 18/12/2006 : 1ère version non optimisée
plusieurs timers, images statiques, 1 méthode par voyant...
Bien que le code n'est pas de haut niveau, je l'ai laissé. il permet aux débutants de voir les différents niveaux de programmation.
Le code fourni n'était alors que prétexte à faire une petite révision de l'utilisation de quelques instructions.
31/12/2006 : 2ème version optimisée suivant les commentaires du 1er source
Paramètres modifiables du tableau de Leds
Création Dynamique des Leds : 1 fréquence possible par led
1 seule méthode pour la sélection d'une Led quelconque
Merci à ceux qui ont participé
- 01 mai 2008 09:25:34 :
- 01/05/2008 : Corrections orthographiques
Sources du même auteur
Sources de la même categorie
Commentaires et avis
Discussions en rapport avec ce code source dans le forum
Timer dans Thread [ par Jean_Jean ]
Bonjour, Je me pose une question sur l'optimisation du temps d'exécution d'une application. Sur la fenêtre principale j'ai divers voyants témoins
code assembleur - timer [ par tim62 ]
Bonjour, Je sollicite l'aide des programmeurs de Delphi pour le problème suivant : J'utilisais la fonction int 1ah permettant d'accéder à l'horloge
une requete sous un timer [ par zeydounnounou ]
Bonjour, Mon problème est le suivant : J'ai mis une requete SQL sous un Timer,C a dire, chaque seconde par exemple, j'execute ma requete, le probleme
Timer connexion server problème mémoire [ par attilalehuns ]
Bonjour, Je tente de me connecter avec mon serveur depuis le client à l'aide d'un timer dans le quel j'ai mis ce code: [code=pas]if Clientsocket1
Detecter les clics de souris n'importe ou dans windows [ par agentchico ]
Bonjour, Je dois faire une procedure qui detecte les clics de souris afin d'incrementer un compteur. Seulement je dois detecter les clics n'importe o
MDIform, evenement souris sur speedbutton, label etc... [ par jderf ]
Bonjour, Il semblerai que les speedbutton ne fonctionne pas sur une MDIform. Les evenements souris autre que les clicks ne sont pas capté sur la fich
Tframe et les evenements souris [ par jderf ]
Bonsoir, Voila, j'ai un Frame sur ma forme principale. Dans ce frame j'ai des labels et je souhaite modifier leurs couleurs lors du survole de la sou
Effet de loupe avec flash [ par johnlefou777 ]
Bonjour, Je cherche a développer un "livre numérique" en flash, et j'aimerai avoir un effet de loupe sur la souris (elle devra zoomer l'image au
TServerSocket ne réponds pas après 1 heure de temps [ par badyinfo ]
Bonjour à tous, j'utilise une application émission (avec un TClientSocket) et une autre réception (Avec TServerSocket)... Au démarrage des deux appl
|
Derniers Blogs
[TECHDAYS2012] OUI J'Y SERAI![TECHDAYS2012] OUI J'Y SERAI! par JeremyJeanson
Bonsoir, Certes, je l'annonce avec un peu de retard, mais je serai effectivement au Techdays demain. Comme l'an dernier, je participerai au programme ATE (Ask The Expert). Si vous avez des questions Workflow, WCF, AppFabric ou plus généralement .net, n'hé...
Cliquez pour lire la suite de l'article par JeremyJeanson TFS INTEGRATION TOOLS - SUIVI DES SYNCHRONISATIONS AVEC REPORTING SERVICESTFS INTEGRATION TOOLS - SUIVI DES SYNCHRONISATIONS AVEC REPORTING SERVICES par vfabing
Afin de s'assurer du bon fonctionnement des différentes synchronisations effectuées par les TFS Integration Tools, 2 rapports sont présents dès l'installation. Il suffit alors d'effectuer les manipulations suivantes pour pouvoir les visualiser : Loca...
Cliquez pour lire la suite de l'article par vfabing CSS CONTENT STATE SELECTORS (PERSONNAL DRAFT)CSS CONTENT STATE SELECTORS (PERSONNAL DRAFT) par FREMYCOMPANY
Bonjour à tous, Je viens de publier une proposition comprenant 5 pseudo-classes pour le CSS Working Group ayant trait à l'état de chargement d'un élément (ex: IMG,VIDEO,AUDIO,OBJECT pour l'HTML.). Si le c½ur vous en dit, vous pouvez retrouver cette p...
Cliquez pour lire la suite de l'article par FREMYCOMPANY MBA : POURQUOI FAIRE ET COMMENT LE CHOISIR ?MBA : POURQUOI FAIRE ET COMMENT LE CHOISIR ? par ROMELARD Fabrice
Formation initiale Durant la formation, le découpage classique est le suivant (je donnerai les équivalences Suisse lorsque je les connaîtrais) : Ecole primaire jusqu'au Collège : Formation générale permettant d'obtenir les méthodes...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice Y'A DES ERREURS QUI PEUVENT RENDRE LE DéVELOPPEUR VIOLENTY'A DES ERREURS QUI PEUVENT RENDRE LE DéVELOPPEUR VIOLENT par Aleks
Quand on a ce genre d'erreur sans log :
Et bas on a juste envie de choper le gas de Microsoft qu'a développé ça et lui foutre des baffes de Coboye ! ...
Cliquez pour lire la suite de l'article par Aleks
Logiciels
Academy System (17.2.1.0)ACADEMY SYSTEM (17.2.1.0)Logiciel de gestion des établissements.
- élèves/étudiants (inscription, dossier, absence...)
-... Cliquez pour télécharger Academy System Easy-Planning (1.0.0.1)EASY-PLANNING (1.0.0.1)Basé sur les mêmes principes que MyPlanning, Easy-Planning permet de créer des plannings sous la ... Cliquez pour télécharger Easy-Planning COLLECTOR PLUS (3.00B)COLLECTOR PLUS (3.00B)COLLECTOR PLUS version 3.00B est un logiciel utilisant une base de données alimentée par :
- L... Cliquez pour télécharger COLLECTOR PLUS PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V7.4)PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V7.4)PONAMEDIA TV DEVIENS HELLLOOO FLASH
LA TV SUR VOTRE ORDINATEUR.
Toute une plateforme Multi... Cliquez pour télécharger PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO LettresFaciles 2011 (8.0.0.1)LETTRESFACILES 2011 (8.0.0.1)LettresFaciles est un logiciel facilitant la création et la rédaction de lettres types.
Son inte... Cliquez pour télécharger LettresFaciles 2011
|