Hi fabgo,
Zitat von
fabgo:
ok, ich muss dann noch hinzufügen, dass ich erst vor kurzem mit delphi angefangen habe und mit deinen Begriffen nichts anfangen kann.
Erklärung:
Odd (Zahl) gibt true zurück wenn die Zahl ungerade ist
Random (Zahl) gibt eine 'zufällige' Zahl X für die gilt 0 <= X < Zahl. Hier also entweder 0 oder 1.
Delphi-Quellcode:
procedure TAmpel2.Timer1Timer(Sender: TObject);
begin
if ImAuto1.Left <= 620
then begin
ImAuto1.Left := ImAuto1.Left +1;
Timer1.Interval := 5;
end;
if ImAuto1.Left >= 620
then begin
ImAuto1.Left := -20;
Timer1.Interval := 5;
end
else if (ImAuto1.Left > 124) and (ImAuto1.Left < 174) and (Imgelblinks.Visible = True)
then begin
[b]if Odd(Random(2)) then
Timer1.Interval := 25
else
Timer1.Interval := 1;[/b]
end
else if (ImAuto1.Left > 124) and (ImAuto1.Left < 174) and (Imrotlinks.Visible)
then begin
Timer1.Interval := 25;
end;
end;[/quote]
Dies wäre die enfachste Veränderung (und gleichzeitig Khabarakh's Lösung).