Как в лазарусе запрограммировать кнопку ,чтобы работал светофор ,который я нарисовала в лазарусе ? TForm1 = class(TForm) Button1: TButton; Shape1: TShape; Shape2: TShape; Shape3: TShape; Shape4: TShape; Shape5: TShape; procedure TForm1.Button1Click(Sender: TObject); TForm1 = class(TForm) Shape1.Brush.Color:=clGray; Shape2.Brush.Color:=clGray; Shape3.Brush.Color:=clRed; Shape4.Brush.Color:=clYellow; Shape5.Brush.Color:=clGreen;
А проект? Shape1-2 это что? 3-5 это лампочки светофора, да?
Таймер на форме есть (Timer1)?
Спасибо , буду ждать
Понял, значит, ручное переключение сигналов. Попробую сделать.
да
Т.е. так: горит красный. Нажал на кнопку - красный погас, загорелся желтый. Еще раз нажал - желтый погас, загорелся зеленый. Горит, пока опять не нажмем кнопку. Зеленый гаснет, загорается красый. И т.д.
при нажатии на кнопку должен переключаться ,менять цвет.Например если красный горит то он должен стать ярче ,если зелёный горит то он должен выделяться
Или при нажатии на кнопку светофор должен переключаться? Т.е. вручную управлять им?
Что бы светофор работал в автоматическом режиме, надо еще на форму таймер поместить.
3,5,4-лампочки светофора
Var n: integer; procedure TForm1.Button1Click(Sender: TObject); begin Shape3.Brush.Color:=ClMaroon; Shape4.Brush.Color:=ClOlive; Shape5.Brush.Color:=ClGreen; n:=n+1; if n>4 then n:=1; if n=1 then shape3.Brush.Color:=ClRed; if (n=2) or (n=4) then shape4.Brush.Color:=ClYellow; if n=3 then shape5.Brush.Color:=ClLime; end;
Если не сложно объясните пожалуйста что означает -n?Это количество или типа цикл ?
Рад, что смог помочь. Удачи!
да ,конечно смогу )
Спасибо большое за помощь !!!))Очень благодарна )
Корпус светофора я не красил. Надеюсь, это сама сможешь?
"Переключить" или "Сменить"
Как можно подписать кнопку ?
Это счетчик состояний светофора: 1 (кр) - 2 (желт) - 3 (зел) - 4 (желт). Каждый раз при нажатии кнопки увеличиваем его на 1. Если становится равным 5, то сбрасываем его опять на 1.
Да)
Спасибо! )))