Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Для новичков > программа светофор

Автор: saltonik 2.4.2011, 16:14

здравствуйте!! помогите пожалуйста с программой. у меня сейчас каждый цвет светофора горит одинаковое время, зависит от интервала таймера. можно ли сделать так чтобы красный горел 40 сек, желтый 10, зеленый 25??

Timer1.Interval = 1000;

Код


procedure TForm2.Timer1Timer(Sender: TObject);
begin
Inc(I);
 case I of
      1: begin
          S1.Brush.Color:=clRed;
          S2.Brush.Color:=clWhite;
          S3.Brush.Color:=clWhite;
         end;
      2: begin
          S1.Brush.Color:=clRed;
          S2.Brush.Color:=clYellow;
          S3.Brush.Color:=clWhite;
         end;
      3: begin
          S1.Brush.Color:=clWhite;
          S2.Brush.Color:=clYellow;
          S3.Brush.Color:=clWhite;
         end;
      4: begin
          S1.Brush.Color:=clWhite;
          S2.Brush.Color:=clYellow;
          S3.Brush.Color:=clGreen;
         end;
      5: begin
          S1.Brush.Color:=clWhite;
          S2.Brush.Color:=clWhite;
          S3.Brush.Color:=clGreen;
          I:=0;
         end;
 end;
end;

Автор: baldina 2.4.2011, 16:19

можно. задавая разные интервалы таймера для каждого цвета

Добавлено через 1 минуту и 7 секунд
вставь Timer1.Interval = <требуемое время>; в каждый блок case

Автор: saltonik 2.4.2011, 16:26

Цитата(baldina @ 2.4.2011, 16:19)

можно. задавая разные интервалы таймера для каждого цвета

Добавлено @ 16:20
вставь Timer1.Interval = <требуемое время>; в каждый блок case

получилось!! спасибо большое smile