ТРМ151

[Mihail]

Как при помощи Visual Basic 5.0 менять уставку в в трм 151 процессе работы если это вооще возможно. Люди поделитесь опытом и если возможно примерами.

[Илья Глан]

Общий алгоритм таков... качаете руководлство по прибору отсюда http://www.owen.ru/support/45592687, находите в неи параметр, который хотите менять, берете библиотеку для связи с приборами ОВЕН отсюда http://www.owen.ru/device/64305906 и пишите свой софт

[Mihail]

Спасибо за внимание к моему вопросу
Все что вы написали я уже проделал и в результате уставка становится в 0 а конкретное значение задать не получается.

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

рассказывайте, какое значение в какой параметр записываете, какой функцией, и какой результат возвращает функция. будет еще лучше, если вы пришлете мне кусок рабочего кода.


а вы правда Vb5 используете, а не Vb6?

[Mihail]

1.как просили кусок кода
адрес у прибора 24
Case 24

' res2 = WriteStoredDotS(24, 0, "SP.lu", 25, -1)
2. Я действительно использую Visual Basic 5.0

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

а что функция возвращает в res2?

[Mihail]

Ничего не возвращает и уставка становится равной 0
Если вы знаете как это делать то просто пришлите пример я кода. Я со своей стороны поподробнее опешу результат испытания.

[Mihail]

Спасибо большое завтра протестирую и сообщу о результатах.
Где найти подробное описание команды WriteStoreDot = OwenIO(adr, adr_type, 0, cmd, buf, sz)
Дайте адрес или само описание а то не очень в программирование но мне очень хочется научится.

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

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

OwenIO() - универсальная функция для связи по протоколу овен. возвращаемое ей значение (код ошибки) присваивается в этой строке специальной переменной VB, название которой совпадает с именем функции. это значение станет кодом возврата функции WriteStoreDot().

[Mihail]

Функция res2 = WriteStoredDotS(24, 0, "SP.lu", 25, 0)
работает большое спасибо за помощь