Wie kann ich mit Delphi 7 enterpice ein ping pong abprallen

[VioLater]

brauch hilfe wer echt cool da ich ein echter Anfänger bin. zur zeit siehts so aus

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls;

type
  TForm1 = class(TForm)
    GroupBox1: TGroupBox;
    Shape1: TShape;
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 Timer1.Interval := 150;
 shape1.Left := shape1.Left + 25;
end;

end.

[edit=Phoenix]Dann füg ich die Code-Tags halt ein *GRUMMEL* Mfg, Phoenix[/edit]

[Phoenix]

1.) Herzlich Willkommen in der DP!

2.) Du bist absoluter Anfänger und holst Dir eine veraltete Delphi-Version (7 anstelle von 2006) in der Enterprise-Version?
Guter Tipp: Hol Dir lieber auf www.Turboexlorer.com die Turbo Delphi 2006 - ganz kostenlos - und aktuell.

3.) Bitte ändere Deinen Beitrag ab, und setze Deinen Code in [ delphi ] Code.. [ /delphi ] - Tags. (Ohne Leerzeichen).

4.) Falsche Sparte, ich schieb mal kurz.

[FeindFunker]

Die einfachste Möglichkeit ist es einfach die Vektoren zu spiegeln.
Dafür 2 int Variablen anlegen, eine für die Geschwindigkeit in x- und eine für die in y-Richtung.
Wenn jetzt dein Objekt oben oder unten kollidiert, y-Skalar spiegeln (y = -y);
Bei einer Kollision Rechts oder Links, x-Skalar spiegeln (x = -x);

Die Lösung ist sehr unsauber (es gibt überschneidungen etc etc.) aber sollte für deine Zwecke (Info-Unterricht?) reichen.

[VioLater]

danke

[Thanatos81]

Tststs, da sucht doch unser aktueller Praktikant einfach hinter unserem Rücken Hilfe in meinem Lieblings-Delphi-Forum

Und wer sich jetzt wundert, warum er nicht uns fragt: Vor 10 Minuten hat er von mir gerade nen Tipp bekommen, wie er feststellen kann, wo der rechte Rand des Balls ist und wo der rechte Rand des Spielfeldes. Beim Abprallen sind wir also noch nicht ganz.

[dfried]

Zitat von Thanatos81:

Tststs, da sucht doch unser aktueller Praktikant einfach hinter unserem Rücken Hilfe in meinem Lieblings-Delphi-Forum

Na dann bring deinem Praktikanten mal ganz schnell bei, dass es reicht, eine Frage einmal zu stellen (im richtigen Forum) und nicht dreimal in unterschiedlichen foren!!!

[Phoenix]

Zitat von dfried:

Na dann bring deinem Praktikanten mal ganz schnell bei, dass es reicht, eine Frage einmal zu stellen (im richtigen Forum) und nicht dreimal in unterschiedlichen foren!!!

Oder dreimal in verschiedenen Threads im gleichen Forum.

[Nils_13]

Vorallem frag ich mich langsam, wie es Leute schaffen, immer noch nach der Kollission zu fragen, welche wir ja schon tausend mal durchgekaut haben....

[Thanatos81]

Habs ihm gerade begrifflich gemacht, sowohl das Abprallen, als auch die Forenregeln bezüglich Einordnung der Postings, eine Frage pro Thread, und ein Thread pro Frage, Suchfunktion usw.

Tut mir leid für den Aufwand deinerseits, Phoenix und auch den Unannehhmlichkeiten für dich und alle anderen.