Mondaufgang

[ballerino]

Also ich habe hier schon mal die Frage nach einem Sonnenaufgang-Programm gestellt.
MIr wurde zwar geantwortet....aber naja leute...es sollte ein Halbkreis werden und keine Grade
Hab also mal ein Programm geschrieben.... nur leider verschwindet mein mond aufeinmal-...
Vielleicht findet jemand den Fehler??? wäre genial

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
var xmitte,
    ymitte,
    winkel,
    radius,
    xsonne,
    ysonne:integer;

begin
xmitte:= form1.width div 2;
ymitte:= form1.height div 2;
radius:= 1;
winkel:=180;
repeat



xsonne:= round(radius* (xmitte+ cos(winkel/180)*pi)*100);
ysonne:= round(radius* (ymitte- sin(winkel/180) *pi)*100);

winkel:= winkel -1;
sonne.Top:= ysonne;
sonne.Left:=xsonne;

winkel:= winkel -1;



if winkel< 0
then winkel:=winkel+180;

 until winkel=0;




end;

[edit=Matze][delphi]-Tags gesetzt. Zukünftig bitte selbst einfügen. Mfg, Matze[/edit]