Ergebnis der Suchanfrage

• Forum: Multimedia

  AW: kleine Anfängerfrage

   
    by himitsu, 4. Feb 2012
  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
• Forum: Multimedia

  AW: kleine Anfängerfrage

   
    by himitsu, 4. Feb 2012
  @Coffeecoder: Das +1 ist bestimmt zuviel.
  
  RandomRange
  function RandomRange(const AFrom, ATo: Integer): Integer;
  begin
  if AFrom > ATo then
  Result := Random(AFrom - ATo) + ATo
  else
  Result := Random(ATo - AFrom) + AFrom;
  end;
• Forum: Multimedia

  AW: kleine Anfängerfrage

   
    by himitsu, 4. Feb 2012
  Einen riesen Random warum erscheint das Rechteck nicht sonstwo und !! viel schlimmer das Rechteck springt überhaupt nicht weg wenn ich es berühre!! :/
  
  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.
  
  
  Wir groß ist dein Formular, bzw. dein Monitor?
  (ob dort 4000 Punkte...
• Forum: Multimedia

  AW: kleine Anfängerfrage

   
    by himitsu, 4. Feb 2012
  Es werden ja auch 3 Quadrate gezeichnet. :wink:
  Aber das kann man ändern, indem man entweder das Eine oder das Andere zeichnet.
  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 <...
• Forum: Multimedia

  AW: kleine Anfängerfrage

   
    by himitsu, 3. Feb 2012
  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...
• Forum: Multimedia

  AW: kleine Anfängerfrage

   
    by himitsu, 3. Feb 2012
  Hier im Forum gibt es erstmal die -, bzw. -Tags (z.B. de Button mit dem roten Delphi-Helm)
  
  // 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
• Forum: Multimedia

  AW: kleine Anfängerfrage

   
    by himitsu, 3. Feb 2012
  Hallo erstmal. :hi:
  
  
  Verbesserungsvorschläge:
  
  * -Tags verwenden
  
  * die Codeformatierung ist auch nicht die Beste ... ist nicht gur erkennbar was wozu gehört.
  
  * Kommentare ala //Links wären unnötig, wenn die Komponenten und Methoden ordentlich/entsprechend benannt worden wären.