Timer VErständnis Frage!

[alcaeus]

Hi Wargrave,

wenn ich mich nicht irre, dann beziehst du dich auf diese Frage.
Du könntest die Tag-Eigenschaft des Timers dazu verwenden:
Im OnTimer

Delphi-Quellcode:

Timer1.Tag := Timer1.Tag + 1;
case Timer1.Tag of
  5: //schalte auf grün
  10: //schalte auf orange
  12: begin
    //schalte auf rot
    Timer1.Tag := 0; //zurücksetzen, der Spaß beginnnt von neuem.
  end;
end;

Kurze Erklärung: Die Werte hängen vom Timer-Intervall ab. Nehmen wir an, du stellst 1000 (entspricht ca. 1 Sekunde) als Intervall ein, dann ist die Ampel 5 Sekunden lang auf Rot, 5 Sekunden lang auf Grün, 2 Sekunden auf Orange und dann beginnt das Spiel von neuem.

Greetz
alcaeus