Добавил:
korayakov
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Лабы / С++Builder / Laba5 / защита / Unit1
.cpp//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
#include "Unit2.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
Strelka *ss;
SuperStrelka *mm,*hh;
TForm1 *Form1;
SYSTEMTIME ttt;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
ss=new Strelka(Image1);
mm=new SuperStrelka(Image1,(TrackBar1->Position)/double(TrackBar1->Max)*100);
hh=new SuperStrelka(Image1,(TrackBar2->Position)/double(TrackBar2->Max)*100);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
GetLocalTime(&ttt);
ss->SetAngle(pi/2-(ttt.wSecond+ttt.wMilliseconds/999.)/60.*2*pi);
mm->SetAngle(pi/2-(ttt.wMinute/60.+(ttt.wSecond+ttt.wMilliseconds/999.)/60./60.)*2*pi,(TrackBar1->Position)/double(TrackBar1->Max)*100);
hh->SetAngle(pi/2-(ttt.wHour+(ttt.wMinute+(ttt.wSecond+ttt.wMilliseconds/999.)/60.)/60.)/24.*2*pi,(TrackBar2->Position)/double(TrackBar2->Max)*100);
}
//---------------------------------------------------------------------------