вопрос по Borland Turbo C++

[kila]

у кого-нибудь есть текст программы аналоговых часов, написанных в ней, или кто-нибудь может помочь написать?

[Freer]

Скажу честно,такие темы редко находят отзыв.Ну или за деньги.Так что посоветую по искать тут. Я так нашёл эти часы на basic)


Блин.Ладно.Надеюсь никто особо зол не будет.

#include "DateUtilits.hpp" 
#include "math.h" 
define R 75 
int x0, y0; 
int ahr,amin,asec; 
__fastcall TForm1::Tform1(TComponent* Owner) 
: TForm(Owner) 
{ 
TDateTime t; 
ClientHeight= (R+30)*2; 
ClientWidth= (R+30)*2; 
t=Now(); 
ahr=90-HourOf(t)*30-(MinuteOf(Today())/12)*6; 
amin=90-MinuteOf(t)*6; 
asec=90-SecondOf(Today())*6; 
Timer1->Interval=1000; 
Timer1->Eabled= true; 
} 
void __fastcall TForm1::Vector(int x0,int y0,int a, int l) 
{  
#define TORAD 0.0174532 
int x,y; 
Canvas->MoveTo(x0,y0); 
x=x0+1*cos(a*TORAD); 
y=y0-1*sin(a*TORAD); 
Canvas->LineTo(x,y); 
} 
Void __fastcall TForm1::FormPaint(Tovject *Sender) 
{ 
int x,y; 
int a; 
int h; 
TBrushStyle bs; 
TColor pc; 
int pw; 
bs= Canvas->Brash->Style; 
pc=Canvas->Pen->Color; 
pw=Canvas->Pen->Width; 
Canvas->Brash->Style=bsClear; 
Canvas->Pen->Width= 1; 
Canvas->Pen->Color=clBlack; 
a=0; 
h=3; 
while(a<360) 
{ 
x=x0+R*cos(a*TORAD); 
y=x0-R*sin(a*TORAD); 
Form1->Canvas->MoveTo(x,y); 
if((a%30)==0) 
{ 
Canvas->Ellipse(x-2,y-2,x+3,y+3); 
x=x0+(R+15)*cos(a*TORAD); 
y=x0-(R+15)*cos(a*TORAD); 
Canvas->TextOut(x-5,y-7,IntToStr(h)); 
h--; 
if(h==0) h=12; 
} 
else 
canvas->Ellipse(x-1,y-1,x+1,y+1); 
a=a+6; 
} 
Canvas->Brash->tyle=bs; 
Canvas->Pen->Width=pw; 
Canvas->Pen->Color=ps; 
SrawClock(); 
} 
Void __fastcall TForm1::DrawClock(Void) 
{ 
TDateTime t; 
Canvas->Pen->Color=clBtnFace; 
Canvas->Pen->Width=3; 
Vector(x0,y0,ahr,R-20); 
Vector(x0,y0,amin,R-15); 
Vector(x0,y0,asec,R-7); 
t=Now(); 
ahr=90-HourOf(t)*30-(MinuteOf(T)%12)*6; 
amin=90-MinuteOf(t)*6; 
asec=90-SecondOf(t)*6; 
Canvas->Pen->Width=3; 
Canvas->Pen->Color=clBlack; 
Vector(x0,y0,ahr,R-20); 
Canvas->Pen->Width=2; 
Canvas->Pen->Color=clBlack; 
Vector(x0,y0,amin,R-15); 
Canvas->Pen->Width=1; 
Canvas->Pen->Color=clYellow; 
Vector(x0,y0,asec,R-7); 
} 
void __fastcall TForm::Timer1Timer(TObject *Sender) 
{ 
DrawClack(); 
}

[MaTBeu]

Ответ получен - Закрыто.
Исходниками не торгуем.