unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, jpeg, ExtCtrls, StdCtrls;
type
TForm1 =
class(TForm)
IAmpel4gelb: TImage;
IAmpel4gruen: TImage;
IAmpel4rot: TImage;
IAmpel4rotgelb: TImage;
IAmpel1gelb: TImage;
IAmpel1gruen: TImage;
IAmpel1rot: TImage;
IAmpel1rotgelb: TImage;
IAmpel3gelb: TImage;
IAmpel3gruen: TImage;
IAmpel3rot: TImage;
IAmpel3rotgelb: TImage;
IAmpel2gelb: TImage;
IAmpel2gruen: TImage;
IAmpel2rot: TImage;
IAmpel2rotgelb: TImage;
Label1: TLabel;
Label2: TLabel;
TAmpel: TTimer;
BAmpelblinken: TButton;
BAmpelaus: TButton;
procedure TAmpelTimer(Sender: TObject);
private
{ Private declarations }
a:integer;
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.TAmpelTimer(Sender: TObject);
begin
a:=a+1;
case a
of
1:
begin
IAmpel1rot.Visible :=true;
IAmpel1rotgelb.Visible :=false;
IAmpel1gelb.Visible :=false;
IAmpel1gruen.Visible :=false;
IAmpel2rot.Visible :=true;
IAmpel2rotgelb.Visible :=false;
IAmpel2gelb.Visible :=false;
IAmpel2gruen.Visible :=false;
IAmpel3rot.Visible :=true;
IAmpel3rotgelb.Visible :=false;
IAmpel3gelb.Visible :=false;
IAmpel3gruen.Visible :=false;
IAmpel4rot.Visible :=true;
IAmpel4rotgelb.Visible :=false;
IAmpel4gelb.Visible :=false;
IAmpel4gruen.Visible :=false;
IAmpel.Interval := 1000;
end;
2:
begin
IAmpel1rot.Visible :=false;
IAmpel1rotgelb.Visible :=true;
IAmpel1gelb.Visible :=false;
IAmpel1gruen.Visible :=false;
IAmpel2rot.Visible :=true;
IAmpel2rotgelb.Visible :=false;
IAmpel2gelb.Visible :=false;
IAmpel2gruen.Visible :=false;
IAmpel3rot.Visible :=false;
IAmpel3rotgelb.Visible :=true;
IAmpel3gelb.Visible :=false;
IAmpel3gruen.Visible :=false;
IAmpel4rot.Visible :=true;
IAmpel4rotgelb.Visible :=false;
IAmpel4gelb.Visible :=false;
IAmpel4gruen.Visible :=false;
TAmpel.Interval := 1000
end;
3:
begin
IAmpel1rot.Visible :=false;
IAmpel1rotgelb.Visible :=false;
IAmpel1gelb.Visible :=false;
IAmpel1gruen.Visible :=true;
IAmpel2rot.Visible :=true;
IAmpel2rotgelb.Visible :=false;
IAmpel2gelb.Visible :=false;
IAmpel2gruen.Visible :=false;
IAmpel3rot.Visible :=false;
IAmpel3rotgelb.Visible :=false;
IAmpel3gelb.Visible :=false;
IAmpel3gruen.Visible :=true;
IAmpel4rot.Visible :=true;
IAmpel4rotgelb.Visible :=false;
IAmpel4gelb.Visible :=false;
IAmpel4gruen.Visible :=false;
TAmpel.Interval := 10000
end;
4:
begin
IAmpel1rot.Visible :=false;
IAmpel1rotgelb.Visible :=false;
IAmpel1gelb.Visible :=true;
IAmpel1gruen.Visible :=false;
IAmpel2rot.Visible :=true;
IAmpel2rotgelb.Visible :=false;
IAmpel2gelb.Visible :=false;
IAmpel2gruen.Visible :=false;
IAmpel3rot.Visible :=false;
IAmpel3rotgelb.Visible :=false;
IAmpel3gelb.Visible :=true;
IAmpel3gruen.Visible :=false;
IAmpel4rot.Visible :=true;
IAmpel4rotgelb.Visible :=false;
IAmpel4gelb.Visible :=false;
IAmpel4gruen.Visible :=false;
TAmpel.Interval := 1000
end;
5:
begin
IAmpel1rot.Visible :=true;
IAmpel1rotgelb.Visible :=false;
IAmpel1gelb.Visible :=false;
IAmpel1gruen.Visible :=false;
IAmpel2rot.Visible :=true;
IAmpel2rotgelb.Visible :=false;
IAmpel2gelb.Visible :=false;
IAmpel2gruen.Visible :=false;
IAmpel3rot.Visible :=true;
IAmpel3rotgelb.Visible :=false;
IAmpel3gelb.Visible :=false;
IAmpel3gruen.Visible :=false;
IAmpel4rot.Visible :=true;
IAmpel4rotgelb.Visible :=false;
IAmpel4gelb.Visible :=false;
IAmpel4gruen.Visible :=false;
TAmpel.Interval := 1000
end;
end;
end.