文件名称: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