Секундомер (Delphi)

Составим программу вывода секундомера (рис. 8.1.2.1).

Рис. 8.1.2.1. Вид формы

Разместим компоненты на форме. Зададим для таймера значение свой­ст­ву Interval, например, 100 миллисекунд (точность секундомера).

Приведем тексты процедур программы.

Var // раздел переменных модуля Unit1

h, m: Integer; i, s: real; // внешние переменные

procedure TForm1.Button1Click(Sender: TObject); // кнопка «Старт»

begin Timer1.Enabled: =True; // запускаем таймер

i: =Timer1.Interval/1000; // значение точности измерения

Button1.Enabled: =False; Button2.Enabled: =True; Button3.Enabled: =False;

end;

procedure TForm1.Button2Click(Sender: TObject); // кнопка «Финиш»

begin Timer1.Enabled: =False; // останавливаем таймер

Button1.Enabled: =True; Button2.Enabled: =False; Button3.Enabled: =True;

end;

procedure TForm1.Button3Click(Sender: TObject); // кнопка «Сброс»

begin h: =0; m: =0; s: =0; // сброс значений счетчиков часов, минут, секунд

label1.Caption: =IntToStr(h); label2.Caption: =IntToStr(m);

label3.Caption: =FloatToStr(s);

Button1.Enabled: =True; Button2.Enabled: =False; Button3.Enabled: =False;

end;

procedure TForm1.Button4Click(Sender: TObject); // кнопка «Выход»

begin Form1.Close end;

procedure TForm1.Timer1Timer(Sender: TObject); // обработка таймера begin s: =s+i; // увеличение числа секунд

if s> =60 then begin s: =0; m: =m+1; if m> =60 then begin m: =0; h: =h+1; end end;

label1.Caption: =IntToStr(h); label2.Caption: =IntToStr(m);

label3.Caption: =FloatToStr(s); // вывод числа часов, минут и секунд

end;

Для формы в качестве обработчика события OnActivate укажем имя процедуры Button3Click ‑ обработки события OnClick кнопки Сброс.