Прорисовка часов

← →
olhovik (2004-04-08 17:10) [0]

Здраствуйте мастера. У меня возникла проблема, я написал программу прорисовки квадратных часов, но там часы идут назад и риски цифр находятся все вверху, а не по квадрату. Подскажите пожалуйста где ошибка, зараняя Вам благодарен.

Листинг программы
procedure TForm1.Timer1Timer(Sender: TObject);
var Hour,Min,Sec,MSec: word;
i: integer;
begin
DecodeTime(Time,Hour,Min,Sec,MSec);
with Image1.Canvas do
begin
Brush.Color:=clBtnFace;
Brush.Style:=bsSolid;
Pen.Color:=clBtnFace;
Pen.Style:=psSolid;
rectangle (0,0,300,300);
Pen.Color:=clBlack;
for i:=0 to 11 do begin
MoveTo (150+round (150*sin(i*30*Pi/180)),0);
LineTo (150+round(140*sin(i*30*Pi/180)),1);
end;
Pen.Color:=clBlue;
MoveTo (150+round(-10*sin(Sec*6*Pi/180)),150);
LineTo (150+round(30*sin(Sec*6*Pi/180)),i);
Pen.Color:=clBlack;
MoveTo (150+round(-5*sin(Min*6*Pi/180)),150);
LineTo (150+round(120*sin(Min*6*Pi/180)),i);
MoveTo (150+round(-5*sin(hour*30*Pi/180)),150);
LineTo (150+round (80*sin(Hour*30*Pi/180)),1);
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Timer1Timer (nil);
end;

end.

← →
TUser © (2004-04-08 17:28) [1]

> я написал программу прорисовки квадратных часов, но там
> часы идут назад и риски цифр находятся все вверху, а не
> по квадрату.

Значит ты еще не написал прогу. Можно посоветовать проверить свои расчеты.

← →
TButton © (2004-04-08 18:07) [2]

> часы идут назад
Hour*30*Pi/180 -> 180,/B>-(Hour*30*Pi/180), тока не уверен 180 или 360 надо наглядно посмотреть... хотя по логике -360, чтоб развернуть.
>риски цифр находятся все вверху, а не по квадрату.
я честно не понял, где же вы их рисуете.

← →
WebErr © (2004-04-08 18:09) [3]

Школьный курс планиметрии!!! :(

← →
TButton © (2004-04-08 18:10) [4]

шифты глючат =(

я тож ак подумал, просто начало отсчета у часов вверху, а у сиуса - справа, поэтому там 270-...

Прорисовка часов Найти похожие ветки