ТРМ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
Если вы знаете как это делать то просто пришлите пример я кода. Я со своей стороны поподробнее опешу результат испытания.

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

Ничего не возвращает и уставка становится равной 0

так не бывает. функция возвращает код ошибки. полагаю, что у вас это -104 (размер поля данных не соответствует ожидаемому).

параметр SP.Lu задает уставку для программы\шага\ПС и имеет сквозную индексацию от 0 до 239. то есть вызывать функцию надо так:

res2 = WriteStoredDotS(24, 0, "SP.lu", 25, 0)

это для первого ПС на первом шаге первой программы.

и, наконец, из-за некоторого непонимания между прибором и owen_io.dll далеко не все значения можно записать этой функцией. поэтому предлагаю вам использовать такую замену:

'Универсальная функция для обмена с устройствами по протоколу OWEN
Private Declare Function OwenIO Lib "owen_io" _
(ByVal adr As Long, _
  ByVal adr_type As Long, _
  ByVal is_read As Long, _
  ByVal cmd As String, _
  ByVal params As String, _
  param_sz As Long) _
 As Long

Private Function WriteStoredDot(ByVal adr As Long, ByVal adr_type As Long, _
    ByVal cmd As String, ByVal Value As Single, ByVal index As Integer) As Long
    
    Dim intval As Integer
    Dim sign As Integer
    Dim dot As Integer
    Dim sz As Long
    Dim buf As String
    
    If Abs(Value) * 100 <= 65536 Then
        intval = CInt(Value * 100)
        dot = 32
    ElseIf Abs(Value) * 10 <= 65536 Then
        intval = CInt(Value * 10)
        dot = 16
    Else
        intval = CInt(Value)
        dot = 0
    End If
   
    If intval < 0 Then
        sign = 128
        intval = -intval
    Else
        sign = 0
    End If

    If (intval < 16) Then
        buf = Chr(sign + dot + intval)
        sz = 1
    ElseIf intval < 256 Then
        buf = Chr(sign + dot)
        buf = buf + Chr(intval)
        sz = 2
    Else
        If intval \ 256 < 16 Then
            buf = Chr(sign + dot + intval \ 256)
            buf = buf + Chr(intval And &HFF)
            sz = 2
        Else
            buf = Chr(sign + dot)
            buf = buf + Chr(intval \ 256)
            buf = buf + Chr(intval And &HFF)
            sz = 3
        End If
    End If

    If index <> -1 Then
        buf = buf + Chr(index \ 256)
        buf = buf + Chr(index And &HFF)
        sz = sz + 2
    End If

    buf = buf + Space(15)

    WriteStoredDot = OwenIO(adr, adr_type, 0, cmd, buf, sz)
End Function

[Mihail]

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

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

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

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