kleine Anfängerfrage

[louisnws]

[QUOTE=himitsu;1149146]

Zitat:

wenn Du da ein "or" verwendest...

Zunächst, danke für eure Hilfe :)
dann: Ich hab das nicht gesagt ;)
also jetzt .. hm jetzt hab ich 1. ein bisschen den Überblick verloren was ich getan habe und 2. Erscheinen jetzt teilweise plötzlich 3 quadrate :(

[borstenei]

Du hast Recht ..hier wird schnell geschossen ..auch mal ohne auf den Absender zu schauen..:lol:

[louisnws]

Also Ich brauche immernoch Hilfe ich hab es jetzt mal zum vereinfachen umgestellt von Buttons zu KEYS :)
Hier der Quelltext

Delphi-Quellcode:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);


  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  MannX: Integer;
  MannY: Integer;
  JagdX: Integer;
  JagdY: Integer;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
Button1.Visible := false;
Canvas.Brush.Color := clred;
Form1.Canvas.Rectangle(MannX,MannY,MannX+50,MannY+50);
Form1.Canvas.Rectangle(JagdX,JagdY,JagdX+50,JagdY+50);
  if (MannX + 50 > JagdX) and (MannX < JagdX + 50) and {3} (MannY + 50 > JagdY) and (MannY < JagdY+50) then
  begin
    JagdX := Random(4000) + 1;
    JagdY := Random(4000) + 1;
    Canvas.Rectangle(JagdX, JagdY, JagdX + 50, JagdY + 50); // 2
  end;
end;




procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if Key=  Ord('W') then
begin
dec(mannY,5);
Form1.Refresh;
Canvas.Rectangle(MannX,MannY,MannX + 50,MannY+50);
JagdX:=random(40)+1;
JagdY:=random(40)+1;
Form1.Canvas.Rectangle(JagdX,JagdY,JagdX+50,JagdY+50);
end;
if Key= Ord('S') then
begin
inc(MannY,5);
Form1.Refresh;
Canvas.Rectangle(MannX,MannY,MannX + 50,MannY+50);
JagdX:=random(40)+1;
JagdY:=random(40)+1;
Form1.Canvas.Rectangle(JagdX,JagdY,JagdX+50,JagdY+50);
end;
if Key= Ord('A') then
begin
Dec(MannX,5);
Refresh;
Canvas.Rectangle(MannX,MannY,MannX + 50,MannY+50);
inc(JagdX, random(41)-20) ;
inc(JagdY, random(41)-20) ;
Canvas.Rectangle(JagdX,JagdY,JagdX+50,JagdY+50);
end;
if Key= Ord('D') then
begin
//rechts
inc(MannX,5);
Form1.Refresh;
Canvas.Rectangle(MannX,MannY,MannX + 50,MannY+50);
JagdX:=random(40)+1;
JagdY:=random(40)+1;
Form1.Canvas.Rectangle(JagdX,JagdY,JagdX+50,JagdY+50);
end;
end;


end.

Fehlerbeschreibung:
- das Quadrat das gefangen werden soll bewegt sich nur oben Links
- Das Quadrat erscheint nicht sonstwoanders wenn ich es treffe verschindet sogar nichtmal

Fragen:
-Ich hab jetzt

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
Button1.Visible := false;
Canvas.Brush.Color := clred;
Form1.Canvas.Rectangle(MannX,MannY,MannX+50,MannY+50);
Form1.Canvas.Rectangle(JagdX,JagdY,JagdX+50,JagdY+50);
  if (MannX + 50 > JagdX) and (MannX < JagdX + 50) and {3} (MannY + 50 > JagdY) and (MannY < JagdY+50) then
  begin
    JagdX := Random(4000) + 1;
    JagdY := Random(4000) + 1;
    Canvas.Rectangle(JagdX, JagdY, JagdX + 50, JagdY + 50); // 2
  end;
end;

Button 1 ist der START Button
Warum springt das Objekt nicht wie verrückt wo ich doch

Delphi-Quellcode:

JagdX := Random(4000) + 1;
    JagdY := Random(4000) + 1;

das hier gemacht hab also randon(4000) ist dochziemlich hoch oder?

[himitsu]

Zitat:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
Button1.Visible := false;
Canvas.Brush.Color := clred;
Form1.Canvas.Rectangle(MannX,MannY,MannX+50,MannY+50);  // 1
Form1.Canvas.Rectangle(JagdX,JagdY,JagdX+50,JagdY+50);  // 2
  if (MannX + 50 > JagdX) and (MannX < JagdX + 50) and (MannY + 50 > JagdY) and (MannY < JagdY+50) then
  begin
    JagdX := Random(4000) + 1;
    JagdY := Random(4000) + 1;
    Canvas.Rectangle(JagdX, JagdY, JagdX + 50, JagdY + 50); // 3
  end;
end;

Es werden ja auch 3 Quadrate gezeichnet. :wink:
Aber das kann man ändern, indem man entweder das Eine oder das Andere zeichnet.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Button1.Visible := False;
  Canvas.Brush.Color := clRed;
  Canvas.Rectangle(MannX, MannY, MannX + 50, MannY + 50); // 1
  if (MannX + 50 > JagdX) and (MannX < JagdX + 50) and (MannY + 50 > JagdY) and (MannY < JagdY+50) then
  begin
    JagdX := Random(4000) + 1;
    JagdY := Random(4000) + 1;
    Canvas.Rectangle(JagdX, JagdY, JagdX + 50, JagdY + 50); // 3
  end else begin
    Canvas.Rectangle(JagdX, JagdY, JagdX + 50, JagdY + 50); // 2
  end;
end;

Oder Beides zusammenlegt, da der Code ja gleich ist.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Button1.Visible := False;
  Canvas.Brush.Color := clRed;
  Canvas.Rectangle(MannX, MannY, MannX + 50, MannY + 50); // 1
  if (MannX + 50 > JagdX) and (MannX < JagdX + 50) and (MannY + 50 > JagdY) and (MannY < JagdY+50) then
  begin
    JagdX := Random(4000) + 1;
    JagdY := Random(4000) + 1;
  end;
  Canvas.Rectangle(JagdX, JagdY, JagdX + 50, JagdY + 50); // 2+3
end;

[louisnws]

Super vielen Dank :)
Das Problem ist gelöst bleibt nurnoch das Problem das das Quadrat nicht verschwinden will :(
Dazu eine Grundsatz frage:
Bei Random bedeutet doch diese Zahl : random(X) aus wievielen Zahlen er aussucht und diese random(10)+1 einfach nur das es nicht 0 ist oder ?? ich habe

Delphi-Quellcode:

begin
Button1.Visible := false;
Canvas.Brush.Color := clred;
Form1.Canvas.Rectangle(MannX,MannY,MannX+50,MannY+50);
Form1.Canvas.Rectangle(JagdX,JagdY,JagdX+50,JagdY+50);
  if (MannX + 50 > JagdX) and (MannX < JagdX + 50) and  (MannY + 50 > JagdY) and (MannY < JagdY+50) then
  begin
    JagdX := Random(4000) + 1;
    JagdY := Random(4000) + 1;
    end else begin
    Canvas.Rectangle(JagdX, JagdY, JagdX + 50, JagdY + 50);
  end;
end;

Einen riesen Random warum erscheint das Rechteck nicht sonstwo und !! viel schlimmer das Rechteck springt überhaupt nicht weg wenn ich es berühre!! :/

[himitsu]

Einen riesen Random warum erscheint das Rechteck nicht sonstwo und !! viel schlimmer das Rechteck springt überhaupt nicht weg wenn ich es berühre!! :/[/QUOTE]

Random ?
- ohne Parameter: 0 <= Result < 1 (von 0 bis 0.9999999)
- mit Parameter: 0 <= Result < Parameter (von 0 bis Parameter-1)
und was +1 macht müßte ja klar sein.

Zitat:

Random(4000)

Wir groß ist dein Formular, bzw. dein Monitor?
(ob dort 4000 Punkte nebeneinander draufpassen :gruebel:)


Geh mal deine Prozedur duch und schau was jeweils passiert.
- wann werden die Variablen gesetzt und was wird wo hingemalt

Delphi-Quellcode:

begin
  Button1.Visible := False;
  Canvas.Brush.Color := clRed;
  Canvas.Rectangle(MannX, MannY, MannX + 50, MannY + 50);
  Canvas.Rectangle(JagdX, JagdY, JagdX + 50, JagdY + 50);
  if TRUE then
  begin
    JagdX := Random(4000) + 1;
    JagdY := Random(4000) + 1;
  end else begin
    //Canvas.Rectangle(JagdX, JagdY, JagdX + 50, JagdY + 50);
  end;
end;

Delphi-Quellcode:

begin
  Button1.Visible := False;
  Canvas.Brush.Color := clRed;
  Canvas.Rectangle(MannX, MannY, MannX + 50, MannY + 50);
  Canvas.Rectangle(JagdX, JagdY, JagdX + 50, JagdY + 50);
  if FALSE then
  begin
    //JagdX := Random(4000) + 1;
    //JagdY := Random(4000) + 1;
  end else begin
    Canvas.Rectangle(JagdX, JagdY, JagdX + 50, JagdY + 50);
  end;
end;

[Coffeecoder]

Hi, kleine Zusatzformel wenn du mit Randwerten arbeitest:

Delphi-Quellcode:

   n := random(L2-L1+1)+L1;

Wobei n deine Zahl wird/ist, L1 und L2 sind deine Randwerte (inbegriffen) und L1 < L2.

[himitsu]

@Coffeecoder: Das +1 ist bestimmt zuviel.

RandomRange

Delphi-Quellcode:

function RandomRange(const AFrom, ATo: Integer): Integer;
begin
  if AFrom > ATo then
    Result := Random(AFrom - ATo) + ATo
  else
    Result := Random(ATo - AFrom) + AFrom;
end;

[louisnws]

Hallo also Jetzt noch eine Frage wie Grenz ich meine Form denn ein sodass das Quadrat nciht "entkommen" kann?
Also das es nicht über den Randbereich hinauskann
Und woher weiß ich die Randkoordinaten?

[himitsu]

Eigentlich heißt es hier ja "nur eine Frage pro Thread".

Wie hast du denn geprüft, ob das Ziel getroffen ist?
Genau das Gleiche kann man auch mit den Rändern machen. (ist Rand getroffen)

- vor dem Verschieben prüfen, ob es es drüber gehn würde und wenn ja, dann nicht verschieben
- nach dem Verschieben gucken, ob drüber und wenn ja, dann zurück vor die Grenze verschieben



Alternativ gibt es auch hilfreiche Funktionen: Max Min