| 网站首页 | 业界新闻 | 群组 | 人才 | 下载频道 | 博客 | 代码贴 | 编程论坛
共有 137 人关注过本帖
标题:实时错误9 求帮忙改正 谢谢
只看楼主 收藏
叶子鸟
Rank: 1
等 级:新手上路
帖 子:10
专家分:0
注 册:2018-5-11
结帖率:100%
  已结贴   问题点数:10  回复次数:6   
实时错误9 求帮忙改正 谢谢
附件: 您没有浏览附件的权限,请 登录注册
2018-05-11 10:48
wmf2014
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:130
帖 子:1640
专家分:9225
注 册:2014-12-6
  得分:0 
还是发代码吧,不习惯对着图片分析代码。

能编个毛线衣吗?
2018-05-11 10:53
叶子鸟
Rank: 1
等 级:新手上路
帖 子:10
专家分:0
注 册:2018-5-11
  得分:0 
Sub send_information()
    send_data =h1 &g1 &f1 &e1 &d1 &c1 & b1 & a1
    For i = 1 To Len(send_data)
        a = a + CLng(Mid$(send_data, i, 1)) * 2 ^ CLng(Len(send_data) - i)
    Next i
    If a < 16 Then
       data = 0 & Hex(a)
    Else
       data = Hex(a)
    End If
    Hexdata = "&H" & Mid(Data, 1, 2)
    addnum = Hex(&H2 + &H7C + &H32 + &H1 + &HE + &H5 + &H5 + &H1 + &H12 + &HA + &H10 + &H2 + &H1 + &H82 + &H4 + &H8 + Hexdata)
    checkdata = Right(addnum, 2)
    Dim temp As String
    Dim n As Integer
    Dim arr() As Byte
    temp = "6820206802007C320100000000000E000501120A1002000100008200000000040008" & Data & checkdata & " 16 "
    n = Len(temp) \ 2 - 1
    For i = 0 To n
        arr(i) = Val("&H" & Mid(temp, i * 2 + 1, 2))
    Next i
    MSComm1.Output = arr
End Sub
2018-05-11 11:04
叶子鸟
Rank: 1
等 级:新手上路
帖 子:10
专家分:0
注 册:2018-5-11
  得分:0 
回复 2楼 wmf2014
先在这里谢谢&#128591;了
2018-05-11 11:22
叶子鸟
Rank: 1
等 级:新手上路
帖 子:10
专家分:0
注 册:2018-5-11
  得分:0 
回复 2楼 wmf2014
Sub send_information()
    send_data =h1 &g1 &f1 &e1 &d1 &c1 & b1 & a1
    For i = 1 To Len(send_data)
        a = a + CLng(Mid$(send_data, i, 1)) * 2 ^ CLng(Len(send_data) - i)
    Next i
    If a < 16 Then
       data = 0 & Hex(a)
    Else
       data = Hex(a)
    End If
    Hexdata = "&H" & Mid(Data, 1, 2)
    addnum = Hex(&H2 + &H7C + &H32 + &H1 + &HE + &H5 + &H5 + &H1 + &H12 + &HA + &H10 + &H2 + &H1 + &H82 + &H4 + &H8 + Hexdata)
    checkdata = Right(addnum, 2)
    Dim temp As String
    Dim n As Integer
    Dim arr() As Byte
    temp = "6820206802007C320100000000000E000501120A1002000100008200000000040008" & Data & checkdata & " 16 "
    n = Len(temp) \ 2 - 1
    For i = 0 To n
        arr(i) = Val("&H" & Mid(temp, i * 2 + 1, 2))
    Next i
    MSComm1.Output = arr
End Sub
2018-05-11 11:35
wds1
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:17
帖 子:184
专家分:963
注 册:2016-3-10
  得分:10 
arr数组没有定义大小,下标越界,在下面语句间增加数组重定义
  n = Len(temp) \ 2 - 1
  ReDim arr(n) '增加数组重定义
  For i = 0 To n
2018-05-11 15:37
叶子鸟
Rank: 1
等 级:新手上路
帖 子:10
专家分:0
注 册:2018-5-11
  得分:0 
回复 6楼 wds1
谢谢&#128591;
2018-05-11 19:46







关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.143771 second(s), 8 queries.
Copyright©2004-2018, BCCN.NET, All Rights Reserved