VB通信中CRC校验的问题---------- 请(暴风雨 v2.0)高手给看看,在线等!!!!!!!-CSDN论坛

⋅vc中使用串口后提示出错，请高手进来看看 ⋅SQL查询中合并多个表的问题，请高手指点！ ⋅SQL SERVER2000中差异查询的问题，请高手进来看看。 更多帖子 关注私信空间博客 jinhailv 本版专家分：6 结帖率 96.43%: 我在做与下位串口R232通讯的程序时,需要将含有6位十六进制数据的字符串(例:01 04 05 0f 0f 0f)通过CRC校验后生成两位CRC校验码(一位高字节X和一位低字节Y)后,组成一个8位十六进制数据的字符串(01 04 05 0f 0f 0f X Y)发送给下位通讯.请各位高手帮忙看看,谢谢!!!!!!!!!
附:我这里有一个下位用C编写的CRC校验程序
unsigned  msrCRC(unsigned char *pcMess, unsigned wLen)      //*pcMess 字符数组

{

   long MSBInfo;
   int i,j ;
   unsigned nCRCData;

   nCRCData = 0xffff;
   for(i = 0; i < wLen;i++)
   {
      nCRCData = nCRCData ^ pcMess[i] ;
      for(j= 0 ; j < 8 ;j ++)
      {
         MSBInfo = nCRCData & 0x0001;
         nCRCData = nCRCData  >> 1;
         if(MSBInfo != 0 )
            nCRCData = nCRCData ^ 0xa001;
      }
   }
   return nCRCData;
}
请教在VB中上述程序如何实现.

0 2005-11-10 09:48:47

回复数 6 只看楼主引用举报楼主

jinhailv 本版专家分：6: 顺便问一个问题:VB中怎么实现字符的左/右移?

0 2005-11-11 08:29:22

只看TA 引用举报 #1 得分 0

shelanbor 本版专家分：81: 左移×2
右移/2

0 2005-11-15 16:35:10

只看TA 引用举报 #2 得分 0

⋅在用C++做标准的DLL时，使用了OPENMP实现多线程计算，为什么在部分XP系统下调用这个DLL会出现一个找不到 ***.dll的错误呢？

⋅有没有什么比较好的用于VC 2010 的代码格式化的插件啊。VS自带的好像只对C#的代码起作用。

⋅【节前分享】用最简单的方式在C#中使用多线程加速耗时的图像处理算法的执行（多核机器）。

更多帖子

关注私信空间博客

33184777

本版专家分：22101

蓝花 2005年1月 VB大版内专家分月排行榜第三: http://www.eengineerarea.com/vbic/vb_1.htm
VB下的CRC验证程序！

0 2005-11-15 16:46:51

只看TA 引用举报 #3 得分 0

rgbcy 本版专家分：78: 可以用查表法

0 2005-11-16 22:06:47

只看TA 引用举报 #4 得分 0

⋅叶帆的留言板

⋅基于.NET MF平台，设计Windows Form框架

⋅写C#代码，用Zigbee控制智能小车

更多帖子

关注私信空间博客

叶帆

本版专家分：12334

版主

微软MVP 2009年4月荣获微软MVP称号
2010年4月荣获微软MVP称号
2006年4月荣获微软MVP称号
2008年4月荣获微软MVP称号
2007年4月荣获微软MVP称号: '-------------------------------------------------------
'CRC16校验高位预存值
Public bytCRC16H(0 To 255) As Byte
Public Const strCRC16H As String = _
"00,C1,81,40,01,C0,80,41,01,C0,80,41,00,C1,81,40,01,C0,80,41,00,C1,81,40,00,C1,81,40,01,C0," & _
"80,41,01,C0,80,41,00,C1,81,40,00,C1,81,40,01,C0,80,41,00,C1,81,40,01,C0,80,41,01,C0,80,41," & _
"00,C1,81,40,01,C0,80,41,00,C1,81,40,00,C1,81,40,01,C0,80,41,00,C1,81,40,01,C0,80,41,01,C0," & _
"80,41,00,C1,81,40,00,C1,81,40,01,C0,80,41,01,C0,80,41,00,C1,81,40,01,C0,80,41,00,C1,81,40," & _
"00,C1,81,40,01,C0,80,41,01,C0,80,41,00,C1,81,40,00,C1,81,40,01,C0,80,41,00,C1,81,40,01,C0," & _
"80,41,01,C0,80,41,00,C1,81,40,00,C1,81,40,01,C0,80,41,01,C0,80,41,00,C1,81,40,01,C0,80,41," & _
"00,C1,81,40,00,C1,81,40,01,C0,80,41,00,C1,81,40,01,C0,80,41,01,C0,80,41,00,C1,81,40,01,C0," & _
"80,41,00,C1,81,40,00,C1,81,40,01,C0,80,41,01,C0,80,41,00,C1,81,40,00,C1,81,40,01,C0,80,41," & _
"00,C1,81,40,01,C0,80,41,01,C0,80,41,00,C1,81,40"

'CRC16校验低位预存值
Public bytCRC16L(0 To 255) As Byte
Public Const strCRC16L As String = _
"00,C0,C1,01,C3,03,02,C2,C6,06,07,C7,05,C5,C4,04,CC,0C,0D,CD,0F,CF,CE,0E,0A,CA,CB,0B,C9,09," & _
"08,C8,D8,18,19,D9,1B,DB,DA,1A,1E,DE,DF,1F,DD,1D,1C,DC,14,D4,D5,15,D7,17,16,D6,D2,12,13,D3," & _
"11,D1,D0,10,F0,30,31,F1,33,F3,F2,32,36,F6,F7,37,F5,35,34,F4,3C,FC,FD,3D,FF,3F,3E,FE,FA,3A," & _
"3B,FB,39,F9,F8,38,28,E8,E9,29,EB,2B,2A,EA,EE,2E,2F,EF,2D,ED,EC,2C,E4,24,25,E5,27,E7,E6,26," & _
"22,E2,E3,23,E1,21,20,E0,A0,60,61,A1,63,A3,A2,62,66,A6,A7,67,A5,65,64,A4,6C,AC,AD,6D,AF,6F," & _
"6E,AE,AA,6A,6B,AB,69,A9,A8,68,78,B8,B9,79,BB,7B,7A,BA,BE,7E,7F,BF,7D,BD,BC,7C,B4,74,75,B5," & _
"77,B7,B6,76,72,B2,B3,73,B1,71,70,B0,50,90,91,51,93,53,52,92,96,56,57,97,55,95,94,54,9C,5C," & _
"5D,9D,5F,9F,9E,5E,5A,9A,9B,5B,99,59,58,98,88,48,49,89,4B,8B,8A,4A,4E,8E,8F,4F,8D,4D,4C,8C," & _
"44,84,85,45,87,47,46,86,82,42,43,83,41,81,80,40"

'*************************************************************************
'**函数名：CRC16
'**输    入：bytData()(Byte) - 要处理的消息数据（字节数组）
'**        ：intNum(Integer) - 消息的字节长度
'**        ：bytCRCH(Byte)   - CRC高位字节
'**        ：bytCRCL(Byte)   - CRC低位字节
'**输    出：CRC校验字
'**功能描述：计算消息的CRC校验字节
'**全局变量：
'**调用模块：
'**作    者：叶帆
'**日    期：2003年12月15日
'**修改人：
'**日    期：
'**版    本：V1.0
'*************************************************************************
Public Function CRC16(bytData() As Byte, intNum As Integer, Optional bytCRCH As Byte = 0, Optional bytCRCL As Byte = 0) As Long
   Dim i As Integer
   Dim bytCRCHi As Byte
   Dim bytCRCLo As Byte
   Dim bytIndex As Byte
   bytCRCHi = &HFF
   bytCRCLo = &HFF

   For i = 0 To intNum - 1
      bytIndex = bytCRCHi Xor bytData(i)
      bytCRCHi = bytCRCLo Xor bytCRC16H(bytIndex)
      bytCRCLo = bytCRC16L(bytIndex)
   Next

   bytCRCH = bytCRCHi
   bytCRCL = bytCRCLo
   CRC16 = bytCRCH
   CRC16 = CRC16 * 256 + bytCRCL
End Function

0 2005-11-19 22:58:19

只看TA 引用举报 #5    得分 20

⋅叶帆的留言板

⋅基于.NET MF平台，设计Windows Form框架

⋅写C#代码，用Zigbee控制智能小车

更多帖子

关注私信空间博客

叶帆

本版专家分：12334

版主

微软MVP 2009年4月荣获微软MVP称号
2010年4月荣获微软MVP称号
2006年4月荣获微软MVP称号
2008年4月荣获微软MVP称号
2007年4月荣获微软MVP称号: 记得要初始化数组：
'-------------------------------------------
  '初始化CRC16校验值
  Dim strCRCHTemp() As String
  Dim strCRCLTemp() As String
  Dim i As Integer
  strCRCHTemp = Split(strCRC16H, ",")
  strCRCLTemp = Split(strCRC16L, ",")
  For i = 0 To 255
    bytCRC16H(i) = Val("&h" & strCRCHTemp(i))
    bytCRC16L(i) = Val("&h" & strCRCLTemp(i))
  Next

0 2005-11-19 22:59:13

只看TA 引用举报 #6    得分 0

VB通信中CRC校验的问题---------- 请(暴风雨 v2.0)高手给看看,在线等!!!!!!! [问题点数：20分，结帖人jinhailv]