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