[分享] 改进的Modbus中CRC16校验代码，同时感谢网友分享

icode

改进的Modbus中CRC16校验代码，同时感谢网友yangneet的分享， 在他基础上修改的代码：

1. 函数 CRC16_Modbus校验码(字节数据集 为 字节型(), 数据长度 为 整数型) 为 整数型
   
2.         变量 crc 为 整数型, i 为 整数型, x 为 整数型, b 为 整数型
   
3.        
   
4.         'CRC初始值=0xFFFF 其它CRC可更改成对应的
   
5.         crc = 65535
   
6.        
   
7.         '检查校验数据长度
   
8.         如果 数据长度 > 取数组成员数(字节数据集) 则
   
9.                 数据长度 = 取数组成员数(字节数据集)
   
10.         结束 如果
    
11.        
    
12.         x = 0
    
13.         判断循环首 x < 数据长度
    
14.                 b = 字节数据集(x)                                        '取出字节数据
    
15.                
    
16.                 如果 b < 0 则                                                '最主要的是这句,必须转换成无符号数据
    
17.                         b = b + 256
    
18.                 结束 如果
    
19.                
    
20.                 crc = crc 异或 b
    
21.                 i = 0
    
22.                 判断循环首 i < 8
    
23.                         如果 (crc 且 1) 则
    
24.                                 crc = crc \ 2                                 '无符号右移1位
    
25.                                 crc = crc 异或 40961                 '0xA001 其它CRC可更改成对应的
    
26.                         否则
    
27.                                 crc = crc \ 2                                 '无符号右移1位
    
28.                         结束 如果
    
29.                         i = i + 1
    
30.                 判断循环尾
    
31.                 x = x + 1
    
32.         判断循环尾
    
33.         CRC16_Modbus校验码 = crc                                '返回CRC校验码
    
34. 结束 函数

复制代码

CRC校验测试.rar (38.14 KB, 下载次数: 23)

2024-1-20 20:17 上传

点击文件名下载附件
CRC16校验测试

咸鱼

777777777777777777777777777777777777

retn

同时感谢网友分享

wmzhl998

易如意中文编程学习交流论坛有你更精彩~

wmzhl998

易如意中文编程学习交流论坛有你更精彩~

q13003765457

看看看看看

恒泰源

易如意中文编程学习交流论坛有你更精彩

mandur

谢谢分享，继续努力