Позитив форуМ
http://andri.maxbb.ru/

Стрелочные часы на С++
http://andri.maxbb.ru/topic496.html		 Страница 1 из 1
Автор:  A.D.M.I.N [ 19-05, 16:15 ]
Заголовок сообщения:  Стрелочные часы на С++
Часы на С++
Коды на стрелочные часы для 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();
}
Автор:  Genesis [ 26-06, 14:05 ]
Заголовок сообщения: 
Андрюха
Спасибо!!!
Автор:  Dimetrol [ 28-06, 19:06 ]
Заголовок сообщения: 
пасибки
Автор:  Janck [ 28-06, 19:40 ]
Заголовок сообщения: 
спасибо
Автор:  Edward [ 17-09, 20:47 ]
Заголовок сообщения: 
спс
Автор:  The_Ice [ 27-09, 16:29 ]
Заголовок сообщения:  Re: Стрелочные часы на С++
Андрюха писал(а):
Код:
while(a<360>Canvas->MoveTo(x,y);

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

ЗЫ: вежливый форум...
Автор:  L0K1 [ 29-09, 17:36 ]
Заголовок сообщения: 
Гы, яж код еще и сохранил - позор моим сединам !!!
Страница 1 из 1 Часовой пояс: UTC + 4 часа
Powered by phpBB® Forum Software © phpBB Group
http://www.phpbb.com/