Однокнопочный светофор на Delphi 7

[Final_ekb]

Суть задания в том, чтобы сделать переключение цветов светофора одной кнопкой.
Имеем 3 объекта с заданными цветами (желтый, красный, зеленый)
Суть "загорания лампочки" - смена Shape1.Brush.Style с bsDiagcross на bsSolid
С 2мя лампочками сделал, используя условия. Надо как-то сделать с тремя в такой последовательности:
1. Изначально горит красная. Затем тухнет и загорается зеленая.
2. Тухнет зеленая, загорается желтая
3. Тухнет желтая, загорается красная
4. Снова в пункт 1.

Не получается, хоть убей... помогите пожалуйста

Вот наработка на 2х лампах:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Shape1: TShape;
    Shape2: TShape;
    procedure Button1Click(Sender: TObject);
    private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  If
    Shape2.Brush.Style = bsSolid
  Then
    begin
      Shape1.Brush.Style :=bsSolid;
      Shape2.Brush.Style :=bsDiagcross;
    end
  else
    begin
      Shape2.Brush.Style :=bsSolid;
      Shape1.Brush.Style :=bsDiagcross;
    end;
end;

end.

[Roof]

Для небольшого количества "лампочек" (3) я бы сделал так:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if Button1.Tag < 2 then
    Button1.Tag := Button1.Tag + 1
  else
    Button1.Tag := 0;

  case Button1.Tag of
    0:
      begin
        Shape1.Brush.Style := bsSolid;
        Shape2.Brush.Style := bsDiagcross;
        Shape3.Brush.Style := bsDiagcross;
      end;
    1:
      begin
        Shape1.Brush.Style := bsDiagcross;
        Shape2.Brush.Style := bsSolid;
        Shape3.Brush.Style := bsDiagcross;
      end;
    2:
      begin
        Shape1.Brush.Style := bsDiagcross;
        Shape2.Brush.Style := bsDiagcross;
        Shape3.Brush.Style := bsSolid;
      end;
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Shape1.Brush.Color := clRed;
  Shape2.Brush.Color := clYellow;
  Shape3.Brush.Color := clGreen;
  Shape1.Brush.Style := bsSolid;
  Shape2.Brush.Style := bsDiagcross;
  Shape3.Brush.Style := bsDiagcross;
  Button1.Tag := 0;
end;

Для большего количества "лампочек" нужно делать цикл по компонентам, чтобы не писать вручную каждый раз Style.

[DeKot]

Следующий алгоритм:
Три объекта (лампочки) - Lamp1, Lamp2, Lamp3;
Переменные - step (byte) ,начальное значение = 0; _color (integer);
В обработчике нажатия кнопки (ButtonClick) применяем :

Inc(step);
         if step > 2 then  step := 0;

Заводим таймер (достаточно интервал 300 мсек) и в его обработчике пропишем
оператор выбора:

case step of
    0: begin Lamp1.Color:= clRed; Lamp2.Color:= <цвет фона>; Lamp3.Color:= <цвет фона>;end;
   1:  begin Lamp1.Color:= <цвет фона>; Lamp2.Color:= clYellow; Lamp3.Color:= <цвет фона>;end;
   2: begin Lamp1.Color:= <цвет фона>; Lamp2.Color:= <цвет фона>; Lamp3.Color:= clGreen;end;
   end;

Вот и весь алгоритм. Вместо кнопки Button можно задать время по второму таймеру и тогда светофор будет работать в автоматическом режиме.
Кстати, небезизвестные Билл Гейтц и Питер Аллен свою первую коммерческую программу написали и продали именно для управления светофором.( на Бейсике).

[Final_ekb]

roof, не работает: кнопка не выполняетдействий. и что должна выполнять процедура formcreate?

[Roof]

2 Final_ekb -

и что должна выполнять процедура formcreate?

Так я же написал что она должна выполнять.
Нну это можно и в инспекторе прописать. Я вот для большей ясности примера решил в событии OnCreate сделать.

а ты создал собыитя соответствующие для кнопки и для формы? У меня все работает. Или я твое задание не так понял, или ты чего-то напутал. В общем так:
1) Создай новый проект
2) Кидаешь на форму Button1
3) Кидаешь на форму 3 штуки Shape (Shape1, Shape2, Shape3)
4) Создаешь в инспекторе объектов два события - одно для формы, другое для кнопки.
5) В события вставляешь соответсвующий код.
Вот держи в архиве exe. Распакуй и запускай. Погляди как это работает.

[DeKot]

Вот программа.

[Final_ekb]

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

2 Final_ekb -

Так я же написал что она должна выполнять.
Нну это можно и в инспекторе прописать. Я вот для большей ясности примера решил в событии OnCreate сделать.

а ты создал собыитя соответствующие для кнопки и для формы? У меня все работает. Или я твое задание не так понял, или ты чего-то напутал. В общем так:
1) Создай новый проект
2) Кидаешь на форму Button1
3) Кидаешь на форму 3 штуки Shape (Shape1, Shape2, Shape3)
4) Создаешь в инспекторе объектов два события - одно для формы, другое для кнопки.
5) В события вставляешь соответсвующий код.
Вот держи в архиве exe. Распакуй и запускай. Погляди как это работает.

Хм, да. У тебя верно работает. Порядок правда не тот, ну эт не важно.
В инспекторе для форм ничего не вставлял, а весь предоставленный тобой код вставил в событие при нажатии кнопки.

Я с делфи познакомился на прошлой неделе, поэтому пока с трудом ориентируюсь. Лабу сегодня сдал, сделав просто двойное ветвление с if, правильно расставив всяческие begin & end.
Можешь свой проект полностью дать посмотреть? Разобраться всё-равно охото :-) спасибо)


2 Dekot: ваш способ мне слишком не понятен, наверное потому, что вы "профессионал", поэтому я не стал его брать) у нас азы) но все равно большое спасибо за помощь

[Roof]

Держи в архиве весь проект.

[Алексия]

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

[Kingdom_Reborn]

Алексия, да, возможно.