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

Информатика. Программирование в Delphi
169
Button1.Enabled:=true;
//запрет работы кнопки Стоп
Button2.Enabled:=false;
//разрешение работы компонента
//и всек компонентов на нем
GroupBox1.Enabled:=true;
GroupBox2.Enabled:=true;
//чтение текущего системного времени
t:=Now;
//добавление сообщения в поле Memo1
//о остановке системы с указанием
//текущего системного времени
Memo1.Lines.Add(FormatDateTime('hh:mm:ss',t)+
' Система остановлена...');
end;
10. Создайте процедуру Button3Click для события OnClick кнопки Выход.
//происходит при нажатии кнопки Выход
procedure TForm1.Button3Click(Sender: TObject);
begin
//завершение работы приложения
Application.Terminate;
end;
11. Создайте процедуру Timer1Timer для события OnTimer таймера Timer1.
//происходит по истечении заданного интервала времени
procedure TForm1.Timer1Timer(Sender: TObject);
begin
//если выпадает число меньше двух
//то есть двух −процентный шанс выпадения
if random(100)<2 then
//смена знака приращения на противоположный
sign:=-sign;
//изменение значения сигнала с учетом знака приращения
value:=value+sign*step;
//вывод значения сигнала в поле Edit4
Edit4.Text:=FloatToStr(value);
//если значение сигнала меньше значения Ниже нормы
if value<d then
//запись статуса сигнала в поле Edit5
edit5.Text:='Ниже нормы'