mbmc.net
当前位置:首页 >> 谁有VB CRC16校验源码 >>

谁有VB CRC16校验源码

CCITT(Xmodem) 的校验你写出来了吗

1) 预置 1 个 16 位的寄存器为十六进制FFFF(即全为 1) , 称此寄存器为 CRC寄存器。 2) 把第一个 8 位二进制数据 (通信信息帧的第一个字节) 与 16 位的 CRC寄存器的低 8 位相异或, 把结果放于 CRC寄存器。 3) 把 CRC 寄存器的内容右移一位( 朝低...

是MODBUS的校验计算?

Private Sub Command1_Click() Dim 数据() As Byte Dim 校验码 As Integer Dim 字节数 As Long Dim 低位 As Boolean 校验码 = -1 数据 = StrConv(Text1, vbFromUnicode) 字节数 = UBound(数据) For i = 0 To 字节数 低位 = ture For j = 1 To 8 ...

大概看了下。有变量定义类型错误,修改如下: Public Function crc16(ByRef cmdstring() As Byte, DataLen As Integer) As String Dim data As Integer Dim i As Integer Dim CRCHi As long, CRCLo As long'这里应该定义为long.因为下面赋值是lo...

你在自己写的方法里 加个 static 关键字。这样就可以直接通过 类名来调用了。也就是像调用系统函数那样,不用NEW直接通过类名就可以调用了。

C计算CRC-16 : unsigned int cal_crc(unsigned char *ptr, unsigned char len) { unsigned char i; unsigned int crc_value =0; while(len--) { for(i=0x80; i!=0; i>>=1 ) { if (crc_value&0x8000) crc_value = (crc_value

在窗体定义,以下代码测试通过. Option Explicit Dim HiByte Dim LoByte Dim Addressreg_crcPrivate Sub Command1_Click() Dim a() As Byte ReDim a(7) a(0) = CInt("&H" & ar1.Text) a(1) = CInt("&H" & ar2.Text) a(2) = CInt("&H" & "AB") a(3...

两种方法: 1、查表法 通过字节内容查表后与下一个字节异或,再查表,再异或,直至最后得到校验码。在VB中设置定义数组后查表即可。 2、计算法 按照crc多项式,自己编写子程序进行计算,输入变量为需要校验的字节(可定义成字节数组),返回校验...

网站首页 | 网站地图
All rights reserved Powered by www.mbmc.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com