Projekt für die Schule

[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