Bonsoir à tous

On a juste besoin d'un LEDNumber du paquet Industrial ayant 35 Columns,
et d'un Timer dont l'interval égal à 300, déposés sur une fiche,
pour faire un petit panneau publicitaire.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
var
  Form1: TForm1 ;txt1,txt2:string; i:integer;
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
procedure TForm1.Timer1StartTimer(Sender: TObject);
begin
  txt1:='3 PRODUITS EN PROCHE PEREMPTION';
  txt2:=txt1;
  i:=1
end;
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
procedure TForm1.Timer1Timer(Sender: TObject);
var j:integer;
begin
   if i<Length(txt1)+5 then
   begin
   LEDNumber1.Caption:=copy(txt1,1,i);
   j:=i;
   end
   else if i<2*Length(txt1)-5 then
   begin
   LEDNumber1.Caption:=copy(txt2,3,j);
   txt2:=LEDNumber1.Caption;
   end
   else
   begin
   i:=0;
   if txt1='3 PRODUITS EN PROCHE PEREMPTION' then
   begin
   txt1:='6 DISTRIBUTEURS NON SOLDES';
   LEDNumber1.OnColor:=ClLime ;
   end
   else if txt1='6 DISTRIBUTEURS NON SOLDES' then
   begin
   txt1:='8 FACTURES NON REGLES';
   LEDNumber1.OnColor:=ClRed ;
   end
   else if txt1='8 FACTURES NON REGLES' then
   begin
   txt1:='3 PRODUITS EN PROCHE PEREMPTION';
   LEDNumber1.OnColor:=ClYellow ;
   end;
   txt2:=txt1;
   end;
   i:=i+1;
end;
merci à tous