回复:用VB操作pc-access时一直出现:“部件要求挂起”,有类似经验的大师们请进!

malyn

  • 帖子

    14
  • 精华

    0
  • 被关注

    0

论坛等级:游民

注册时间:2012-12-07

普通 普通 如何晋级?

发布于 2013-01-17 09:18:54

3楼

我确实是参考软件自带的VB例程编写的程序,可以有时可以成功向PLC写数据,但每次只能写一个字节,但我的要求是写一个数组,比如:myvalue(7),确不能成功,至今未曾找到答案……请求贵人帮助啊
附上部分程序:
Public Sub Cmd_write_Click()
On Error GoTo Errorhandler
Dim Index As Long 'Index 为标签顺序号
Dim myValue(9) As Variant
Dim i As Integer
myValue(1) = &H0
For Index = 2 To 5
myValue(Index) = Val(Text3.Item(Index - 2).Text)
Next
For Index = 6 To 9
myValue(Index) = 0
Next
Call MyOPCGroup.SyncWrite(9, MyServerHandles, myValue, Errors)
MsgBox "您修改的风机控制参数已由通信网络发出!"
Text3(4).Text = Format(Now, "m-n" & " hh:mm:ss")
Exit Sub
Errorhandler:
MsgBox Err.Des cription + Chr(13) + "发送风机控制命令失败!", vbCritical, "ERROR"
End Sub
评论
编辑推荐: 关闭

请填写推广理由:

本版热门话题

SIMATIC S7-200

共有33257条技术帖

相关推荐

热门标签

相关帖子推荐

guzhang

恭喜,你发布的帖子

评为精华帖!

快扫描右侧二维码晒一晒吧!

再发帖或跟帖交流2条,就能晋升VIP啦!开启更多专属权限!

  • 分享

  • 只看
    楼主

top
您收到0封站内信:
×
×
信息提示
很抱歉!您所访问的页面不存在,或网址发生了变化,请稍后再试。