Секундомір

Програма демонструє використання компонента Timer.

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

int min;
int sec;
int msec;
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
Timer1->Enabled = false;
Timer1->Interval = 10;
}
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
// задання параметрів секундоміра, а саме: обмеження для підрахунку мікросекунд, секунд та хвилин.
if ( msec < 99)
msec++;
else
msec = 0;
if ( sec < 59 )
sec++;
else
{
sec = 0;
min++;
Label1->Caption = IntToStr(min);
}
// задання параметрів секундоміра, а саме: обмеження для підрахунку мікросекунд, секунд та хвилин
if ( sec <= 9 )
Label2->Caption = "0" + IntToStr(sec);
else
{
Label2->Caption = IntToStr(sec);
}
if ( msec <= 9 )
Label3->Caption = "0" + IntToStr(msec);
else
Label3->Caption = IntToStr(msec);
}
void __fastcall TForm1::Button2Click(TObject *Sender)
{
//обнулення значень секундоміра
min = 0;
sec = 0;
msec = 0;
Label1->Caption = "00";
Label2->Caption = "00";
Label3->Caption = "00";
}
void __fastcall TForm1::Button1Click(TObject *Sender)
{
if ( ! Timer1->Enabled )
{
Timer1->Enabled = true; // запуск секундоміра
Button1->Caption = "Пауза"; // зміна назви кнопки
Button2->Enabled = false; // кнопка «сброс» неактивна
}
else
{
Timer1->Enabled = false; // запуск секундоміра
Button1->Caption = "Пуск"; // зміна назви кнопки
Button2->Enabled = true; // кнопка «сброс» активна
}
}

СекундомірЗавантажити