VB 串口 modbus crc16

VBMODBUS源码CRC16校验FunctionCRC16(data()AsByte)AsStringDimCRC16LoAsByte,CRC16HiAsByte'CRC寄存器DimCLAsByte,CHAsByte'多项式码&HA001DimSaveHiAsByte,SaveLoAsByteDimi