Ampelschaltung mit Case Anweisungen.

[VitaminC07]

Hallo

ich muss für die Schule eine Ampelschaltung machen. Mit einem Timer und Case anweisungen.

Delphi-Quellcode:

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.

Irgentetwas hab ich falsch gemacht, jedoch weis ich nicht was.
Wäre super wenn ihr mir nen Tipp geben könntet.