ampel programmieren

[Kroko1999]

Delphi-Quellcode:

Procedure wait(const Time:Integer);
var 
  x: Cardinal;
Begin
  x := GetTickCount+Time*400 ;
  while GetTickCount<X  do     
    Application.ProcessMessages;
End;

procedure TForm1.Zustand(const AMode: Word);
  procedure _Set (AC1,AC2,AC3: TColor);
  begin
    sh_red.Brush.Color := AC1;
    sh_Yellow.Brush.Color := AC2;
    sh_Green.Brush.Color := AC3;
  end;
begin
  case AMode of
    0: _Set (clRed,$408080,clGreen); // ROT
    1: _Set (clRed,clYellow,clGreen); // Rot-Gelb
    2: _Set (clMaroon,$408080,clLime); // Grün
    3: _Set (clMaroon,clYellow,clGreen); // Gelb
  end;
end;

procedure TForm1.switchClick(Sender: TObject);
begin
    Zustand (0);
  wait(3);
    Zustand (1);
  wait(3);
    Zustand (2);
  wait(3);
    Zustand (3);
  wait(3);
    Zustand (0);
end;

//EDIT: GELB richtig!