Официальный форум Simple-Scada.
Просмотр сообщений
В этом разделе можно просмотреть все сообщения, сделанные этим пользователем.
if (itap_varki.AsInt = 4) and (temperature.AsInt > 123) and (CompareTime(vrTimer.AsDateTime, 0) > 0) then
begin
vrTimer.Value := IncSecond(vrTimer.AsDateTime, -1); // уменьшаем таймер на 1 секунду
if CompareTime(vrTimer.AsDateTime, IncMinute(0, 5)) = 0 then // если осталось 5 минут, то
AddMessage(Now, mkAlarm, 'До окончания таймера 4 этапа осталось 5 минут' + ' варка: ' + fld_VarkaAdd.Text, True, True)
else
if CompareTime(vrTimer.AsDateTime, 0) <= 0 then
// КОД РАЗМЕЩЕННЫЙ ЗДЕСЬ БУДЕТ ВЫПОЛНЯТЬСЯ ПО ТАЙМЕРУ
AddMessage(Now, mkAlarm, 'Таймер 4 этапа Окончено. Охлаждение реактора.' + ' варка: ' + fld_VarkaAdd.Text, True, True);
end;
end.
var
Timer:TDateTime;
begin
tblSchedule.GetCell(1, 1).Text := txt_l1m1_time_bt_start_1.Text;
tblSchedule.GetCell(4, 1).Text := txt_l1m1_time_bt_stop_1.Text;
tblSchedule.GetCell(2, 1).Text := TimeToStr(StrToTime(tblSchedule.GetCell(1, 1).Text) + StrToTime(tblSchedule.GetCell(3, 1).Text));
//Timer := SecondsBetween(StrToTime(tblSchedule.GetCell(4, 1).Text), StrToTime(tblSchedule.GetCell(2, 1).Text));
//tblSchedule.GetCell(5, 2).Text := TimeToStr(Timer); // не работает, выводит только нули
tblSchedule.GetCell(5, 1).Text := TimeToStr(StrToTime(tblSchedule.GetCell(2, 1).Text) - StrToTime(tblSchedule.GetCell(4, 1).Text));
//tblSchedule.GetCell(4, 1).Text := TimeToStr(StrToTime(tblSchedule.GetCell(1, 1).Text) + StrToTime(tblSchedule.GetCell(3, 1).Text));
end.
Через таймерные процедуры нельзя запустить обратный отсчет. Это можно реализовать используя скрипт с типом события "Таймер" и методы для работы с датой/временем. Например, чтобы уменьшить время на 1 секунду, можно использовать функцию "IncSecond" с параметром -1. Пример проекта во вложении.
var
IsAllDone: Boolean;
begin
if not ChBox1_l1m1_1.Checked then
begin
Text29.Text := 'ЗАДАНИЕ 1 ПРОЦЕССА 1 НЕ ВЫПОЛНЕНО';
IsAllDone := False;
end;
if not ChBox1_l1m1_2.Checked then
begin
Text29.Text := 'ЗАДАНИЕ 2 ПРОЦЕССА 1 НЕ ВЫПОЛНЕНО';
IsAllDone := False;
end;
if not ChBox1_l1m1_3.Checked then
begin
Text29.Text := 'ЗАДАНИЕ 3 ПРОЦЕССА 1 НЕ ВЫПОЛНЕНО';
IsAllDone := False;
end;
if IsAllDone then
begin
itap_varki_l1m1.Value := 2 ;
Text29.Text := 'ЗАДАНИЕ ПРОЦЕССА 2';
TimerPause(vrTimer_1); // Пауза таймера 1
TimerStart(vrTimer_2, 0); // Старт таймер 2
Window_ChBox_l1m1_1.CloseAll;
end
else
begin itap_varki_l1m1.Value := 1;
end;
end.