![]() Главная страница Случайная страница КАТЕГОРИИ: АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника |
Секундомер (Delphi)
Рис. 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 кнопки Сброс.
|