PING PONG soll abprallen

[freak4fun]

Ich würde das zum Beispiel so machen:

Delphi-Quellcode:

var
  BallBewegtSichNachRechts: Boolean;

...

  if BallBewegtSichNachRechts then
    Ball.X := Ball.X + 5
  else
    Ball.X := Ball.X - 5;

Nur so als Idee. Mann Kann die Richtung auch als positiven oder negativen Wert in einer Integervariable speichern und dann den Wert addieren.

Delphi-Quellcode:

var
  Ballgeschwindigkeit: Integer;

...

  Ballgeschwindigkeit := 5;
  Ball.X := Ball.X + Ballgeschwindigkeit;

  if Ball.X + Ball.Breite >= Form1.Width then
    Ballgeschwindigkeit := Ballgeschwindigkeit * -1;

Das mal so als Idee. Hab das weder getestet noch wirklich viel drüber nachgedacht.

MfG
freak