Guten Abend Delphi-Freunde,
ich soll für die Schule eine Ampelschaltung programmieren, nur leider funktioniert eine Sache noch nicht
und zwar, wie der Titel schon verrät, hält das Auto (shape Komponente) nicht bei rot.
Delphi-Quellcode:
procedure TForm1.Timer2Timer(Sender: TObject);
begin
if (auto1.left = 120) and (rot.Visible = true) then
begin
auto1.left := 160;
end
else
begin
auto1.left := (auto1.left +3);
if auto1.left = 720 then
auto1.left := 0;
end;
end;
das problem ist, das wenn es rot ist hält das shape (auto1) nicht an sonder fährt weiter und dann fährt es nicht bis zum punkt 720 sondern noch viel weiter... habe noch versucht erst abzufragen ob es rot ist und dann ob der wagen bei punkt 140 ist damit er dannach anhält.
Ich hoffe ihr könnt mir helfen
Mit freundlichen Grüßen
snears