Pong programmieren

[Blup]

Du kannst natürlich auch dx und dy als einzelne Member/Property deklarieren.
Aber so ist es übersichtlicher, z.B. so:

Delphi-Quellcode:

type
  TGeschwindigeit: record
    dx, dy: Double;
  end;

  derBall = class({z.B. TObject})
  private
    FGeschwindigkeit: TGeschwindigkeit;
    {... weite Member ...} 
  public
    procedure Bandenkollision;
    procedure Schlägerkollision;
    function  bewegt_sich_nach_links : Boolean;
    function  bewegt_sich_nach_rechts : Boolean;
    function  bewegt_sich_nach_oben : Boolean;
    function  bewegt_sich_nach_unten : Boolean;
    procedure bewegeDich;
    {... weite Methoden ...} 
    property Geschwindigeit: TGeschwindigeit read FGeschwindigeit write FGeschwindigeit;
    {... weite Eigenschaften ...} 
  end;

[Mesion]

Guten Tag,

Vielen Dank für eure Antworten, das Forum hier ist echt super

Ich habe jetzt einfach in derBall 2 Variablen eingefügt, also GeschwindigkeitX und GeschwindigkeitY und die neuen Methoden.
Erst hat sich der Ball nicht bewegt, aber dann habe ich gemerkt, dass in der BewegeDich-Methode noch gefehlt hat, dass sich der Stift auf die XKoordinate und YKoordinate bewegt.
Jetzt fliegt der Ball und prallt auch immer an den Schlägern ab, aber ein Problem gibt es trotzdem noch.
Der Ball prallt nicht nur an den Schlägern und der Bande ab, sondern auch auf bestimmten XKoordinaten auf dem Spielfeld, aber nur, wenn sich der Schläger auf der anderen Seite auf der gleichen YKoordinate befindet, wie der Ball.

Hoffentlich konnte ich das halbwegs verständlich erklären ^^

[Blup]

Zitat von Mesion:

Der Ball prallt nicht nur an den Schlägern und der Bande ab, sondern auch auf bestimmten XKoordinaten auf dem Spielfeld, aber nur, wenn sich der Schläger auf der anderen Seite auf der gleichen YKoordinate befindet, wie der Ball.

Dieser Vergleich hat noch nicht gestimmt:

Delphi-Quellcode:

      If (derBall.XKoordinate <= (Schlaeger1.XKoordinate + Schlaeger1.Breite))
      and (derBall.YKoordinate >= Schlaeger1.YKoordinate)
      and (derBall.YKoordinate <= (Schlaeger1.YKoordinate+Schlaeger1.Laenge)) then