当前位置:中国高校自动化网 >> 现场总线 >> 浏览文章

MODBUS-RTU CRC校验码计算 VB源程序

文章来源:不详 作者:佚名 访问次数:


该文章讲述了MODBUS-RTU CRC校验码计算 VB源程序的电路原理和应用

Public Function CRC(STR1 As String) As String
Dim CRCREG As Long
Dim MVAL As Long
Dim R As Integer


CRCREG = 65535


For R = 1 To Len(STR1) Step 2
MVAL = Val("&H" + Mid(STR1, R, 2))

CRCREG = CRCREG Xor MVAL
CRCREG = CRCREG And 65535


For T = 1 To 8 Step 1
If (CRCREG And &H1) Then
CRCREG = (CRCREG \ 2) Xor &HA001
 CRCREG = CRCREG And 65535
 


    Else
    
   CRCREG = CRCREG \ 2
CRCREG = CRCREG And 65535
End If
Next 

Next
Dim A As Long
Dim B As Long
A = CRCREG And 255
B = CRCREG And 65280
A = A * 256
B = B / 256

If (A + B) < 16 Then
CRC = "000" + Hex(A + B)
ElseIf (A + B) < 256 Then

 


CRC = "00" + Hex(A + B)
ElseIf (A + B) < 4096 Then
CRC = "0" + Hex(A + B)
Else
CRC = Hex(A + B)
End If

   

该文章“MODBUS-RTU CRC校验码计算 VB源程序”共被浏览了:
上一篇:没有了
下一篇:没有了
最近更新