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

[bkm2000]

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

只有来这里求助各位学长

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

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

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

[bkm2000]

这个我已经看到了 但是我用VB6.0调试不出来啊

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

我的邮箱[e-mail]

谢谢！

[ZOU_SEAFARER]

http://blog.csdn.net/ZOU_SEAFARER/archive/2007/11/20/1895018.aspx

[bkm2000]

我在你的这段代码上 加了一个控件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
可是编译的时候出现问题 您能帮我看一下吗 ？

[大王派我去巡山]

http://topic.csdn.net/t/20040723/17/3204666.html

[move1016]

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]

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