So hallo Leute,
Ich hab hier mal ein kleines Problem und hoffe ihr könnt mir dabei helfen.
Also als erstes mal soll das Programm folgendes machen:
Mit Hilfe eines Timers und einer Case-Anweisung möchte ich mit dem Programm eine Art Ampel darstellen.
Dies funktioniert soweit auch wunderbar!
Es läuft auch ein Zähler mit damit ich die einzelnen Schritte nachvollziehen kann!
Das heißt beim Klick auf den Button wird der Timer auf true gesetzt.
Dort wird dann folgendes ausgeführt:
1: Rot
2: Gelb/Rot
3: gelb
4: Grün
5: Gelb
Delphi-Quellcode:
begin
Lb_date.Caption := TimeToStr(Now());
Lb_zaehler1.Caption:=inttostr(zaehler);
zaehler:=zaehler+1;
case zaehler of
1:
begin
Pn_green.color:=clBtnFace;
Pn_yellow.Color:=clBtnFace;
Pn_red.Color:=clred;
end;
2:
begin
Pn_green.color:=clBtnFace;
Pn_yellow.color:=clyellow;
end;
3:
begin
Pn_red.color:=clBtnFace;
Pn_yellow.Color:=clyellow;
Pn_green.color:=clBtnFace;
end;
4:
begin
Pn_red.color:=clBtnFace;
Pn_yellow.color:=clBtnFace;
Pn_green.Color:=clgreen;
end;
5:
begin
Pn_red.color:=clBtnFace;
Pn_green.Color:=clBtnFace;
Pn_yellow.Color:=clyellow;
end;
end;
end;
procedure TForm1.Btn_startClick(Sender: TObject);
begin
Timer1.enabled:=true;
end;
Soweit läuft es auch wunderbar nur möchte ich jetzt, dass das programm nach der ausführung von 5 wieder mit 1 beginnt.
Hab es versucht in eine Schleife zu schreiben doch das hat nicht so richtig wollen! Deshalb frag ich euch mal an dieser Stelle wie ihr das Umsetzen würdet!
Schonmal vielen Dank im vorraus!
mfg Sankar