Delphi-PRAXiS
Seite 1 von 2  1 2      

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)
-   -   Autorennen (https://www.delphipraxis.net/132116-autorennen.html)

mirella 6. Apr 2009 15:55


Autorennen
 
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. 6. Apr 2009 15:57

Re: Autorennen
 
[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 6. Apr 2009 16:05

Re: Autorennen
 
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 6. Apr 2009 16:11

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

Namenloser 6. Apr 2009 16:13

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

mirella 6. Apr 2009 16:42

Re: Autorennen
 
Was ist daran falsch?

Delphi-Quellcode:
if rectangle.left < (button1.left+button1.width) then showmessage 'Unfall';

alleinherrscher 6. Apr 2009 16:54

Re: Autorennen
 
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 6. Apr 2009 16:57

Re: Autorennen
 
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 6. Apr 2009 16:59

Re: Autorennen
 
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 6. Apr 2009 17:02

Re: Autorennen
 
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.


Alle Zeitangaben in WEZ +1. Es ist jetzt 19:58 Uhr.
Seite 1 von 2  1 2      

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 by Thomas Breitkreuz