AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Sprachen und Entwicklungsumgebungen Sonstige Fragen zu Delphi Delphi Kollisionserkennung zwischen zwei Kugeln einer Klasse
Thema durchsuchen
Ansicht
Themen-Optionen

Kollisionserkennung zwischen zwei Kugeln einer Klasse

Ein Thema von katika90 · begonnen am 28. Apr 2011 · letzter Beitrag vom 28. Apr 2011
 
katika90

Registriert seit: 11. Dez 2010
16 Beiträge
 
#1

Kollisionserkennung zwischen zwei Kugeln einer Klasse

  Alt 28. Apr 2011, 14:49
Hay Community,
ich habe wieder mal ein Problem :

Also ich habe eine Klasse ukKugel. In der Unit 1 werden nun zwei Kugeln in einem Bild erzeugt, die sich bewegen(ähnlich wie Billard). Die Kugeln kollidieren eigentlich ziemlich gut mit der Rand des Bildes und der jeweils anderen Kugel. Jetzt sollen wir aber implementieren, dass die eine Kugel größer ist als die andere (auch noch nicht so schwer für mich ). Das Problem von mir ist nun, dass bei einer Kollision mit der anderen Kugel die größere langsamer als vorher werden soll und die kleinere schneller. Ich habe nun einen Ansatz der leider nicht ganz so funktioniert wie ich das will Bei mir werden beide Kugeln schneller ....

Delphi-Quellcode:
if ( self.x<=Kugel.x+Kugel.breite)and //Kugel ist eine Variable in der die kennt-Beziehung "erstellt" wird
  (self.x+self.breite>=Kugel.x) and
  (self.y<=Kugel.y+Kugel.hoehe ) and
  (self.y+self.hoehe>=Kugel.y)then
    begin
      if self.breite>Kugel.breite then
        begin
          self.Speicher := self.vx*2;
          self.vx := Kugel.vx-5;
          Kugel.vx := self.Speicher;

          self.Speicher := self.vy*2;
          self.vy := Kugel.vy-5;
          Kugel.vy := self.Speicher;
        end;

      if self.breite<Kugel.breite then
        begin
          self.Speicher := self.vx-2;
          self.vx := Kugel.vx*2;
          Kugel.vx := self.Speicher;

          self.Speicher := self.vy-2;
          self.vy := Kugel.vy*2;
          Kugel.vy := self.Speicher;
        end;

  end;
Könnt Ihr mir sagen was falsch ist und das verbessern?

Danke im Vorraus
Katika
Katika
  Mit Zitat antworten Zitat
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 20:59 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz