Секундомер (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 кнопки Сброс.

Дата добавления: 2014-12-08