Прерывание цикла
Здравствуйте!
Имеется счетчик СИ 8 (Овен) с помощью его производится подсчет метража бумаги, задача - написать скрипт по которому в случае когда линия работает, а пересчет не происходит выводить сообщение о неисправности счетчика.
написал вот такой код:
Var In1, In2: Integer;
In3, In4, Out1:boolean;
Begin
// Присвоить переменной In2, значение переменной In1
In2:=In1;
// Присвоить переменной In1, значение переменной канала
In1:=ReadValue('Показания счетчика импульсов');
// Присвоить переменной In3, значение переменной канала
In3:=ReadValue('schet ok/err channel 9');
// Присвоить переменной In4, значение переменной канала
In4:=ReadValue('line C run/stop channel 5');
If (In2=In1) and (In4=true) then
Out1:=true
else
Out1:=false ;
// записать значение переменной Out1 в канал
WriteValue('schet ok/err channel 9',Out1);
end.
так как я ноль в программировании , ни чего не вышло
проблема в том что сравнение происходит слишком быстро
а значение с счетчика может не менятся в течении 5 минут, в зависимости от скорости линии
как мне сделать что то типа задержки ?
или может другой вариант написания скрипта
Имеется счетчик СИ 8 (Овен) с помощью его производится подсчет метража бумаги, задача - написать скрипт по которому в случае когда линия работает, а пересчет не происходит выводить сообщение о неисправности счетчика.
написал вот такой код:
Var In1, In2: Integer;
In3, In4, Out1:boolean;
Begin
// Присвоить переменной In2, значение переменной In1
In2:=In1;
// Присвоить переменной In1, значение переменной канала
In1:=ReadValue('Показания счетчика импульсов');
// Присвоить переменной In3, значение переменной канала
In3:=ReadValue('schet ok/err channel 9');
// Присвоить переменной In4, значение переменной канала
In4:=ReadValue('line C run/stop channel 5');
If (In2=In1) and (In4=true) then
Out1:=true
else
Out1:=false ;
// записать значение переменной Out1 в канал
WriteValue('schet ok/err channel 9',Out1);
end.
так как я ноль в программировании , ни чего не вышло
проблема в том что сравнение происходит слишком быстро
а значение с счетчика может не менятся в течении 5 минут, в зависимости от скорости линии
как мне сделать что то типа задержки ?
или может другой вариант написания скрипта
Если не трудно напишите к нам на почту simp@miniscada.com, или на ICQ: 352103362. С подробным описанием задачи которую хотите решить, и наши специалисты помогут решить Вашу задачу.