主页

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

bkm2000 2007-12-11 09:46:15

刚才在网上查了一下发现写的都不是很清楚

只有来这里求助各位学长

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

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

应该如何实现呢？求教！！

...全文

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

回复赞

大王派我去巡山 2007-12-11

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

社区成员

19.7w+

社区内容

VB 基础类

申请成为版主

社区公告

暂无公告

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

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