当前位置：工控论坛 > > 产品 > 人机界面

求助vb语句calldiziq不能通过编译 点击：210 | 回复：10



zhou1

    
  • 精华：0帖
  • 求助：27帖
  • 帖子：30帖 | 399回
  • 年度积分：1
  • 历史总积分：0
  • 注册：2013年8月07日
发表于：2016-07-18 17:00:05
楼主

哪位大侠知道请帮忙修改下，非常感谢！新手

分享到：
收藏 邀请回答 回复楼主 举报


楼主最近还看过



CZ198841

  • [版主]
  • 精华：0帖
  • 求助：0帖
  • 帖子：622帖 | 8531回
  • 年度积分：91
  • 历史总积分：332562
  • 注册：2011年4月25日
发表于：2016-07-19 12:09:26
1楼

你把源代码发出来，我让我师傅帮你看看

回复 引用 举报

zhou1

  • 精华：0帖
  • 求助：27帖
  • 帖子：30帖 | 399回
  • 年度积分：1
  • 历史总积分：0
  • 注册：2013年8月07日
发表于：2016-07-19 13:15:56
2楼

回复内容：

对：CZ198841 你把源代码发出来，我让我师傅帮你看看     内容的回复：

好的，谢谢！！。。。。。。

回复 引用 举报

zhou1

  • 精华：0帖
  • 求助：27帖
  • 帖子：30帖 | 399回
  • 年度积分：1
  • 历史总积分：0
  • 注册：2013年8月07日
发表于：2016-07-19 13:42:15
3楼

奇怪了，压缩包怎样上传 

回复 引用 举报

zhou1

  • 精华：0帖
  • 求助：27帖
  • 帖子：30帖 | 399回
  • 年度积分：1
  • 历史总积分：0
  • 注册：2013年8月07日
发表于：2016-07-19 13:58:36
4楼

Private Sub Cmdset_Click()
Call diziq
If CStr(Val(setadout)) <> setadout Then Exit Sub
MSComm1.OutBufferCount = 0
MSComm1.InBufferCount = 0
devdatout = "7" + devdatout
fg:
MSComm1.Output = Chr(2) + devdatout + sumchk(devdatout)
tim = Timer
Do
If Timer > tim + 1 Then: Exit Do
Loop Until MSComm1.InBufferCount = 1
If MSComm1.Input = Chr(6) Then
MSComm1.InBufferCount = 0
Else
If MsgBox("置位不成功", vbRetryCancel + vbCritical) = vbCancel Then Exit Sub
If MsgBox("置位不成功", vbRetryCancel + vbCritical) = vbRetry Then GoTo fg
End If
outalarm.FillColor = QBColor(12)
End Sub

这是置位按钮函数

回复 引用 举报

zhou1

  • 精华：0帖
  • 求助：27帖
  • 帖子：30帖 | 399回
  • 年度积分：1
  • 历史总积分：0
  • 注册：2013年8月07日
发表于：2016-07-19 14:00:09
5楼

Private Sub Cmdreset_Click()
Call diziq

If CStr(Val(setadout)) <> setadout Then Exit Sub
MSComm1.OutBufferCount = 0
MSComm1.InBufferCount = 0
devdatout = "8" + devdatout
fg:
MSComm1.Output = Chr(2) + devdatout + sumchk(devdatout)
tim = Timer
Do
If Timer > tim + 1 Then: Exit Do
Loop Until MSComm1.InBufferCount = 1
If MSComm1.Input = Chr(6) Then
MSComm1.InBufferCount = 0
Else
If MsgBox("复位不成功", vbRetryCancel + vbCritical) = vbCancel Then Exit Sub
If MsgBox("复位不成功", vbRetryCancel + vbCritical) = vbRetry Then GoTo fg
End If
outalarm.FillColor = QBColor(10)
End Sub

这是复位按钮函数

回复 引用 举报

迷茫小电工

  • 精华：0帖
  • 求助：0帖
  • 帖子：5帖 | 234回
  • 年度积分：0
  • 历史总积分：502
  • 注册：2009年7月05日
发表于：2016-07-20 10:18:35
6楼

你的“diziq”在哪啊……你什么都没有怎么调用啊！

回复 引用 举报

zhou1

  • 精华：0帖
  • 求助：27帖
  • 帖子：30帖 | 399回
  • 年度积分：1
  • 历史总积分：0
  • 注册：2013年8月07日
发表于：2016-07-20 11:19:27
7楼

回复内容：

对：迷茫小电工 你的“diziq”在哪啊……你什么都没有怎么调用啊！     内容的回复：

我按照书上写的，我不懂代码的，感谢关注

回复 引用 举报

Q339468465

  • 精华：0帖
  • 求助：0帖
  • 帖子：2帖 | 132回
  • 年度积分：0
  • 历史总积分：410
  • 注册：2015年7月26日
发表于：2016-07-20 13:59:29
8楼

diziq 这是一个过程函数，你需要先在别的地方声明，然后才可以调用。建议你学习之前，先把基础的东西好好看看

回复 引用 举报

迷茫小电工

  • 精华：0帖
  • 求助：0帖
  • 帖子：5帖 | 234回
  • 年度积分：0
  • 历史总积分：502
  • 注册：2009年7月05日
发表于：2016-07-20 14:21:51
9楼


回复内容：

对： zhou1 回复内容：对：迷茫小电工 你的“diziq”在哪啊……... 内容的回复！

你这是一个串口通讯的小程序！你还是从VB基础的东西学习吧，要不想编译成功还是很困难的！就算CALL DIZIQ 能编译通过，还是会有好多地方卡住的。

回复 引用 举报

zhou1

  • 精华：0帖
  • 求助：27帖
  • 帖子：30帖 | 399回
  • 年度积分：1
  • 历史总积分：0
  • 注册：2013年8月07日
发表于：2016-07-20 16:19:50
10楼

回复内容：

对：迷茫小电工 回复内容：对： zhou1 回复内容：对：迷茫小电工 你的“diziq”在哪啊……... 内容的回复！你这是一个串口通讯的小程序！你还是从VB基础的东西学习吧，要不想编译成功还是很困难的！就算CALL DIZIQ 能编译通过，还是会有好多地方卡住的。     内容的回复：

感谢指点，谢谢了，！          

回复 引用 举报

热门招聘
相关主题

官方公众号
智造工程师