zoukankan      html  css  js  c++  java
  • VB Modbus RTU CRC 校验

     Public Function Chr_crc(data() As Byte) As String    '*RTU方式的CRC校验计算
    
          Dim CrcJ As Long
          Dim i As Integer
          Dim j As Integer
                 
          CrcJ = 65535                                       '*CRCj赋值65535
          
          For i = 0 To UBound(data) '- 2                      '*循环参加校验的字节个数
    
              CrcJ = CrcJ Xor data(i)                        '*每个字节与CRCj的当前值异或
              For j = 0 To 7                                 '*循环八次
                  If CrcJ Mod 2 = 1 Then                     '*如果CRCj当前值除2的余数等于1  判断最低位是否为1
                     CrcJ = CrcJ  2                         '*则CRCj当前值除2  右移
                     CrcJ = CrcJ Xor 40961                   '*CRCj当前值与40961异或
                  Else
                     CrcJ = CrcJ  2                         '*如果CRCj当前值最低位不等于1 则只右移
                  End If
             Next j
          Next i
          Chr_crc = Right("0000" + Hex(CrcJ), 4)             '*计算的CRCj当前值转换为十六进制
          Chr_crc = Right(Chr_crc, 2) + Left(Chr_crc, 2)     '*低字节放在前面,高字节放在后面
    End Function
  • 相关阅读:
    ant-pro兄弟组件传参dva数据应用
    ant-design-pro 的EditableProTable表格验证调用
    使用ant-design-pro 的EditableProTable赋值报错
    EditableProTable使用+自定义封装
    由浅入深CAS
    Spring Cloud之Feign 转发请求头(header参数)
    线程池不允许使用Executors去创建,而是通过ThreadPoolExecutor的方式
    接口的幂等性
    Feign 调用丢失Header的解决方案
    springboot测试类测试时注入的对象为null
  • 原文地址:https://www.cnblogs.com/jianhongtang2016/p/7806933.html
Copyright © 2011-2022 走看看