module1.bas

MODBUS客户端程序(VB),用于采集主机的数据

Attribute VB_Name = "Module1"
Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" ( _
hpvDest As Any, hpvSource As Any, ByVal cbCopy As Long)

'Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
    

Public Function hex2float(ByVal a As Byte, ByVal b As Byte, ByVal c As Byte, ByVal d As Byte) As Single
Dim k(3)     As Byte     '不应定义为Dim   A(4)   As   Byte，原因为vb的数组下标默认从0开始
Dim Result     As Single

Dim l(3)     As Byte
Dim i     As Integer
k(0) = a
k(1) = b
k(2) = c
k(3) = d

For i = 0 To 3
        l(i) = k(3 - i)
Next
CopyMemory Result, l(0), 4
hex2float = Result
'MsgBox Result
End Function