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

Информатика. Программирование в Delphi
168
step:=StrToFloat(Edit3.text);
//начальное значение знака приращения
//значения сигнала
sign:=1;
//начальное значение сигнала
value:=down;
//чтение значения Выше нормы
u:=StrToFloat(ListBox1.Items[ListBox1.ItemIndex]);
//чтение значения Ниже нормы
d:=StrToFloat(ListBox2.Items[ListBox2.ItemIndex]);
//если значение Выше нормы меньше значения Ниже нормы
if u<=d then
begin
//вывод сообщения о неправильном вводе значений
Memo1.Lines.Add('Внимание: неправильное значение
НИЖЕ НОРМЫ или ВЫШЕ НОРМЫ...');
//выход из процедуры
exit;
end;
//разрешение работы таймера
Timer1.Enabled:=true;
//запрещение работы кнопки Пуск
Button1.Enabled:=false;
//разрешение работы кнопки Стоп
Button2.Enabled:=true;
//запрет работы компонента и всех
//компонентов на нем
GroupBox1.Enabled:=false;
GroupBox2.Enabled:=false;
//чтение текущего системного времени
t:=Now;
//добавление сообщения в поле Memo1
//о запуске системы с указанием
//текущего системного времени
Memo1.Lines.Add(FormatDateTime('hh:mm:ss',t)+' Система запущена...');
end;
9. Создайте процедуру Button2Click для события OnClick кнопки Стоп.
//происходит при нажатии по кнопке Стоп
procedure TForm1.Button2Click(Sender: TObject);
begin
//запрет работы таймера
Timer1.Enabled:=false;
//разрешение работы кнопки Пуск