Читаем здесь
http://www.owen.ru/forum/showthread.php?t=7691
Думаю на VB.net примерно так же импортируются функции
Для записи init используем OwenIOdll.OwenIO
c нулевым размером параметров.
Читаем здесь
http://www.owen.ru/forum/showthread.php?t=7691
Думаю на VB.net примерно так же импортируются функции
Для записи init используем OwenIOdll.OwenIO
c нулевым размером параметров.
Часто задаваемые вопросы по кодесис
1) Почему программа не работает - Следует выполнить "Онлайн ->Старт"
2) Где скачать CoDeSys, таргеты, прошивки, библиотеки - http://www.owen.ru/catalog/codesys_v3/opisanie
Олег как импортируются функции я знаю. У меня практически законченое работающие приложение, прибор выполняет функцию регулятора перепада давления.
Я не знаю название этой функции(WriteFloat24, WriteByte и т. д.) какой??? если это возможно спомощью owen_io.dll.
Пример предложенный Martin(спасибо), насколько я понимаю здесь необходимо работать с портом на прямую(если не ошибаюсь) в данной ситуации не подходит.
Как это ни странно но в библиотеке OwenIO есть функция OwenIO
Часто задаваемые вопросы по кодесис
1) Почему программа не работает - Следует выполнить "Онлайн ->Старт"
2) Где скачать CoDeSys, таргеты, прошивки, библиотеки - http://www.owen.ru/catalog/codesys_v3/opisanie
Да не чего странного я ее пробовал не получилось, точнее не понятно что ей передавать в последних двух параметрах params и param_sz. Первый я так понимаю должен быть пустым а вот второй???
param_sz обратите внимание - он ссылочный - в ссылке при вызове размер передаваемых данных, а при возврате возвращаемых.
Т.е. param_sz:=0;А в params можно передать какой нибудь не нужный массив
Часто задаваемые вопросы по кодесис
1) Почему программа не работает - Следует выполнить "Онлайн ->Старт"
2) Где скачать CoDeSys, таргеты, прошивки, библиотеки - http://www.owen.ru/catalog/codesys_v3/opisanie
спасибо вечером попробую.
Олег спасибо огромное! все работает. правда функция фозвращает код ошибки Err_timeout (-102) но я думаю что это логично, прибор реально выключается и вкючается снова(по крайней мере визуально).
Да забыл. Если кому интересно получилось так:
В модуле обявляем функцию
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)