Ampelschaltung

[rollstuhlfahrer]

Wie war das mit Flussdiagramm? Rot - Gelb - Grün - Gelb (sind 4 Zustände)

So, wie kommt man jetzt von dem ersten Zustand auf den nächsten? Ganz einfach. Zuerst definiert man, dass man sich beim 1. Zustand befindet. Die Ampel ist also rot.

Delphi-Quellcode:

AmpelFeld.Color := clRed;
Zustand := 1;

So, jetzt wird der Button gedrückt. Dadurch änderst du zuerst den Zustand.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Zustand := Zustand + 1; // Zustand ist eine globale Variable (var Zustand: Integer)
  if Zustand > 4 then
    Zustand := 1;

So, jetzt gehst du immer wieder alle Zustände durch. Visuell passiert jetzt noch nichts. Das kommt jetzt erst:

Delphi-Quellcode:

  if (Zustand = 1) then // Ampel wird ROT
    AmpelFeld.Color := clRed;

  if (Zustand = 2) then // Ampel wird das erste mal Gelb (oder Rot/Gelb)
    AmpelFeld.Color := clYellow;

  if (Zustand = 3) then // Ampel wird grün
    AmpelFeld.Color := clGreen;

  if (Zustand = 4) then // Ampel wird das 2. Mal Gelb
    AmpelFeld.Color := clYellow;
end;

So, jetzt musst du das erst einmal verstehen. Dazu erklärst DU mir mal, was der obrige Code macht.

Bernhard