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

谁有VB CRC16校验源码

'CRC校验码的计算方法,如以下函数,可以得到字节数组变量cmdstring指向的字符串的CRC校验码。 Function crc16(ByRef cmdstring() As Byte, ByVal j As Integer) Dim data As Integer Dim i As Integer Addressreg_crc = &HFFFF For i = 0 To j ...

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

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

Dim ReturnData(1) As Byte Private Sub Command1_Click() Dim CRC(2) As Byte Dim d() As Byte '待传输数据 ReDim data(7) As Byte data(0) = 1 data(1) = 3 data(2) = 0 data(3) = 0 data(4) = 0 data(5) = 1 Call CRC16(data, UBound(data) -...

大概看了下。有变量定义类型错误,修改如下: 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...

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

在窗体定义,以下代码测试通过. 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...

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

去我的博客看看吧,有详细的编程例子。 http://xdc0363.blog.163.com/blog/static/115462002201032741437679/

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

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