перезагрузка трм 212 по Rs485

[Малышев Олег]

Читаем здесь
http://www.owen.ru/forum/showthread.php?t=7691
Думаю на VB.net примерно так же импортируются функции

Для записи init используем OwenIOdll.OwenIO
c нулевым размером параметров.

[resident]

Читаем здесь
http://www.owen.ru/forum/showthread.php?t=7691
Думаю на VB.net примерно так же импортируются функции

Для записи init используем OwenIOdll.OwenIO
c нулевым размером параметров.

Олег как импортируются функции я знаю. У меня практически законченое работающие приложение, прибор выполняет функцию регулятора перепада давления.

Я не знаю название этой функции(WriteFloat24, WriteByte и т. д.) какой??? если это возможно спомощью owen_io.dll.

Пример предложенный Martin(спасибо), насколько я понимаю здесь необходимо работать с портом на прямую(если не ошибаюсь) в данной ситуации не подходит.

[Малышев Олег]

Как это ни странно но в библиотеке OwenIO есть функция OwenIO

[resident]

Да не чего странного я ее пробовал не получилось, точнее не понятно что ей передавать в последних двух параметрах params и param_sz. Первый я так понимаю должен быть пустым а вот второй???

[Малышев Олег]

param_sz обратите внимание - он ссылочный - в ссылке при вызове размер передаваемых данных, а при возврате возвращаемых.
Т.е. param_sz:=0;А в params можно передать какой нибудь не нужный массив

[resident]

спасибо вечером попробую.

[resident]

Олег спасибо огромное! все работает. правда функция фозвращает код ошибки Err_timeout (-102) но я думаю что это логично, прибор реально выключается и вкючается снова(по крайней мере визуально).

[resident]

Да забыл. Если кому интересно получилось так:

В модуле обявляем функцию
Public Declare Function OwenIOUniversal Lib "owen_io" Alias "OwenIO" _
(ByVal adr As Integer, _
ByVal adr_type As Integer, _
ByVal is_read As Integer, _
ByVal command As String, _
ByVal params As String, _
ByRef param_sz As Integer) As Integer

Вызываем
Dim arr(0) As Byte
Dim res As Integer = OwenIOUniversal(mvarDevAdr, 0, 0, "INIT", arr(0), 0)