Kreuzung mit Autos

[Luckie]

Oder so.

[Sir Rufo]

Zitat von Luckie;:

Oder so.

Eher besser so. Ist dann wie im wahren Leben. Die Ampel ist eine reine Anzeige und hat keinen Einfluß ob ein Fahrzeug sich bewegt oder nicht.
Die Bewegung erfolgt vom Fahrzeug selbst.

Der Timer ist stellvertretend für den Fahrer und bewegt das Fahrzeug weiter wenn wieder grün ist.
Erkennen kann das der Fahrer (Timer) wenn er immer wieder den Status der Ampel überprüft.

Schließlich klopft die Ampel ja auch nicht an die Scheibe "Hallo, grün"
(obwohl das eigentlich nicht schlecht wär)

[Luckie]

Klingt logisch. Und die Zeiten mit den Hupampeln sind in meinem Alter auch vorbei.

[blumblum]

Wenn ich das so mache wie ich den ausgeschalten habe ( if (auto.top=340) and (SGruenB.Brush.color=clgreen) then timerauto1.enabled:=true; ) dann klappt das leider nicht,wäre auch zu leicht gewesen.

Es soll ja nicht so sein wie im echten leben,es soll nur schön aussehen ud funktionieren

[Luckie]

OK, noch mal zum Mitschreiben. Wann soll das Auto wieder fahren? Wenn die Ampel grün wird. Also aktiviere den Timer wieder, wenn die Ampel auf grün schaltet.

[blumblum]

So habs mitgeschrieben

Und auch versucht umzusetzen jedoch geht das nicht....

[Sir Rufo]

Meine Güte, dass kann sich ja keiner mit ansehen

Delphi-Quellcode:

procedure TForm1.TimerAuto1Timer(Sender: TObject);
begin
  if (auto.top=340) and (SRotB.brush.color=clred) then 
    begin
      // Fahrer in der Nase bohren lassen
    end
  else
    begin
      Auto.Top := auto.Top - 1;
      if auto.top < 0 then auto.top := 390;
    end;

end;

Nix mit Timer ein oder ausschalten ... einfach im Timer NIX machen

[Luckie]

Dein Code ist aber auch nicht gerade eine Ausgeburt von Schönheit.

Delphi-Quellcode:

procedure TForm1.TimerAuto1Timer(Sender: TObject);
begin
  if (auto.top<340) and (SRotB.brush.color=clgreen) then
  begin
    Auto.Top := auto.Top - 1;
    if auto.top < 0 then
      auto.top := 390;
  end;
end;