Discussion :

[vantoff]

Bonjour,

j'ai réussis grace au foum à changer la couleur d'une ComLed avec le code suivant:

ComLed1->Kind = lkGreenLight; Elle s'allume en vert
L'idéal pour moi est de la vert clignoter en vert.

Merci.


Qui dit mieux, Peut le mieux!!!

[Tenguryu]

Ben si tu peux l'éteindre, fait une boucle qui l'allume et qui l'éteint...

[vantoff]

Désolé tu n'y est pas.

Ma led s'alume lorsque j'ouvre mon port à l'aide d'un bouton de connexion.
si je fais une boucle....................je te laisse imaginer la suite . A moins que...

Le bon sens, qui l'a vraiment?

[henderson]

Salut !

En utilisant probablement un TTimer permettant à intervalle régulier de modifier une propriété de l'objet qui définit son apparence.

Dans la OnTimer du timer, il suffit de mettre la propriété de l'objet en bascule (flip flop):

if(Led->Etat == allumee) Led->Etat = eteinte
else(Led->Etat = allumee)

Si cette propriété est du type booléen, le traitement se réduit à faire :

Led->Etat = !Led->Etat

Si l'effet n'est pas immédiat (ce qui serait étonnant mais parfois...) alors on peut rajouter :

Led->Repaint();

Comme je ne connait pas le composant, je te donne juste l'idée.

A noter que je n'ai pas mis les balises de code volontairement !

A plus !

[vantoff]

J'ai faits ça

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
 
 if(ComLed->State==IsOn)
  {
   ComLed->State==IsOff
 
 else
 {
      ComLed->State == IsOn)
 }
   ComLed->Repain();
   }
}

Mais ça ne marche pas: Le compilot dit: Symbole IsOn non définit or cette proprieté est dans l'inspecteur d'objet de mon composant( ComLed): c'est la Proprieté State=IsOn ou IsOff

[henderson]

Salut !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
if(ComLed->State == IsOn) ComLed->State = IsOff;
else ComLed->State = IsOn;
ComLed->Repaint(); //<<< tester si c'est nécessaire

C'est tout ce que je peux dire pour l'instant !

A plus !