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]