Projekt für die Schule

[Julie92]

Delphi-Quellcode:

unit Rund2;

interface

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

type
  TKreis = class
  private
    x, y, Durchm: Integer;
  public
    constructor Create (xx,yy,dd: Integer);
    procedure Erscheinen;
    procedure Bewegen;
    procedure Verschwinden;
  end;

  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  end;

var
  Form1: TForm1;
  Kreis: TKreis;

implementation

{$R *.DFM}

constructor TKreis.Create (xx,yy,dd: Integer);
begin
  x := xx; y := yy; Durchm := dd;
end;

procedure TKreis.Erscheinen;
begin
  Form1.Canvas.Ellipse (x, y, x+Durchm, y+Durchm);
end;

procedure TKreis.Bewegen;
var i: Integer; Quelle, Ziel: TRect;
begin
  for i := x-5 to Form1.ClientWidth-Durchm-x-5 do
  begin
    //Kopieren einer Figur an einen anderen Platz
    Quelle := Rect(i,   y-5, i+Durchm+5, y+Durchm+5);
    Ziel   := Rect(i+1, y-5, i+Durchm+6, y+Durchm+5);
    Form1.Canvas.CopyRect(Ziel, Form1.Canvas, Quelle);
    sleep (10);  //Pause
  end;
end;

procedure TKreis.Verschwinden;
begin
  Form1.Refresh; //Form1 erneuern
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Kreis := TKreis.Create (30,30,180);
  Canvas.Brush.Color := clWhite;  // ansonsten Grau
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Kreis.Erscheinen;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  Kreis.Bewegen;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  Kreis.Verschwinden;
end;

end.

[-187-]

Du hättest deinen ersten Beitrag nur editieren brauchen. Jetzt haben wir die hässlichen Code immernoch im Thread

[Deep-Sea]

Wäre es nicht besser, TKreis von TGraphicControl abzuleiten und dann natürlich auf dessen eigenen Canvas zu zeichnen anstatt fix auf den der "Form1"?!

Nachtrag:
Wenn man den Kreis nicht ausgefüllt haben möchte, setzt man nicht Canvas.Brush.Color auf irgend etwas sondern statt dessen Canvas.Brush.Style auf bsClear.

[roboter202]

Hallo,

Also da hast du ja schon fast alles was du brauchst du musst nun nur dafür sorgen das es etwas RANDOM wird am besten du machst dir einen Timer und generierst zuerst einen Integer im beriech von 0-2.

i := Random(3) ; Nun ordnest du verschieden Integern verschiedene Funktionen zu

Bsp

Delphi-Quellcode:

case i of
  0 : TKreis.Erscheinen ;
  1 : TKreis.Bewegen ;
  2 : TKreis.Verschwinden;
end;

Oder wenn ihr das noch nicht kennt kannst du auch ne If-Abfage machen

Delphi-Quellcode:

If i = 0 then TKreis.Erscheinen ;
If i = 1 then TKreis.Bewegen ;
If i = 2 then Kreis.Verschwinden;

So und um einen "hohlen" Kreis zu erzeugegen

Delphi-Quellcode:

  Kreis := TKreis.Create (30,30,180);
  Canvas.Brush.style := bsclear ;

(Nur wenn die Hintergrundfarbe des Fensters clBtnFace ist )

Gruß Christian

[Deep-Sea]

Zitat von roboter202:

So und um einen "hohlen" Kreis zu erzeugegen

Delphi-Quellcode:

  [...]
  Canvas.Brush.Color := clBtnFace;

*auf meinen vorherigen Post zeig*

[roboter202]

Zitat von Deep-Sea:

Zitat von roboter202:

So und um einen "hohlen" Kreis zu erzeugegen

Delphi-Quellcode:

  [...]
  Canvas.Brush.Color := clBtnFace;

*auf meinen vorherigen Post zeig*

Habs erst nachher gesehen deine Lösung ist besser

[Julie92]

Also bewirkt Random das Zappeln des Kreises? Wo muss ich diesen Teil in meinen Quelltext einfügen?
Danke

[-187-]

In Delphi gibt Random eine Zufallszahl im Bereich 0 <= X < Range zurück. Wird der Parameter Range nicht angegeben, liefert Random einen Real-Wert im Bereich

0 <= X < 1.

Um den Zufallszahlengenerator zu initialisieren, rufen Sie Randomize einmal auf oder weisen der Variablen RandSeed vor dem Aufruf von Random einen Wert zu.