相忘于江湖

不抛弃,不放弃... 请给我勇敢,改变可以改变的;请给我坚强,接受不可以改变的;请给我智慧,分辨这两者。

  博客园 :: 首页 :: 博问 :: 闪存 :: 新随笔 :: 联系 :: 订阅 订阅 :: 管理 ::

2009年7月10日

摘要: 'Data为字符型数组 start为开始点 size 为几个,返回的即为 CRCPublic Function CRC16(Data() As Byte, start As Integer, size As Integer) As Long Dim CRC16Lo As Byte, CRC16Hi As Byte 'CRC寄存器 Dim CL As Byte, CH As Byte '多项式码&a... 阅读全文
posted @ 2009-07-10 09:27 playman0211 阅读(2414) 评论(0) 推荐(0) 编辑