[Setup_007]

Задача в том чтобы поставить на форму светофор, который мог бы работать в ручном и автоматическом режиме. Светофор я нарисовал и сделал ручной режим его работы. Подскажите, как сделать чтобы светофор работал в автоматическом режиме (цвета сами по себе переключались с течением заданного времени) и возможно ли это сделать без таймеров?

[M.A.D.M.A.N.]

Поток запользовать.

[lmikle]

Сообщение от M.A.D.M.A.N.

Поток запользовать.

Можно еще на OnIdle "сесть"

[Setup_007]

а поконкретней можно, как это работает?

[AlexSku]

Сообщение от Setup_007

Подскажите, как сделать чтобы светофор работал в автоматическом режиме (цвета сами по себе переключались с течением заданного времени) и возможно ли это сделать без таймеров?

Чем таймеры не подходят?

[Setup_007]

Можно и через таймеры, только как грамотно это сделать...? Отдельно могу сделать через три таймера (для каждого цвета свой таймер), а внедряю в программу - получается фигня. Ниже программка, может кто исправит косяк.

[NumLock]

вот реализация схемы:

Код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    CheckBox1: TCheckBox;
    Timer1: TTimer;
    procedure CheckBox1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

const
  arr: array [0..15] of Byte = (
    1, 1, 1, 1,
    3, 3,
    4, 4, 4, 4,
    0, 4, 0, 4,
    2, 2
  );

implementation

{$R *.dfm}

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
  Label1.Visible:=False;
  Label2.Visible:=False;
  Label3.Visible:=False;
  Tag:=0;
  Timer1.Enabled:=CheckBox1.Checked;
  if Timer1.Enabled then Timer1Timer(Timer1);
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if Tag>=Length(arr) then Tag:=0;
  Label1.Visible:=(arr[Tag] and 1)>0;
  Label2.Visible:=(arr[Tag] and 2)>0;
  Label3.Visible:=(arr[Tag] and 4)>0;
  Tag:=Tag+1;
end;

end.

схема работы задается массивом arr (задает функцию цветов по времени):
0 разряд - красный цвет (десятичное 1)
1 разряд - желтый цвет (десятичное 2)
2 разряд - зеленый цвет (десятичное 4)
комбинируя разряды можно получить различные режимы: группировка цветов, мигание и т.д.
http://data.cod.ru/95350

[Setup_007]

Огромное спасибо Сейчас буду пробовать..