Стр. 170 - Информатика. Программирование в среде Delphi. Часть 1

Информатика. Программирование в Delphi
170
else
//если значение сигнала больше значения Выше нормы
if value>=u then
//запись статуса сигнала в поле Edit5
edit5.Text:='Выше нормы'
//во всех остальных случаях
else
//запись статуса сигнала в поле Edit5
edit5.Text:='Норма';
//если значение сигнала достигло одной из границ
if (value>=up) or (value<=down) then
begin
//чтение текущего системного времени
t:=Now;
//добавление в поле Memo1 сообщения
//о достижении одной из границ
//с указанием текущего системного времени
Memo1.Lines.Add(FormatDateTime('hh:mm:ss',t)+
' Достигнуто критическое значение...');
//добавление в поле Memo1 сообщения
//об остановке системы
//с указанием текущего системного времени
Memo1.Lines.Add(FormatDateTime('hh:mm:ss',t)+
' Система остановлена...');
//запрет работы таймера
Timer1.Enabled:=false;
//разрешение работы кнопки Пуск
Button1.Enabled:=true;
//запрет работы кнопки Стоп
Button2.Enabled:=false;
//разрешение работы компонента
//и всех компонентов на нем
GroupBox1.Enabled:=true;
GroupBox2.Enabled:=true;
end;
end;
12. Запустим наше приложение (рис. 12.3).