Ampel mit einstellbaren Intervallen

[NMR]

Hi,
Ich bin zurzeit dabei eine Ampelsteuerung zu proggen. Eine Sache die schon viele gemacht haben^^
Aber meine Frage ist , wie ich den Intervall verändern kann
habe eine normale Ampelsteuerung.

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
begin

case intervall of
1: begin
       r
      sh_oben.Brush.Color := clRed;
      sh_mitte.Brush.Color := clWhite;
      sh_unten.Brush.Color := clWhite;
  end;
rg: begin
      sh_oben.Brush.Color := clRed;
      sh_mitte.Brush.Color := clyellow;
      sh_unten.Brush.Color := clWhite;
    end;

....

Bei einem case of muss ich jaKonstante benutzen, wie dort die 1: aber würd gern eine Variablen benutzen...(oben rg)
kann ich das iwie anders machen. Will das nicht zu gern alles mit If machen.
Hoffe könnt mir paar Tipps geben wie ich es sonst anders machen könnte.

danke

[mkinzler]

Was soll dann in rg stehen?

[marabu]

Hallo,

die Label der Case-Anweisung sind Konstanten - die Variable wird im Kopf der Anweisung eingesetzt. Du könntest dir die Ampelphasen als Aufzählungstyp definieren. Schau mal hier: klick

Grüße vom marabu

[NMR]

also rg soll eine Variable sein in der das Intervall gespeichert wird. der
benutzer kann also das intervall festlegen

[mkinzler]

Ich verstehe immer noch nicht den Zusammenhang mit deinem Code, der Intervall steht doch in der Variable Intervall.

[NMR]

ok^^

also
ich habe text felder in meinen prog. Dort wird die zeit angegeben wie lang die einzelnen zustände "leuchten" sollen.
eine Variable wo diese zeit (intervall) gespeichert wird ist rg (rot-gelb)

[pacman1986]

Du brauchst nur 4 Zustände bei deiner ampel
also

Delphi-Quellcode:

case i of
  1:begin ... end;
  2:begin ... end;
  3:begin ... end;
  4:begin ... end;
end;

dein intervall kannst du dann dort einsetzten indem du den intervall des timers änderst

timer1.intervall := rg; //oder 1000 oder 2000 ka was du willst halt ^^

[NMR]

besten dank funktioniert perfekt!