Ampelschaltung

[shmia]

Direkt auf die Farben zu gehen ist Quark.
Es gibt doch Ampelphasen, siehe hier.
Zusätzlich zur Phase 1 bis 4 kommt noch die Phase 0 hinzu (das bedeutet alles aus; bzw. Farbe Schwarz)

Delphi-Quellcode:

var
   ampelphase : integer;  // 0 bis 4

Bei jedem Klick auf den Button wird die Ampelphase um eins hochgezählt,
aber wenn die aktuelle Ampelphase schon = 4 ist springt man zurück auf 1.
Die Abfolge der Ampelphasen wäre also:
0 - 1 - 2 - 3 - 4 - 1 - 2 - 3 ...

Jetzt muss man nur noch der Ampelphase eine Farbe zuordnen und schon ist man fertig.
Ampelphase 2 wäre übrigens Rot & Geld ==> Orange.