www.InTouch.su

Доброго всем вечера.
Возникла реальная примитивная задача с которой я не смог справиться, помогите плиз:

Как выглядит скрипт (в InTouch 9.5), который выдает кратковременный дискретный сигнал по выполнению определенного
условия, т.е.: включить\выключить двигатель по положению уровня воды в баке.
Визуально выглядит так:
Тег1=0-1-0 включает
Тег2=0-1-0 выключает
У меня получается только жестко записыать в Тег1= 0-1, но тогда работает как выключатель, а мне надо чтоб как кнопка, т.е. кратковременно 0-1, а потом возвращался опять 0

Помогите плиз

Заранее всем спасибо

Вопрос, начальное состояние Тэга всегда равно - 0?
Наверное можно просто присвоением значения, или оператором NOT менять знач. дискретного тега.

Такое ощущение, что вы логику делаете скриптами в Интаче. Такие вещи всегда делаются в ПЛК.

Скрипт 1
Tag1 = 1
Sec=$Seconds

Скрипт 2 (while Tag1 == 1)
if Sec<>$Seconds then Tag1=0; EndIf;

mp3corp писал(а):Вопрос, начальное состояние Тэга всегда равно - 0?
Наверное можно просто присвоением значения, или оператором NOT менять знач. дискретного тега.

Да, совершенно верно, в состоянии ожидания =0, в момент подачи сигнала =1, затем должно вернутся в ноль.
...NOT, вобщем у меня не получилось

mp3corp писал(а):Такое ощущение, что вы логику делаете скриптами в Интаче. Такие вещи всегда делаются в ПЛК.

Да ябы с удовольствием в релейке написал, но к сожалению АДАМ 5310, не поддерживает такую логику, только Си

Генератор зла писал(а):Скрипт 1
Tag1 = 1
Sec=$Seconds

Скрипт 2 (while Tag1 == 1)
if Sec<>$Seconds then Tag1=0; EndIf;

Огромное спасибо, завтра буду пробовать

К сожалению так и не получилось
Наверное у меня руки не из-того места растут
Пришлось выкрутиться, написать релейной логикой на соседнем контроллере (DL205), и от него в АДАМ ч\з InTouch, что не есть гуд

Какой длительности импульс должен быть?

около, от 1 до 3 секунд

Скрипт Action на кнопку:

MSec = $Second*1000 + $Msec + 2000;
IF MSec > 59999 THEN MSec = MSec - 60000; ENDIF;
Sec = MSec / 1000;
MSec = (MSec MOD 1000);
Discrete1 = 1;


Скрипт Condition (Discrete1 == 1, While True, Every 100 (500) ms):

IF (($Second * 1000 + $Msec) >= (Sec * 1000 + MSec)) THEN Discrete1 = 0; ENDIF;

А так правильнее
Скрипт Action на кнопку:

DateTime1 = $DateTime * 86400300 + 2000;
Discrete1 = 1;

DateTime1 = MemReal (0 - 1+38)

Скрипт Condition (Discrete1 == 1, While True, Every 100 (500) ms):

IF (($DateTime * 86400300) >= DateTime1) THEN Discrete1 = 0; ENDIF;

Большое спасибо, завтра буду пробовать.

Condition (Discrete1 == 1, While True, Every 500 ms):

IF (($DateTime * 864003009) >= DateTime1) THEN
Discrete1 = 0;
ENDIF;

Большое спасибо!!!, Всё прекрасно работает

...только вот не понял, что за число такое 86400300?

Это особая уличная магия.
Множитель для перевода из суток в миллисекунды.