- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]求助一个CRC校验的问题。 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=107230)
-- 发布时间：2017/9/23 18:45:00
-- [求助]求助一个CRC校验的问题。
我参考了这个帖子：
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
这样报错怎么回事？
我直接把上图的数据输入进去，就能计算出来，使用这个变量的话就不行了。我也改了一下数组，也还是报这个错误。
-- 发布时间：2017/9/24 23:27:00
--
改成
Dim aaff As UInteger() = {HexToDec(Vars("C01")), HexToDec(Vars("C02"))}
-- 发布时间：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 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编辑过]