ВОПРОС-ОТВЕТ (отвечаем на простые вопросы от новичков)

[melky]

Не понимаю, почему после сброса ПЛК запись через SysLibCom работает, а после полного прохождения цикла перестает работать ?
Код вида:
1:
(*Отсылаем команду*)
t1;
byte_write:=SysComWrite(DeviceNumber, ADR(command), command_len, 0);

IF byte_write=command_len THEN
stat:=2;
(*Запуск таймера ожидания ответа*)
t1(IN:=TRUE , PT:=timeout );
t1;
END_IF
После одного прохода byte_write становится равным 0 хоть тресни. Не пойму, куда копать...

[Валенок]

А кто ж кроме вас видел все остальное ?
Например, забыли сбрасывать таймер

[melky]

Валенок, все остальное это библиотека Mercury.lib от Овена и переделка ее под SysLibCom вместо UNM.

При холодном старте проходит весь цикл от открытия порта, тестирование канала, открытие сессии, чтения массива данных, закрытия порта, потом открывается опять порт и застряет на тестировании канала...
Как вообще такое возможно, что при холодном старте проходит весь цикл работы программы, а на следующем заходе ступор ?

Можно подробнее как в ST сбрасывать таймер ? а то я уже тут блуждаю между непонятно чем и как.

Примеры работы с SysLibCom так же брал Овеновские.

[Yegor]

потом открывается опять порт

А зачем его закрывать и повторно открывать? Всё-таки лучше б вы показали, как именно перевели этот mercury.lib. Приёмник данные считывает хотя бы в это время?

byte_write:=SysComWrite(DeviceNumber, ADR(command), command_len, 0);

IF byte_write=command_len THEN

Так не совсем правильно писать, потому что в буфере порта может не оказаться свободного места для данных в объёме command_len. Нужно суммировать ответы SysComWrite пока они не достигнут command_len, а к адресу своего буфера эту сумму добавлять:

nbytes_written := nbytes_written + SysComWrite(dev, ADR(command) + nbytes_written, command_len - nbytes_written, 0);

IF nbytes_written = command_len THEN ...

[melky]

Yegor ADR(command) + nbytes_written, command_len - тут билиберда, при условии, что command_len число известное. мы сдвигаем адрес буфера команды, а ее длину оставляем неизменную.
ага, тоже уже заметили

Говорю же, переделывал, поэтому и не трогал открытие и закрытие порта.
На мои художества, не относящиеся к Меркурию, не обращайте внимания, можно удалить. Может свежим взглядом станет ясно, что не так.

За код не пинайте, он практически полностью от ОВЕН.
Странность в том, что все заложенные в программе CASE с учетом входа Fixed проходят только один раз, потом стопориться на case 1: блока Test_Channel

ПЛК-100 Р-М используется для тестирования.

Опытным путем определил, что зависает порт, поэтому останавливается цикл опроса.
1. отключил FB Close_port
2. будучи подключенным к проекту из Codesys ручками заставляю закрыть и потом открыть порт, цикл продолжается.
3. попытки использовать Fixed так же приводят к останову...
мда уж, толи руки кривые, толи лыжи не едут

Обновил вложение.

[bladerunner]

Подскажите, пожалуйста, как инициализировать глобальные переменные? Где-то вроде бы говорилось, что они инициализируются в ноль, но в эмуляторе пишет INVALID: 16x67...

[Валенок]

16#67, 2#10001

[alex55]

Валенок-гений математики и не только!

[bladerunner]

16#67, 2#10001

Эээ, а подробнее можно, пожалуйста...
Спасибо

[Валенок]

А что такое 16x67 ?