Отвечу сам себе, вдруг кому-нибудь понадобится:
Адрес АС2-М - 16, нужно получить температуру со второго канала, т.е. адрес д.б. 16+(2-1) = 17
Индекс в нашем случае всегда -1
я эксперементировал в примере от ОВЕН написанном на VB6:
Dim res As Long
res = OpenPort(1, 2, 0, 1, 0, 0)
If res < 0 Then
MsgBox "Ошибка открытия порта:" & res
Else
Dim value As Single
Dim tm As Long
res = ReadIEEE32(17, 0, "PV", value, tm, -1)
If res >= 0 Then
MsgBox CStr(value)
Else
MsgBox "Ошибка чтения: " & res
End If
ClosePort
End If
Все заработало!




Ответить с цитированием