Kreise sollen von Wänden abprallen, tun sie aber nicht

[DeddyH]

ntop und nleft sind die Positionen, die nach einer ungeprüften Bewegung angenommen würden. Und was sind denn wohl die Minimalwerte für Left und Top, die Deine Kreise annehmen dürfen? Kleiner Tipp: das ist bei beiden das Gleiche und könnte als Konstante mit Namen ZERO deklariert werden.

[Premaider]

Zitat von DeddyH:

ntop und nleft sind die Positionen, die nach einer ungeprüften Bewegung angenommen würden. Und was sind denn wohl die Minimalwerte für Left und Top, die Deine Kreise annehmen dürfen? Kleiner Tipp: das ist bei beiden das Gleiche und könnte als Konstante mit Namen ZERO deklariert werden.

Null, aber ich krieg das irgendwie nicht realisiert. Entweder bewegt sich garnichts mehr oder es wabbelt einfach nur rum oder es prallt nicht ab.

[DeddyH]

Wenn Left < 0 oder (Left + Width) > Form.ClientWidth wird, Richtung umkehren, das Gleiche analog für die Y-Achse.

[Premaider]

Zitat von DeddyH:

Wenn Left < 0 oder (Left + Width) > Form.ClientWidth wird, Richtung umkehren, das Gleiche analog für die Y-Achse.

So?

Delphi-Quellcode:

    // Obere Grenze prüfen

    if ntop > ( 0 + k.Height ) then
      begin
        k.speedy := - k.speedy; // Richtung umdrehen
      end;

    // Linke Grenze prüfen

    if nleft < ( 0 + k.Width ) then
      begin
        k.speedx := - k.speedx; // Richtung umdrehen
      end;

Weil jetzt bewegt es sich nurnoch in x richtung und wackelt hin und her.

[DeddyH]

Und so?

Delphi-Quellcode:

if (ntop < 0) or (ntop + k.Height > ClientHeight) then
  k.speedy := - k.speedy;
if (nleft < 0) or (nleft + kWidth > ClientWidth) then
  k.speedx := -k.speedx;

[Sir Rufo]

Mal dir das doch einfach mal auf, dann sieht man das auch besser.

Hier mal ein paar Hinweise:

Mit Top und Left ist die linke, obere Ecke beschrieben. Über die Informationen Width und Height ist es möglich auch die untere und rechte Kante zu bestimmen.

Rechte Kante = Left + Width
Untere Kante = Top + Height

Man kann sich das aber auch anders vorstellen:

Der Bereich, indem sich die linke obere Ecke sich befinden darf ist:

Code:

0 <= Kreis.Top < Form.ClientWidth - Kreis.Width
0 <= Kreis.Left < Form.ClientHeight - Kreis.Height

also

Delphi-Quellcode:

if ntop >= Self.ClientHeight - k.Height then
...
if ntop < 0 then
...
if nleft >= Self.ClientWidth - k.Width then
...
if nleft < 0 then
...

Zitat von DeddyH:

Und so?

Delphi-Quellcode:

if (ntop < 0) or (ntop + k.Height > ClientHeight) then
  k.speedy := - k.speedy;
if (nleft < 0) or (nleft + kWidth > ClientWidth) then
  k.speedx := -k.speedx;

Nicht ganz, denn jetzt passt nur die Anpassung der Richtungen, aber die neue Position muss ja auch noch errechnet werden

[Premaider]

danke so geht es

[Uwe Raabe]

Abfrage falsch!

Zitat von Premaider:

Delphi-Quellcode:

    // Obere Grenze prüfen

    if ntop > ( 0 + k.Height ) then  // Falsch herum!
      begin
        k.speedy := - k.speedy; // Richtung umdrehen
      end;