文件名称：CRC较验已OK2.txt
文件大小：1KB
文件格式：TXT
更新时间：2023-05-28 11:04:42
VFP中485通讯CRC校验
VFP写的CRC16校验码，已验证完全可用n16CRC = 0x0000FFFF FOR i=1 TO nLen n16CRC = BITOR((BITAND (n16CRC, 0xFF00)) ,(BITXOR(BITAND (n16CRC, 0x00FF),val(cStr(i))))) *!* WAIT WINDOW n16CRC FOR j=1 TO 8 IF BITAND(n16CRC,1)==1 n16CRC = BITXOR(BITRSHIFT(n16CRC,1),0xA001) &&先右移再异或运算 ELSE n16CRC = BITRSHIFT(n16CRC,1) &&直接右称运算 ENDIF ENDFOR ENDFOR