哪位大哥有空帮我串下这个程序？
小弟初学VB，搞PLC这块，要用到CRC计算，学了一段时间的VB，感觉很难搞定这个，从网络上下载了CRC代码，界面我也做好了，就是不知道怎么把它们连接起来，哪位大哥有空帮我串一下啊，不胜感激！！
CRC16.rar
(259.68 KB)
以下是引用bczgvip在2010-8-28 00:05:04的发言：
Private Sub Command1_Click()
Dim i&
i& = CRC16_1(StrConv(Text1.Text, vbFromUnicode), 0, Len(Text1.Text))
Text2.Text = Hex$(i&)
End Sub
Private Sub Command2_Click()
Call CRC16_2(StrConv(Text1.Text, vbFromUnicode))
End Sub
这么大哥按照你的方法搞后，可以计算了，谢谢！Private Sub Command1_Click()
Dim i&
i& = CRC16_1(StrConv(Text1.Text, vbFromUnicode), 0, Len(Text1.Text))
Text2.Text = Hex$(i&)
End Sub
Private Sub Command2_Click()
Call CRC16_2(StrConv(Text1.Text, vbFromUnicode))
End Sub
不过有个问题啊，比如说我要计算 110303000003 正确的结果应该是 1F07 但是结果却为 8A7C
能不能再帮我看看啊！！