VB下Modbus-Rtu 读出的byte如何转为数值

[jingyes239]

读出来的字节如何转为数值？？

[笨狗先飞]

用数组，把每个字节存起来，用CopyMemory转换，高低字节的排布可能不一样，要看情况调整一下数组里的顺序

[jingyes239]

Private Sub cmdHexDec_Click() Dim sinStr As String Dim sinSj As Double Dim bytes(7) As Byte Dim i As Integer sinStr = Text2 For i = 1 To Len(Text2) Step 2 bytes((15 - i) / 2) = Val("&H" & Mid(sinStr, i, 2)) Next CopyMemory ByVal VarPtr(sinSj), ByVal VarPtr(bytes(0)), 8 Text3 = sinSj End Sub

[jingyes239]

以上方法亲测，结贴