Geschwindigkeit umkehren

[DelphiUser1]

So also da bin ich wieder und habe mich direkt mal an die Arbeit gemacht.
X und Y werden wie folgt beschrieben:

Delphi-Quellcode:

 for b := 0 to high(Kreis) do
  begin
    Kreis [b].x := Kreis [b].x + Kreis [b].speedx; //Geschwindigkeit X
    Kreis [b].y := Kreis [b].y + Kreis [b].speedy; //Geschwindigkeit Y
    With Kreis [b] do
    begin
      Left := Kreis [b].x;
      Top := Kreis [b].y;
    end;

Nun zeigen die beiden ja die Position genau so an, wie es notwendig wäre. Wieso funktioniert es nun trotzdem nicht bzw. wieso prallt der Ball mit Bummis Sourcecode falsch ab und bugt rum

[Bummi]

pack das ganze doch mal in ein Zip, so stochern wir im Nebel rum ...

[nuclearping]

Irgendwie hab ich das Gefühl, dass das Ganze bei dir 'n ziemliches Flickwerk ist. Daher nochmal der Tipp: Geh dein Projekt und dein Vorhaben nochmal analytisch durch. Denn wenn du nicht weißt, warum und weshalb etwas geht oder nicht geht, dann weil dir selbst nicht klar ist, was da überhaupt passiert. Und da kommt man dahin, wo wir jetzt sind: Unklare Fragestellung durch unklare Problemformulierung, weil du scheinbar selbst den Überblick irgendwie über das Projekt verloren hast. Oder?

1) for b := 0 to high(Kreis) do Warum 0 to ... und nicht Low(Kreis) to ...?

2)

Delphi-Quellcode:

With Kreis [b] do
    begin
      Left := Kreis [b].x;
      Top := Kreis [b].y;
    end;

Wo wird Width und Height gesetzt?

[DelphiUser1]

Okay alles klar, ich habe den ganzen Kram mal angehängt

[Bummi]

Die Bitmapprobleme hat ja Sir Rufo bereits beantwortet.
Das Klebeproblem lässt sich hierdurch beseitigen, allerdings ist das noch nicht final, da durch die Bedingungen Kollisionen z.B. oben und rechts gleichzeitig gefunden werden, was zu einer optisch nicht nachzuvollziehenden Reflexion führt. Ich habe leider jetzt nicht mehr die Zeit mir eine brauchbare Bedingung zu suchen. Aber wir haben ja genügend Mitstreiter hier ...

Delphi-Quellcode:

    if InterSectRect(Stubrect, Kreis[b].BoundsRect, Image3.BoundsRect) and Image3.Visible then // Box
    begin

      if ((Kreis[b].y + Kreis[b].Height) > Image3.top) or (Kreis[b].y <= (Image3.top + Image3.Height))   then
        Kreis[b].speedy := -Kreis[b].speedy;

      if ((Kreis[b].x + Kreis[b].Width) > Image3.left) or (Kreis[b].x <= (Image3.Left + Image3.Width)) then
        Kreis[b].speedx := -Kreis[b].speedx;
    end;


    Kreis[b].x := Kreis[b].x + Kreis[b].speedx;
    Kreis[b].y := Kreis[b].y + Kreis[b].speedy;

[DelphiUser1]

Danke trotzdem für die ganze Mühe
Mit diesem Code funktoniert die Kollision leider nicht wie gewollt (altes Problem, Einfallswinkel=Einfallswinkel) und manchmal bleibt ein Kreis hängen. Aber ich bin schon ein Stück weiter, danke dafür.
Haben die Anderen den vielleicht noch Ideen, dass zu realisieren?
Ist wichtig und sollte bis Montag fertig sein, wenn möglich

[Bjoerk]

Den elastischen Stoß hab' ich hier mal gepostet:

http://forum.delphi-treff.de/showthr...2-Bewegte-B%#9

Gruß
Thomas

[DelphiUser1]

@Bjoerk: So ganz blicke ich bei dem Code noch nicht durch. Mit Matrizen habe ich mich noch nicht beschäftigt