Скомпилировать код

                          Додаток 2
         
                 Лістінг програми
 
 
#include <graphics.h> // заголовочний файл графічного режиму Borland Graphics Interface
#include <cmath> // заголовочний файл для простих математичних операцій
#include <ctime> // заголовочний файл для роботи з датою та часом
#include <conio.h> // заголовочний файл для функції getch() та kbhit()
 
unsigned char cx, cy; // оголошення змінних cx та cy, які будуть відповідати координатам центральної точки вікна
unsigned char radius=100; // оголошення змінної radius, яка визначає розмір годинника
 
unsigned char pos=1; // поточна позиція в меню
 
 
void menu() // процедура малювання меню
{
cleardevice(); // очищення екрану
    setcolor(COLOR(255,0,0)); // встановлення подальшого кольору для малювання в палітрі RGB (255.0.0 - червоний)
    settextstyle(DEFAULT_FONT,HORIZ_DIR,4); // DEFAULT_FONT - встановлення стандартного шрифту, HORIZ_DIR - горизонтальний напрямок тексту, 4 - розмір шрифту
    outtextxy(20, 20, "АНАЛОГОВИЙ"); // малювання тексту "АНАЛОГОВИЙ" з координатами x=20 y=20
 
setcolor(COLOR(0,0,255));
    settextstyle(SANS_SERIF_FONT,HORIZ_DIR,3);
    outtextxy(143, 40, "ГОДИННИК");
 
setcolor(COLOR(255,255,0));
    outtextxy(300, 55, "1.0");
 
setcolor(LIGHTGRAY);
    settextstyle(DEFAULT_FONT,HORIZ_DIR,1);
    outtextxy(70, 100, "Відкрити часи");
    outtextxy(70, 200, "Вихід");
 
if(pos==4) // якщо користувач вийшов за межі меню вниз...
    {
        pos=1; // ...повертаємося на першу позицію меню
    };
    if(pos==0) // якщо користувач вийшов за межі меню вверх...
    {
        pos=3; // ...повертаємося на останню позицію меню
    };
switch(pos) // оператор вибору поточного положення в меню
    {
    case 1:
        setcolor(COLOR(255,255,255));
outtextxy(70, 100, "Відкрити часи");
break;
    case 2:
        setcolor(COLOR(255,255,255));
        outtextxy(70, 200, "Вихід");
        break;
        }
}
 
 
void display(unsigned char radius) // процедура малювання годинника (циферблату)
{
    setcolor(COLOR(255,255,255));
    circle(cx, cy, radius+25); // малювання зовнішніх кілець годинника (корпус)
    circle(cx, cy, radius+23);
 
    setcolor(COLOR(0,255,0));
    unsigned int angle; // оголошення змінної для зберігання кута
    for (angle=0; angle<360; angle+=30) // цикл малювання годинних точок
    {
        circle(cx+radius*cos(angle*M_PI/180),
               cy+radius*sin(angle*M_PI/180),
               2);
    }
 
    for(angle=0; angle<360; angle+=6) // цикл малювання секундних точок
    {
        putpixel(cx+radius*cos(angle*M_PI/180),
                 cy+radius*sin(angle*M_PI/180),
                 COLOR(255,255,0));
    }
}
 
 
 
 void get_time(unsigned char *h, unsigned char *m, unsigned char *s) // процедура для отримання поточного часу
{
    time_t rawtime; // створюємо об’єкт по типу структури time_t, з ім’ям rawtime
    time(&rawtime); // записуємо у об’єкт rawtime результат ф-ї time (ф-я time повертає к-ть секунд від 1970р.)
    tm *timeinfo; // оголошуємо вказівник *timeinfo, котрий буде вказувати на область пам’яті з типом даних tm
 
timeinfo = localtime(&rawtime); // присвоюємо вказівнику *timeinfo адрес, котрий повертає ф-я localtime()
    // функція localtime() перетворює кількість секунд в структурі типу t_time в структуру типу tm, в котрій в якості полів містяться цілочисельні значення секунд, хвилин, годин та повертає адрес на заповнену структуру tm поточним часом
    *h=timeinfo->tm_hour; // присвоюємо змінній hour (через вказівник h) значення поля tm_hour в структурі типу tm
    *m=timeinfo->tm_min; // присвоюємо змінній minute (через вказівник h) значення поля tm_min в структурі типу tm
    *s=timeinfo->tm_sec; // присвоюємо змінній second (через вказівник h) значення поля tm_sec в структурі типу tm
}
 
 
void needle(unsigned char h, unsigned char m, unsigned char s) // процедура для анімації секундної стрілки
{
 
/** Замальовуємо попереднє положення стрілок чорним кольором **/
    setcolor(0);
    line(cx,cy, // початкові координати лінії x та y (з центру екрану) для малювання секундної стрілки
         cx+(radius-10)*cos( ((s*6-6)-90) * M_PI/180 ), // кінцева координата x
         cy+(radius-10)*sin( ((s*6-6)-90) * M_PI/180 )); // кінцева координата y
 
    line(cx,cy, // початкові координати лінії x та y (з центру екрану) для малювання хвилинної стрілки
         cx+(radius-20)*cos( ((m*6-6)-90) * M_PI/180 ), // кінцева координата x
         cy+(radius-20)*sin( ((m*6-6)-90) * M_PI/180 )); // кінцева координата y
 
    line(cx,cy, // початкові координати лінії x та y (з центру екрану) для малювання годинникової стрілки
         cx+(radius-(radius/2))*cos( ((h*30-30)-90+(m/2-0.5)) * M_PI/180 ), // кінцева координата x
         cy+(radius-(radius/2))*sin( ((h*30-30)-90+(m/2-0.5)) * M_PI/180 )); // кінцева координата y
    /** КІНЕЦЬ ------------------------------------------------- **/
 
    /** Визначаємо координати та малюємо стрілки годинника **/
    setcolor(COLOR(0,0,255));
    line(cx,cy, // початкові координати лінії x та y (з центру екрану) для малювання секундної стрілки
         cx+(radius-10)*cos( ((s*6)-90) * M_PI/180 ), // кінцева координата x
         cy+(radius-10)*sin( ((s*6)-90) * M_PI/180 )); // кінцева координата y
 
    setcolor(COLOR(255,255,0));
    line(cx,cy, // початкові координати лінії x та y (з центру екрану) для малювання хвилинної стрілки
         cx+(radius-20)*cos( ((m*6)-90) * M_PI/180 ), // кінцева координата x
         cy+(radius-20)*sin( ((m*6)-90) * M_PI/180 )); // кінцева координата x
 
    setcolor(COLOR(255,0,0));
    line(cx,cy, // початкові координати лінії x та y (з центру екрану) для малювання годинникової стрілки
         cx+(radius-(radius/2))*cos( ((h*30)-90+(m/2)) * M_PI/180 ), // кінцева координата x
         cy+(radius-(radius/2))*sin( ((h*30)-90+(m/2)) * M_PI/180 )); // кінцева координата y
    /** КІНЕЦЬ ------------------------------------------------- **/
}
 
void open_clock() // процедура виклику годинника
{
    cleardevice(); // очищення екрану
    cx=getmaxx()/2; // визначення координати x, для центральної точки вікна
    cy=getmaxy()/2; // визначення координати y, для центральної точки вікна
 
    display(radius); // виклик процедури для малювання годинника (циферблату)
    unsigned char hour, minute, second; // оголошення змінних для збереження поточного часу
    while(!kbhit())
    {
        get_time(&hour,&minute,&second); // виклик процедури для отримання поточного часу
 
needle(hour,minute,second); // виклик процедури малювання стрілок з параметрами поточного часу
        setcolor(COLOR(255,255,255));
        circle(cx,cy,2); // малюємо маленьку точку по центру годинника, поверх стрілок
        delay(250); // затримка в 250 мс (цикл оновлюється 4 рази в секунду)
    }
    menu(); // малювання меню
}
 
int main() // головна програма
{
    initwindow(400, 300); // ініціалізація вікна для графічного режиму (400x300 пікселів)
    menu(); // малювання меню
    unsigned char key; // оголошення змінної для збереження коду натиснутої клавіші
    while(key!=27) // цикл життя програми, поки не натиснута клавіша Esc
    {
        key=getch(); // присвоєння змінній key коду натиснутої клавіші
        switch(key) // оператор вибору натиснутої клавіші
        {
        case 72: // якщо натиснута клавіша "вверх"
            pos--; // змінюємо позицію меню на одну вверх
            menu(); // малюємо меню вже з новою активною позицією
            break;
        case 80: // якщо натиснута клавіша "вниз"
            pos++; // змінюємо позицію меню на одну вниз
            menu(); // малюємо меню вже з новою активною позицією
            break;
        case 13: // якщо натиснута клавіша Enter
            switch(pos) // оператор вибору позиції меню
            {
case 1: // якщо позиція 1 (Відкрити годинник)
                open_clock(); // виклик процедури малювання годинника
                break;
case 2: // якщо позиція 2 (Вихід)
                closegraph(); // закриття графічного режиму
                return 0; // повернення значення 0 головної програми (закриття)
            }
        }
    }
}
 
 
 
 
 
include <vcl.h>
#pragma hdrstop
//---------------------------------------------------------------------------
USEFORM("utimedate.cpp", Form1);
//---------------------------------------------------------------------------
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
        try
        {
                 Application->Initialize();
                 Application->CreateForm(__classid(TForm1), &Form1);
                 Application->Run();
        }
        catch (Exception &exception)
        {
                 Application->ShowException(&exception);
        }
        catch (...)
        {
                 try
                 {
                         throw Exception("");
                 }
                 catch (Exception &exception)
                 {
                         Application->ShowException(&exception);
                 }
        }
        return 0;
}
//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "utimedate.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
 StaticText1->Caption=Now() .TimeString() ;
 Form1->Caption=Now() . DateString() ;
}
//