Simple-Scada forum

Simple-Scada 2 => Ваши вопросы => Тема начата: Avtovazov от 17 Февраля 2026, 09:21:40

Название: Скрипт авария по перекрытию датчика
Отправлено: Avtovazov от 17 Февраля 2026, 09:21:40

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

Название: Re: Скрипт авария по перекрытию датчика
Отправлено: pan2000 от 19 Февраля 2026, 02:13:21

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

Переменные буль-булевы:
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.

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

Название: Re: Скрипт авария по перекрытию датчика
Отправлено: Avtovazov от 19 Февраля 2026, 14:50:43

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