哪位大哥有空帮我串下这个程序？ - VB6论坛

| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛 |

编程论坛 → 开发语言 → 『 VB6论坛』 → 哪位大哥有空帮我串下这个程序？

我的收件箱(0)

共有 450 人关注过本帖

标题：哪位大哥有空帮我串下这个程序？

只看楼主加入收藏

lcl0904

等　级：新手上路
帖　子：5
专家分：0
注　册：2010-8-8
结帖率：66.67%

楼主

已结贴√ 问题点数：20 回复次数：2

哪位大哥有空帮我串下这个程序？

小弟初学VB，搞PLC这块，要用到CRC计算，学了一段时间的VB，感觉很难搞定这个，从网络上下载了CRC代码，界面我也做好了，就是不知道怎么把它们连接起来，哪位大哥有空帮我串一下啊，不胜感激！！

CRC16.rar (259.68 KB)

搜索更多相关主题的帖子: 不胜感激　大哥　网络　

2010-08-27 22:27

bczgvip

等　级：贵宾
威　望：66
帖　子：1310
专家分：5312
注　册：2009-2-26

第 2 楼

得分:20

程序代码：

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

2010-08-28 00:05

lcl0904

等　级：新手上路
帖　子：5
专家分：0
注　册：2010-8-8

第 3 楼

得分:0

以下是引用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

这么大哥按照你的方法搞后，可以计算了，谢谢！
不过有个问题啊，比如说我要计算 110303000003 正确的结果应该是 1F07 但是结果却为 8A7C
能不能再帮我看看啊！！

2010-08-29 02:43

快速回复：哪位大哥有空帮我串下这个程序？