![]() |
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:
danke im vorraus, wir würden uns auf schnelle hilfe freuen.
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. mirella und freunde |
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] |
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. |
Re: Autorennen
danke, aber was ist wenn wir die postition des buttons nicht kennen?
|
Re: Autorennen
Die Position des Buttons ist bekannt. Sie steht in den Eigenschaften Button.Left, Button.Top, Button.Width und Button.Height.
|
Re: Autorennen
Was ist daran falsch?
Delphi-Quellcode:
if rectangle.left < (button1.left+button1.width) then showmessage 'Unfall';
|
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. ![]() 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. |
Re: Autorennen
Zitat:
Delphi-Quellcode:
sein.
if rectangle.left < (button1.left+button1.width) then showmessage('Unfall');
|
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?? |
Re: Autorennen
Zitat:
|
Alle Zeitangaben in WEZ +1. Es ist jetzt 19:58 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 by Thomas Breitkreuz