[求助]求助一个CRC校验的问题。 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]求助一个CRC校验的问题。

共有1885人关注过本帖树形打印复制链接主题：[求助]求助一个CRC校验的问题。

54292550

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：289 积分：4258 威望：0 精华：0 注册：2011/8/19 10:07:00

[求助]求助一个CRC校验的问题。 发帖心情

Post By：2017/9/23 18:45:00 [只看该作者]

我参考了这个帖子：

http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=61936&authorid=0&page=0&star=2

现在使用一下代码：

Dim Data As String ="&H" & Vars("C01") & ",&H" & Vars("C02") & ",&H" & Vars("C03") & ",&H" & Vars("C04") & ",&H" & Vars("C05") & ",&H" & Vars("C06") & ",&H" & Vars("C07") & ",&H" & Vars("C08") & ",&H" & Vars("C09")

Messagebox.Show(Data)

Dim aaff As UInteger() = {Data}

Dim aa As Integer = crc_16(aaff, aaff.Length)

Dim bb As String = Convert.ToString(aa, 16).ToUpper()

Messagebox.Show(bb)

此主题相关图片如下：12.jpg

这样报错怎么回事？

我直接把上图的数据输入进去，就能计算出来，使用这个变量的话就不行了。我也改了一下数组，也还是报这个错误。

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/9/24 23:27:00 [只看该作者]

改成

Dim aaff As UInteger() = {HexToDec(Vars("C01")), HexToDec(Vars("C02"))}

lhpc120

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：635 积分：6336 威望：0 精华：0 注册：2011/5/8 13:21:00

Post By：2017/11/30 21:32:00 [只看该作者]

这个问题我也遇到了

Dim aaff As uInteger() = {&H01, &H03, &H00, &H00, &H00, &H02}
Dim aa As Integer = crc_16(aaff, aaff.Length)
Dim bb As String = Convert.ToString(aa, 16).ToUpper()
msgbox(bb)

Dim aaff As uInteger()这里的值如何动态生成呢？

解决了~~~~~~~~~~~~~~~~~~~~~

[此贴子已经被作者于2017/11/30 21:36:41编辑过]

下一主题 >> << 上一主题

主题：[求助]求助一个CRC校验的问题。