Позитив форуМ

Часы на С++
Коды на стрелочные часы для c++:

Borland C++ Builder

#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>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();
}

Андрюха
Спасибо!!!

пасибки

спасибо

спс

это что за чудо строка??

ЗЫ: вежливый форум...

Гы, яж код еще и сохранил - позор моим сединам !!!

_________________
В мире, где мертвые оживают,
Слово проблема утратило смысл.