发布于 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