Autorennen

[mirella]

Hallo,

wir machen gerade eine Art "Autorennen", wir kommen allerdings nicht weiter. Unser Problem besteht darin, dass wir nicht wissen, wie wir das machen sollen, dass das programm delphi registriert, dass ein Crash zwischen Button und rectangle vorliegt.

unser ziel besteht darin, dass man mit dem button den heranschnellenden Rectangles ausweichen soll. Wenn button und rectangle auf einander treffen, soll eine message ausgegeben werden und genau da ist unser problem, dass wir nicht wissen wie es geht.

unser derzeitiges Programm sieht folgendermaßen aus:

Delphi-Quellcode:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Timer1: TTimer;
    Image1: TImage;
    procedure Button4Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button2KeyPress(Sender: TObject; var Key: Char);
    procedure Timer1Timer(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  x,y,breite:integer;

implementation

{$R *.dfm}

procedure TForm1.Button4Click(Sender: TObject);
begin
close;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
timer1.enabled:=true;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
timer1.Enabled:=false;
end;

procedure TForm1.Button2KeyPress(Sender: TObject; var Key: Char);
begin
 if key='s' then if button1.Top < (image1.Top+image1.Height-20)
    then button1.Top:=button1.top+10;
if key='w' then if(button1.Top > image1.Top)then button1.Top:=button1.Top-10;

end;

procedure pause (zeit:longint);
var merke_zeit1:longint;
begin
merke_zeit1:=GettickCount;
repeat
Application.processMessages;
until (GettickCount-merke_zeit1>zeit);
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
x:=601;
randomize;
breite:=random(50);
y:=random(200)+1;
image1.canvas.Rectangle(x,y,x+breite,y+breite);
repeat
pause(10);
x:=x-25;
with image1.Canvas do
begin
brush.Color:=clgreen;
Rectangle(x,y,x+breite,y+breite);
pause (90);
brush.Color:=clskyblue;
Rectangle(-10,-10,700,250);
end;
until x<-10;
end;


end.

danke im vorraus, wir würden uns auf schnelle hilfe freuen.
mirella und freunde

[Sven M.]

[OT]Benutze bitte die Delphi-Tags, das macht den Code übersichtlicher.:)
Die Dinger findest du wenn du einen Beitrag erstellst und auf "Delphi-Code" klickst...:)[/OT]

[Namenloser]

Hallo,

Ansatz:
Wann überschneiden sich Rechtecke? Wenn sich mindestens einer der Eckpunkte des einen Rechtecks im anderen Rechteck befindet.
Wann befindet sich ein Punkt im Rechteck? Wenn seine X-Koordinate größer ist als die Position des linken Randes (Rectangle.Left) des Rechtecks und kleiner als die Position des rechten Randes (Rectangle.Left+Rectangle.Width), das gleiche für die Y-Koordinate.

Wenn man faul ist, kann man auch die API-Funktion IntersectRect verwenden.

[mirella]

danke, aber was ist wenn wir die postition des buttons nicht kennen?

[Namenloser]

Die Position des Buttons ist bekannt. Sie steht in den Eigenschaften Button.Left, Button.Top, Button.Width und Button.Height.

[mirella]

Was ist daran falsch?

Delphi-Quellcode:

if rectangle.left < (button1.left+button1.width) then showmessage 'Unfall';

[alleinherrscher]

Die Bedingung reicht nicht aus. Sie wird immer eine Messagebox mit "Unfall" auslösen, wenn sich dein Rechteck links vom rechten Ende des Buttons befindet.

Als erstes hilft wohl eine kleine Zeichnung, damit man mal weiß, worüber man eigentlich redet.

http://lanfs.la.funpic.de/Michi/kollision.png


Wenn du nun wissen willst, ob eine Kollision vorliegt, musst du für jeden grünen Punkt überprüfen, ob er in dem Rechteck mit den roten Punkten liegt. Zusätzlich sollte man auch Überprüfen, ob ein roter Punkt in dem Rechteck mit den grünen Punkten liegt.

[TurboMartin]

Zitat:

Zitat von mirella

Was ist daran falsch?

Delphi-Quellcode:

if rectangle.left < (button1.left+button1.width) then showmessage 'Unfall';

Im gegensatz zu Visual Basic gibt es in Delphi um die Paramter einer Methode ( -> Prozeduren/Funktionen ) Klammern. Somit muss es

Delphi-Quellcode:

if rectangle.left < (button1.left+button1.width) then showmessage('Unfall');

sein.

[mirella]

soweit sind wir noch gar nicht. Wenn wir das Programm starten wollen dann sagt er folgendes:

[Warning] Unit1.pas(66): Combining signed and unsigned types - widened both operands
[Error] Unit1.pas(83): There is no overloaded version of 'Rectangle' that can be called with these arguments
[Error] Unit1.pas(95): Statement expected but end of file found
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'

und was sollen wir jetzt ändern??

[Namenloser]

Zitat:

Zitat von alleinherrscher

Die Bedingung reicht nicht aus. Sie wird immer eine Messagebox mit "Unfall" auslösen, wenn sich dein Rechteck links vom rechten Ende des Buttons befindet.

Als erstes hilft wohl eine kleine Zeichnung, damit man mal weiß, worüber man eigentlich redet.

http://lanfs.la.funpic.de/Michi/kollision.png


Wenn du nun wissen willst, ob eine Kollision vorliegt, musst du für jeden grünen Punkt überprüfen, ob er in dem Rechteck mit den roten Punkten liegt. Zusätzlich sollte man auch Überprüfen, ob ein roter Punkt in dem Rechteck mit den grünen Punkten liegt.

Naja, die Zeichnung verkompliziert das ganze. Wenn die Rechtecke verschiedene Winkel haben müsste man zusätzlich noch überprüfen, ob sich die Kanten schneiden. Die Rechtecke, um die es hier geht, sind aber parallel zu den Achsen.

[mirella]

@alleinherrscher :

die rectangles können bei dem Spiel nur von rechts kommen und uns reicht dass, wenn die linke seite des rechtecks die linke seite des buttons überschneidet

[alleinherrscher]

Zitat:

Zitat von NamenLozer

Naja, die Zeichnung verkompliziert das ganze. Wenn die Rechtecke verschiedene Winkel haben müsste man zusätzlich noch überprüfen, ob sich die Kanten schneiden. Die Rechtecke, um die es hier geht, sind aber parallel zu den Achsen.

Korrekt, ich war grade schon am Gradengleichungen aufstellen :-D

@mirella: Aber musst du dann nicht zumindest die selbe Abfrage noch mit der Höhe (also Top und Height) von Button und Rechteck machen?

@Topic:

Zitat:

[Error] Unit1.pas(83): There is no overloaded version of 'Rectangle' that can be called with these arguments
[Error] Unit1.pas(95): Statement expected but end of file found

Wie ich deinem oberen Quellcode entnehme, zeichnest du mit der Procedure Canvas.Rectangle ein Rechteck auf ein Image. Hierbei ist Rectangle allerdings eine Funktion (von TCanvas, die die Aufgabe hat, ein Rechteck zu zeichnen) und keine Klasse bzw. kein Object. Rectangle hat daher keine Eigenschaft "left" oder "width". Nimm anstatt dessen doch deine eingeführten Variablen x,y,breite!

[mirella]

ja schon, nur bringt uns das null wenn das mit den rectangle.left...nicht funktionuniert

[alleinherrscher]

Hab meinen letzten Post nochmal editiert, damit sollte das Problem eig. gelöst sein?!

[jokerfacehro]

also hier das schema

benutzt einfach en shape mit rectangle form.

dann überprüft ihr folgendes:

Delphi-Quellcode:

if(auto1.left<auto2.left+auto2.Width)AND(auto1.left>auto2.left)AND(auto1.top<auto2.top+auto2.height)AND(auto1.top>auto2.top) then
 showmessage('besteht eine kollision');

so einfach


edit: ich würde euch raten, für viele datenmengen vorgefertigte bibliotheken oder ähnliches zu nutzen,
da die ständige kollisionsabfrage mit über 100 autos schon etwas ressourcenfressend ist.

aber das sollte für euch reichen wenn ihr nur paar autos habt.

[mirella]

soweit relativ klar nur entsteht jetzt gar kein unfall mehr

[mirella]

hat vielleicht jemand noch eine idee was wir daran so ändern können dass eine kollision stattfinden kann?