ich brauch dringende Hilfe bei meiner Analog Uhr!!!!!

[SirTwist]

und als Feintuning könnte man jetzt das Berechnen der Koordinaten noch in eine Prozedur auslagern:

Delphi-Quellcode:

procedure GetCoors(winkel, radius: Float; var x, y: Integer)
begin
  winkel := winkel * pi/180;
  x := 639 + Round(cos(winkel)*radius);
  y := 331 + Round(sin(winkel)*radius);
end;

(ungetestet, einfach mal so runtergetippert)

Du hast mehrfach im Programm immer wieder Berechnung, die könntest du damit zusammenfassen:

Delphi-Quellcode:

  // Sekundenzeiger
  GetCoors(sec * 6, r, x, y);
  Canvas.Pen.Color:=clblack;
  Canvas.Pen.Width:=1;
  Canvas.MoveTo(639,331);
  Canvas.LineTo(x,y);

"sec * 6" deshalb, weil sich die 60 Sekunden auf 360° aufteilen und die eigentliche Berechnung damit sec * 360 / 60 wäre. Und ohne Überprüfung per Taschenrechner wage ich zu behaupten, dass 360/60 = 6 ist.

An dem Himmel müsste man noch feilen, die Übergänge sind zu hart hm, mal basteln...

PS: wenn ich gewusst hätte, dass es als ersten Preis ein Küßchen gab, hätt ich mich mehr ins Zeug gelegt