kleine Anfängerfrage

[louisnws]

Hallo Ich will zum üben ein Spiel Programmieren in dem man ein 4 eck steuert und damit ein anderes Jagt das sich Random bewegt
Und wenn man es erwischt dann soll es irgenndwo auftauchen und genau das erwischen ist das problem Hier der Quelltext das Problem befindet sich bei //links dort treten die Fehler auf ich bin anfänger also bitte nicht nur verbessern sondern auch meinen Fehler erklären :) sitze schon 2 stunden dran :( danke :)

Delphi-Quellcode:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);

  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;
Button2.Visible := true;
Button3.Visible := true;
Button4.Visible := true;
Button5.Visible := true;
Canvas.Brush.Color := clred;
Form1.Canvas.Rectangle(MannX,MannY,MannX+50,MannY+50);
Form1.Canvas.Rectangle(JagdX,JagdY,JagdX+50,JagdY+50);

end;

procedure TForm1.Button4Click(Sender: TObject);
begin
//links
dec(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);

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

end;



procedure TForm1.Button5Click(Sender: TObject);
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;

procedure TForm1.Button2Click(Sender: TObject);
begin
//hoch
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;

procedure TForm1.Button3Click(Sender: TObject);
begin
//runter
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;


end.

[himitsu]

Hallo erstmal. :hi:


Verbesserungsvorschläge:

* [DEHLPI]-Tags verwenden

* die Codeformatierung ist auch nicht die Beste ... ist nicht gur erkennbar was wozu gehört.

* Kommentare ala

Delphi-Quellcode:

//Links

wären unnötig, wenn die Komponenten und Methoden ordentlich/entsprechend benannt worden wären.

* Warum sind MannX bis JagdY global deklariert?
Rate mal, warum es z.B. den PRIVATE-Abschnitt in der Form gibt.

* Die Variable Form1 solltest du besser ignorieren und nicht darauf zugreifen.

Delphi-Quellcode:

Button5.Visible := true;
Canvas.Brush.Color := clred;
Form1.Canvas.Rectangle(MannX,MannY,MannX+50,MannY+ 50);

Wie du selbst bemerkt hast (beim Brush), kann man innerhalb von TForm1-Methoden auch so auf das Canvas dieser Form zugreifen und im Notfall gibt es noch das Self.

Zitat:

das Problem befindet sich bei //links dort treten die Fehler

* Wie wäre es mit einer Fehlerberscheibeung?
Meine :glaskugel: funktioniert nicht immer.

Aber...
- Ein Y mit Accent (Ý) scheint wohl nicht richtig zu sein.
- Mehrere Befehle gruppiert man mit BEGIN und END. (nicht über AND und Klammern)



Tipps:
* Prüfe nochmal deine Berechnung. Ich vermute hier

Delphi-Quellcode:

JagdX:=random(40)+1;
JagdY:=random(40)+1;

möchtest du eigentlich etwas anderes berechnen.
(den Random-Wert zum alten Wert dazurechnen und nich komplett überschreiben)

* Ich denke irgendwann wird dir auffallen, daß sich der Mann und das Jagd aus dem Bild rausbewegen können.
Mit einer Prüfung und Behandlung der Form-Begrenzung sollte sich daran was ändern lassen.

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

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

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!

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

[borstenei]

wenn Du da ein "or" verwendest....dann solltest Du auch die Klammern entsprechend setzen!...wenn Du der Meinung bist ein "or" gehört dort hin.

[himitsu]

Zitat:

Zitat von louisnws (Beitrag 1149141)

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 :zwinker:

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

[Coffeecoder]

Zitat:

Zitat von himitsu (Beitrag 1149202)

@Coffeecoder: Das +1 ist bestimmt zuviel.



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

Nein, die +1 ist wegen des Parameter-1 um dies auszugleichen. Die Formel erzeugt eine Zufallszahl von L1 bis L2 inbegriffen ;)