Стрелка часов

[jonec]

в коде прописана стрелка часов ,но она не двигаться чего-то хотя код на писан правильна вроде..я не могу разобраться в чём проблема.

задание:Создать часы,что бы они показывали правильное время.

var
Form1: TForm1;
x,y:integer;
ra,x1,y1,x2,y2:integer;
dsec,sec:real;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var r:trect;
begin

{начала таймера}
Timer1.Enabled:=true;
{пряугольник}
with form1.Canvas do begin
r.Left:=150;
r.Top:=100;
r.Right:=750;
r.Bottom:=500;
Rectangle(r);
Form1.Canvas.Brush.Color:=clwhite;

end;
begin
{кардинаты стрелки}
x1:=450;
y1:=300;
x2:=625;
y2:=300;

dsec:=6*3.1415/360;
sec:=0;
Ra:=125;
//form1.Canvas.Rectangle(x1,y1,x2,y2) ;
Form1.Canvas.MoveTo(450,300); {начальная кордината}
Form1.Canvas.LineTo(625,300); {конечная координата}
x:=0;
end;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
x:=x+1;
end;

{///////////////////////////////////////}

Form1.Canvas.MoveTo(450,300); {начальная кордината}
Form1.Canvas.LineTo(625,300); {конечная координата}

x1 := round(100+Ra*cos(sec));
y1 := round(100+Ra*sin(sec));


sec:=sec+dsec;

{///////////////////////////////////////}

end;
end

[DomiNick]

Что-то у вас begin/end лишние какие-то... И я бы не советовал делать какие-то "sec:=sec+dsec;" - просто получайте системное время какой-нибудь функцией...

А почему у вас "конечная координата" фиксированная?

И то что у вас в "with form1.Canvas do begin" вообще не видно, его нужно в FormPaint'е писать... Впрочем как и рисование стрелок, а таймером просто перерисовывать форму...


UPD:

Var Form1: TForm1;

Implementation

{$R *.dfm}

Procedure TForm1.FormCreate(Sender: TObject);
Begin
Form1.Canvas.Brush.Color:=clWhite;
Timer1.Interval:=100;
Form1.DoubleBuffered:=True;
End;

Procedure TForm1.FormPaint(Sender: TObject);
Var R: TRect; Sec, tmp: Word;
Begin
With Form1.Canvas Do
      Begin
      DecodeDateTime(Now, tmp, tmp, tmp, tmp, tmp, Sec, tmp); // Uses ... , DateUtils;
      Form1.Caption:=IntToStr(Sec);
      Rectangle(150, 100, 750, 500);
      Ellipse(250, 100, 650, 500);
      MoveTo(450, 300);
      LineTo(Round(450-200*Cos((Sec*6+90)/180*Pi)), Round(300-200*Sin((Sec*6+90)/180*Pi)));
      Ellipse(443, 293, 457, 307);
      End;
End;

Procedure TForm1.Timer1Timer(Sender: TObject);
Begin
Repaint;
End;

End.

[mihali4]

Сообщение от jonec

задание:Создать часы,что бы они показывали правильное время.

Слушаемся, о повелитель !
Разрешите приступить ?

А может, стоит прочесть правила раздела, а ?
П.7 - о-о-очень интересный...