работа с библиотекой owen_io.dll на VB

[Valentin]

Всем доброго времени суток!
Библиотека owen_io.dll прекрасно работает на Delphi. Но на Visual Basic 6 даже пример, скачанный вместе с библиотекой, не запускается.
Проблема заключается в том, что есть готовый проект, написанный на VB, в него только необходимо вставить модуль для считывания данных с ТРМ202 и ТРМ138. Переписывать всё на Delphi как-то не тянет.
Пожалуйста, возможно кто-то работал с этой библиотекой на VB, если можно, скиньте примеры на е-mail mnval@rambler.ru А также возможно ли связь с приборами без данной библиотеки? Используются адаптеры AC-3 или АС-4.
Буду благодарный всем за помощь.

[Дмитрий Егоренков]

как и с дельфи, у библиотеки нет никаких проблем с VB6. в приложении - небольшой пример использования.

использовать библиотеку не обязательно. вы сами можете реализовать протокол ОВЕН в своей программе. описание протокола есть на нашем сайте - http://www.owen.ru/support/40691149

[Valentin]

Дмитрий, спасибо за предоставленный пример. С опросом датчиков всё нормально. Если возможно, хотел бы попросить ещё один пример на VB для управления токовыми выходами ТРМ202 и ТРМ138 (индекс И). Большое спасибо Вам за помощь!

[Дмитрий Егоренков]

управление аналоговыми выходами ТРМ138 невозможно.

аналоговым выходам ТРМ202 соответствует параметр r.Out. он записывается функцией WriteFloat24(). при этом параметр CmP должен иметь значение 0. дополненный пример прилагается.

[Valentin]

Дмитрий, всё ОК. Большое спасибо за помощь!

[незарегистрированный]

Здраствуйте! У меня вопрос: как в Visual Basic указать к какому порту подключен адаптер? Например АС-4 необходимо подключить к СОМ 5. Помогите пожалуйста разобраться.

[Дмитрий Егоренков]

в этой теме есть пример использования библиотеки owen_io.dll. библиотеку и описание функций можно скачать с сайта - http://www.owen.ru/device/64305906

вот пример вызова функции OpenPort() для пятого порта, скорости 9600 и автоматического преобразователя:

OpenPort(4, 2, 0, 1, 1, 1)

[Valentin]

Всем добрый день!
По мере развития своего проекта столкнулся с необходимостью изменять задание для ТРМ202 (параметр Sp). Интересно, что для первого канала как считывание, так и замена этого параметра проходит без проблем.
Вот фрагмент программы:

' Чтение параметра SP для первого канала прибора с адресом 0
res = ioLib.ReadFloat24(0, ADRTYPE_8BIT, "Sp", 0, Val)

здесь всё читается без проблем
и изменение параметра SP для первого канала:

res = ioLib.WriteFloat24(0, ADRTYPE_8BIT, "Sp", 0, Val)

здесь тоже всё записывается без проблем.
Для чтения и записи во второй канал увеличиваю адрес прибора на 1:
чтение

res = ioLib.ReadFloat24(0 + 1, ADRTYPE_8BIT, "Sp", 0, Val)

запись

res = ioLib.WriteFloat24(0 + 1, ADRTYPE_8BIT, "Sp", 0, Val)

А вот здесь уже и не записывается и не читается. И как при записи, так и при чтении res принимает значение -100.
Возможно кто-то сталкивался с подобной проблемой? Буду благодарен за любую помощь. Заранее спасибо!

[Nik]

Мне кажется, что аргументом функции не может быть выражение. 0 + 1
надо передавать в функцию готовое значение то бишь 1.

[Дмитрий Егоренков]

Sp - конфигурационный параметр. поэтому каналы адресуются через индекс. вот так:

res = ioLib.ReadFloat24(0, ADRTYPE_8BIT, "Sp", 1, Val)