Светофор

[junkie]

Добрый вечер!
Передо мной стоит задачка,с которой я не могу на данный момент справиться,уже мозг взрывается просто:
Нужно нарисовать светофор по следующему алгоритму:
красный->красный и желтый->зеленый->мигающий зеленый, и потом все это повторяется.Помогите пожалуйста!Заранее благодарен

[Sazary]

с которой я не могу на данный момент справиться

А что вам мешает?
Все делается в цикле, для задержки используйте delay (при этом использование TP 7 нежелательно).

Что у вас конкретно не получается?

[junkie]

а что использовать?

[Sazary]

а что использовать?

Для чего?
Используйте процедуры для работы с графикой. Как по-другому сказать?
Я не вижу вопросов. Что у вас вызывает затруднения?

[Sergey2]

А использовать лучше кольцевой список. Тут в соседней теме кто-то просил
Я бы делал примерно вот так:

type TSvetofor = record
           Lamps: byte;
           Flash: boolean;
           Next: ^TSvetofor

Красный - 001
Красный и Желтый - 011
Зеленеый - 100
Создаешь список и по нему фигачишь. Думаю смысл понятен.

...
var Now,Red, RedYellow, Green, FlashGreen: ^TSvetofor
begin
  new(Red);
  new(RedYellow);
  new(Green);
  new(FlashGreen);
  
  Red^.Lamps:=1
  Red^.Flash:=False;
  Red^.Next:=RedYellow;
  RedYellow^.Lamps:=3;
  RedYellow^.Flash:=False;
  RedYellow^.Next:=Green;
  Green^.Lamps:=4;
  Green^.Flash:=False
  Green^.Next:=FlashGreen;
  FlashGreen^.Lamps:=4
  FlashGreen^.Flash:=True;
  FlashGreen^.Next:=Red;

  Now:=Red;
  while (True) do
    begin
      ShowSvetofor(Now);
      Now:=Now^.Next;
    end;
end;
...

PS Мог где-то наврать, но смысл понятен должен быть

[junkie]

ага,большое спасибо!

[OCTAGRAM]

В двоичном виде не так очевидно, лучше массив Integer. Для мигания использовать третье значение (у меня 1 — между 0 и 2).

const SvetoforState : array[1 .. 6, 1 .. 3, 4] of Integer =
((2, 0, 0, 8000),
(2, 2, 0, 2000),
(2, 1, 0, 2000),
(0, 0, 2, 6000),
(0, 0, 1, 2000),
(0, 2, 0, 4000));

При этом параметры здесь: состояние К, Ж, З индикатора, длительность.
0 — выключен
1 — мигает
2 — горит

[zanik]

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