kleine Anfängerfrage

[louisnws]

Hm gibt es einen thread in sachen Codeformatierung?? Ehrlich gesagt hab ich keine Ahnung was du damit meinst
also müsste ich schreiben
If ...<... then random
end
If ...>... then random
end
??
Und nein das mit dem jagdx:=random(40)+1 soll erstmal so bleiben ich gehe Schritt für schritt vor hast schon recht später soll das anders werden aber mir gehts nciht um ein tolles spiel sondern um den lerneffekt darum auch schritt für schritt das problem liegt darin das ich es nicht schaffe das das Quadrat wenn ich es mit meinem gesteuerten quadrat erwische verschwindet und woanders wieder auftaucht dafür wollte ich eben
das hier
If (MannX+50>JagdX) and (MannX<JagdX+50) or (MannY<JagdY+50) and (MannY+50>JagdY)
then (Form1.Canvas.Rectangle(JagdX,JagdY,JagdX+50,JagdY +50))and(JagdX:=random(400)+1) and
(JagdY:=random(400)+1);
verwenden
Das Problem wird hier JagdX:=random(400)+1) angezeigt

[Sir Rufo]

Bitte benutze doch für Delphi-Quellcode die DELPHI Tags (das ist der Button mit dem Helm)

Dann sieht das nicht so aus

If ...<... then random
end
If ...>... then random
end
??

sondern so

Delphi-Quellcode:

If ...<... then random 
end
If ...>... then random
end
??

und was himitsu meinte war

Delphi-Quellcode:

If ...<... then  
  begin
    foo := foo + 1;
    foo := foo * 10;
  end;

[louisnws]

Also ich brings nochmal auf den Punkt Ich habe ein Programm geschrieben in dem Bis jetzt (!) ein Quadrat per Knopfdruck gesteuert werden kann, später mit den tasten jetzt nch mit Buttons und ein anderes Quadrat erscheint jedes mal wenn ein Button gedrückt wird an einer Zufallsposition das hat funktioniert
Jetzt wollte ich erreichen das das Zufalls-Quadrat verschwindet wenn ich es erwische mit dem steuerbaren quadrat und dann an einem beliebigen Ort wieder auftaucht. Damit hätte man das Spiel dann gewoonnen.
Als ich dann das hier eingegebe habe

Delphi-Quellcode:

Form1.Canvas.Rectangle(JagdX,JagdY,JagdX+50,JagdY+50);

If (MannX+50>JagdX) and (MannX<JagdX+50) or (MannY<JagdY+50) and (MannY+50>JagdY)
then (Form1.Canvas.Rectangle(JagdX,JagdY,JagdX+50,JagdY+50))and(JagdX:=random(400)+1) and
(JagdY:=random(400)+1);

ging nichts mehr und mehrere Fehler traten auf !
Sorry das war mein erster Beitrag ich hoff das stimmt jetzt so
Danke im Vorraus für eure späte unterstützung

[borstenei]

so geht das garnicht!

[himitsu]

Zitat von louisnws:

und mehrere Fehler traten auf

Welche Fehler?

Delphi wird dir ja bestimmt keine Meldung entgegen werfen, wo nur "Fehler" dasteht!

Tipp: Einfach nochmal alle Antworten hier von oben an durchlsen.

Tipp2: Man kann Beiträge auch bearbeiten, wenn man nochwas hinzufügen möchte. (dazu sollte auch was im Verhaltenskodex geschreiben sein)
(innerhalb von 24 Stunden sind diese editierbar, vorallem wenn noch kein anderer was zwischendurch geschrieben hat)

Zitat:

wenn Du da ein "or" verwendest...

Nicht ich denke das ... du hattest es mit OR geschrieben, in Post #1

Zitat:

If (MannX+50>JagdX) and (MannX<JagdX+50) or (MannY<JagdY+50) and (MannÝ+50>JagdY)

[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..

[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]

Hier im Forum gibt es erstmal die [CODE]-, bzw. [DELPHI]-Tags (z.B. de Button mit dem roten Delphi-Helm)

Delphi-Quellcode:

// z.B. Button4 in ButtonLinksBewegen umbenennen

procedure TForm1.ButtonLinksBewegenClick(Sender: TObject);
begin
  Dec(MannX, 5);
  Refresh;
  Canvas.Rectangle(MannX, MannY, MannX + 50, MannY + 50);
  Inc(JagdX, Random(41) - 20);  // 1
  Inc(JagdY, Random(41) - 20);
  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(400) + 1;
    JagdY := Random(400) + 1;
    Canvas.Rectangle(JagdX, JagdY, JagdX + 50, JagdY + 50); // 2
  end;
end;

1) nur ein Stücken verschieben
2) erst setzen und dann an neuer Position zeichnen (hattest du andersrum > an alter Stelle zeichnen und dann verschieben)
3) das OR stimmte wohl auch nicht ganz

Style-Guide, bzw. Delphi Style-Guide.
Man muß das zwar nicht ganz zu 100% umsetzen, aber vorallen die Benamung von Kompnenten und Funktionen, sowie eine halbwegs ordentliche Code-Einrückung machen den Code gleich sehr viel übersichtlicher und vorallem verständlicher.

[louisnws]

Zitat:

3) das OR stimmte wohl auch nicht ganz

Eine Frage dazu Ich wollte doch das entweder die X-Koordinate ODER die Y koordinate schneidet warum ist das or nicht ok?