modibus脚本
'crc16校验代码
Public Function CRC16(ByVal SendStr As String) As String
Dim CRC16Lo As Byte, CRC16Hi As Byte 'CRC寄存器
Dim CL As Byte, CH As Byte '多项式码&HA001
Dim SaveHi As Byte, SaveLo As Byte
Dim i As Integer, j As Integer
Dim Flag As Intege
相关下载链接:
//download.csdn.net/download/fdzhj/2133657?utm_source=bbsseo