kaipuledou

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