用VB做16位CRC校验 应该如何做

bkm2000 2007-12-11 09:46:15
刚才在网上查了一下 发现写的都不是很清楚

只有来这里求助各位学长

我现在有两个文本框 Text1 和Text2 一个按钮Command1

我在第一个文本矿中输入一段01数字 然后点击Command1后 在Text2中显示出这段数字的CRC

应该如何实现呢? 求教!!
...全文
70 点赞 收藏 6
写回复
6 条回复
切换为时间正序
请发表友善的回复…
发表回复
move1016 2009-01-15
Private  Sub  Command1_Click() 
Dim CRC() As Byte
Dim d() As Byte '待传输数据
ReDim d(2) As Byte
d(0) = 123
d(1) = 112
d(2) = 135
CRC = CRC16(d) '调用CRC16计算函数
'CRC(0)为高位
'CRC(1)为低位
End Sub
回复
move1016 2009-01-15
Private Sub Command1_Click()
Dim CRC() As Byte
Dim d() As Byte '待传输数据
ReDim d(2) As Byte
d(0) = 123
d(1) = 112
d(2) = 135
CRC = CRC16(d) '调用CRC16计算函数
'CRC(0)为高位
'CRC(1)为低位
End Sub
回复
http://topic.csdn.net/t/20040723/17/3204666.html
回复
bkm2000 2007-12-11
我在你的这段代码上 加了一个控件Command1用于显示

代码为

Private Sub Command1_Click()
Dim CRC() As Byte
Dim d() As Byte '待传输数据
ReDim d(2) As Byte
d(0) = 123
d(1) = 112
d(2) = 135
CRC = CRC16(d) '调用CRC16计算函数
'CRC(0)为高位
'CRC(1)为低位
End Sub
可是编译的时候出现问题 您能帮我看一下吗 ?
回复
ZOU_SEAFARER 2007-12-11
http://blog.csdn.net/ZOU_SEAFARER/archive/2007/11/20/1895018.aspx
回复
bkm2000 2007-12-11
这个我已经看到了 但是我用VB6.0调试不出来啊

谁有调试成功的CRC校验工程吗 可以给我一个吗

我的邮箱bikemin0436@163.com

谢谢!
回复
发动态
发帖子
VB基础类
创建于2007-09-28

7453

社区成员

VB 基础类
申请成为版主
社区公告
暂无公告