Годинник

В проекті використовується тільки компонент Timer. У вікні програми Годинник знаходиться зображення годинника, що йде, який показує поточний час.

Код написання програми

#include vcl.h
#pragma hdrstop
#include "DateUtils.hpp"
#include "math.h"
#include "Unit1.h"

#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
#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;
x0 = R + 30;
y0 = R + 30;
t = Now();
ahr = 90 - HourOf(t)*30 - (MinuteOf(t) / 2);
amin = 90 - MinuteOf(t)*6;
asec = 90 - SecondOf(t)*6;
Timer1->Interval = 1000;
Timer1->Enabled = 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 + l * cos(a * TORAD);
y = y0 - l * sin(a * TORAD);
Canvas->LineTo(x, y);
}

void __fastcall TForm1::FormPaint(TObject *Sender)
{
int x, y;
int a;
int h;
TBrushStyle bs;
TColor pc;
int pw;
bs = Canvas->Brush->Style;
pc = Canvas->Pen->Color;
pw = Canvas->Pen->Width;
Canvas->Brush->Style = bsClear;
Canvas->Pen->Width = 1;
Canvas->Pen->Color = clBlack;
a = 0;
h = 3;
while (a < 360)
{
x = x0 + R * cos(a * TORAD);
y = y0 - R * sin(a * TORAD);
if ((a % 30) == 0)
{
Canvas->Ellipse(x - 2, y - 2, x + 3, y + 3);
int hx = x0 + (R + 15) * cos(a * TORAD);
int hy = y0 - (R + 15) * sin(a * TORAD);
Canvas->TextOut(hx - 5, hy - 7, IntToStr(h));
h--;
if (h == 0)
h = 12;
}
else
Canvas->Ellipse(x - 1, y - 1, x + 1, y + 1);
a += 6;
}
Canvas->Brush->Style = bs;
Canvas->Pen->Width = pw;
Canvas->Pen->Color = pc;
DrawClock();
}

void __fastcall TForm1::DrawClock()
{
TDateTime t;
Canvas->Pen->Color = clBtnFace;
Canvas->Pen->Width = 3;
Vector(x0, y0, ahr, R - 30);
Vector(x0, y0, amin, R - 20);
Vector(x0, y0, asec, R - 10);
t = Now();
ahr = 90 - HourOf(t) * 30 - (MinuteOf(t) / 2);
amin = 90 - MinuteOf(t) * 6;
asec = 90 - SecondOf(t) * 6;
Canvas->Pen->Width = 3;
Canvas->Pen->Color = clBlack;
Vector(x0, y0, ahr, R - 30);
Canvas->Pen->Width = 2;
Canvas->Pen->Color = clBlack;
Vector(x0, y0, amin, R - 20);
Canvas->Pen->Width = 1;
Canvas->Pen->Color = clRed;
Vector(x0, y0, asec, R - 10);
}

void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
DrawClock() ;
}

void __fastcall TForm1::FormCreate(TObject *Sender)
{
TDateTime t;
ClientHeight = (R + 30) * 2;
ClientWidth = (R + 30) * 2;
x0 = R + 30;
y0 = R + 30;
t = Now();
ahr = 90 - HourOf(t) * 30 - (MinuteOf(t) / 2);
amin = 90 - MinuteOf(t) * 6;
asec = 90 - SecondOf(t) * 6;
Timer1->Interval = 1000;
Timer1->Enabled = true;
FormPaint(this);
}

Файл .h

public: // User declarations
__fastcall TForm1(TComponent* Owner);
void __fastcall TForm1::Vector (int x0, int y0, int a, int l);
void __fastcall TForm1::DrawClock();

ГодинникЗавантажити