Скрипт авария по перекрытию датчика

[Avtovazov]

Добрый день
Пытался найти поиском на форуме, но видимо не умею искать или такие простейшие вопросы просто не задавали.
Имеется транспортер и на нем датчик продукта, мне нужно написать скрипт, чтоб при работающем транспортере и перекрытом более 10 секунд датчике продукта выдавался аварийный сигнал, и если с датчика продукт уходил, что авария исчезала.
Спрашивал у Дипсика, но там код на 30 строчек, как то это наверно много для такой простой ситуации.
Помогите составить скрипт.

[pan2000]

Здравствуйте.

Переменные буль-булевы:
vrConveyor - состояние транспортёра;
vrSensor - состояние датчика;
vrAlarm - аварийный сигнал.
vrTimer - целое, таймер срабатывания.
Скрипт выдачи аварийного сигнала (таймер 1 секунда):

Код: (delphi)

begin
// счёт при срабатывании датчика и движении транспортера, иначе сброс таймера
    if vrConveyor.AsBool and vrSensor.AsBool then vrTimer.inc(1, 0, 10) else vrTimer.Value := 0;  
    vrAlarm.Value := vrTimer.AsInt = 10;    // условие аварии
end.

Пример во вложении.

[Avtovazov]

О! Большое спасибо. Вы очень помогли.