Discussion :

[etienne evi]

salut premièrement je vous remercies de votre de m'avoir donner l'opportunité de faire part de cette cite ,
juste demander comment je peut faire pour crée système de signalisation avec 3 lampes rouge, jaune et vert,
donc je cherche le code avec delphi 7
merci

[popo]

Tu mets des papiers sur la porte :
- un vert quand tu es disponible,
- un orange quand on peut te déranger quelques minutes
- un rouge quand tu es surbooké.

Plus sérieusement, il va nous falloir un peu plus de détail.
C'est sensé s'afficher de quelle manière ?
C'est sensé changer de couleur de quelle manière ?
Est-ce que tu as des contraintes ?

[SergioMaster]

Bonjour et bienvenue,

Fournir des sources, le forum ne fonctionne pas vraiment de cette manière, des pistes ou des améliorations d'un code fourni est plus le genre de choses qui se passent.
Vous pourriez utiliser tout simplement, un TShape dont vous changerez la propriété Shape à stCircle et la propriété BrushColor pour changer la couleur

Finalement, je me suis piqué au jeu, voilà un bout de code, les couleurs ne sont pas génialissime mais bon c'est du bâclé en une dizaine de minutes histoire de réutiliser un peu D7

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
 
unit feux;
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls;
 
type
  TCouleurs= (rouge,jaune,vert);
 
  TForm1 = class(TForm)
    Panel1: TPanel;
    ShapeVert: TShape;
    ShapeJaune: TShape;
    ShapeRouge: TShape;
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    Fcouleur: TCouleurs;
    Fduree: Integer;
    procedure Setcouleur(const Value: TCouleurs);
    { Déclarations privées }
   function assombrir(aColor : TColor) : TColor;
    procedure Setduree(const Value: Integer);
  public
    { Déclarations publiques }
    property couleur : TCouleurs read Fcouleur write Setcouleur;
    property duree : Integer read Fduree write Setduree;
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Setcouleur(const Value: TCouleurs);
begin
  Fcouleur := Value;
end;
 
function TForm1.assombrir(aColor : TColor) : TColor;
   var r,g,b : word;
 begin
    r := GetRValue(ColorToRGB(aColor)); // r max = 255;
    g := GetGValue(ColorToRGB(aColor)); // g max = 255;
    b := GetBValue(ColorToRGB(aColor)); // b max = 255;
    r:=r div 2; g:=g div 2; b:=b div 2; //:  exemple pour assombrir
// reconversion vers TColor :
    result:= RGB(r, g, b);
   end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if Duree>0 then Duree:=Duree-1000
else begin
  case Ord(Couleur) of
    0 : begin
          Couleur:=Vert;
          Duree:=3000;
          ShapeRouge.Brush.Color:=Assombrir(clRed);
          ShapeJaune.Brush.Color:=Assombrir(clYellow);
          ShapeVert.Brush.Color:=clLime;
        end;
    1 : begin
        Couleur:=Rouge;
        duree:=3000;
        ShapeRouge.Brush.Color:=clRed;
        ShapeJaune.Brush.Color:=Assombrir(clYellow);
        ShapeVert.Brush.Color:=Assombrir(clLime);
        end;
    2 : begin
        Couleur:=Jaune;
        Duree:=1000;
        ShapeRouge.Brush.Color:=Assombrir(clRed);
        ShapeJaune.Brush.Color:=clYellow;
        ShapeVert.Brush.Color:=Assombrir(clLime);
        end;
   end;
 end;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
Couleur:=Rouge;
Duree:=3000;
ShapeJaune.Brush.Color:=Assombrir(clYellow);
ShapeVert.Brush.Color:=Assombrir(clLime);
Timer1.Enabled:=True;
end;
 
procedure TForm1.Setduree(const Value: Integer);
begin
  FDuree := Value;
end;
end.

dfm

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
object Form1: TForm1
  Left = 308
  Top = 221
  Width = 295
  Height = 506
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 176
    Top = 72
    Width = 73
    Height = 201
    Caption = 'Panel1'
    Color = clBlack
    TabOrder = 0
    object ShapeVert: TShape
      Left = 1
      Top = 131
      Width = 71
      Height = 65
      Align = alTop
      Brush.Color = clLime
      Pen.Style = psClear
      Shape = stCircle
    end
    object ShapeJaune: TShape
      Left = 1
      Top = 66
      Width = 71
      Height = 65
      Align = alTop
      Brush.Color = clYellow
      Pen.Style = psClear
      Shape = stCircle
    end
    object ShapeRouge: TShape
      Left = 1
      Top = 1
      Width = 71
      Height = 65
      Align = alTop
      Brush.Color = clRed
      Pen.Style = psClear
      Shape = stCircle
    end
  end
  object Timer1: TTimer
    Enabled = False
    OnTimer = Timer1Timer
    Left = 72
    Top = 120
  end
end