用VB.NET编写了一个OPC连接西门子S7400 PLC的程序,这两天刚刚能够在MyGroup_AsyncReadComplete内的ItemValues(j)(1))读取S7400 PLC地址DB110.DBW地址数据,我是要读取DBW内1000组数据,,但是发现怎么只能循环读取读取16组DB110.DBW数据,当我将要读取的ITEMVALUES(J)(1)元素剩下从6个减少至三个,显示读取了121组。是否一组数据读取元素是有总的上限?我尝试了新建一个GROUP,但是失败了,也许是我还不知道如何再建一个GROUP,特请教。
程序如下:
MyGroup = MyOPCServer.OPCGroups.Add("OTR") ‘新增GROUP
Call PLC_U_AddItem()
Timer1.Enabled = True
Private Sub PLC_U_AddItem() ‘ 往组里添加元素
For i As Short = 1 To 32
MyOPCItemIDs(i) = "S7:[OTR]DB110,W" & ((i - 1) * 26 + 2) & ",12"
MyOPCItemIsArray(i) = 0
MyClientHandles(i) = i
Next i
MyGroup.OPCItems.AddItems(ItemCount, MyOPCItemIDs, MyClientHandles, MyItemServerHandles, AddItemServerErrors)
Sub PLC_AsyncRead()
MyGroup.AsyncRead(32, MyItemServerHandles, _
MyErrors, lTransID_Rd, lCancelID_Rd)
Private Shared Sub MyGroup_AsyncReadComplete(ByVal TransactionID As Integer, ByVal NumItems As Integer, ByRef ClientHandles As System.Array, ByRef ItemValues As System.Object, ByRef Qualities As System.Array, ByRef TimeStamps As System.Array, ByRef Errors As System.Array) Handles MyGroup.AsyncReadComplete
For j = 1 To 999
Label(j).Text = j & Chr(46) &
Chr("&H" & Mid(Hex(ItemValues(j)(1)), 1, 2)) & Chr("&H" & Mid(Hex(ItemValues(j)(1)), 3, 2)) &
Chr("&H" & Mid(Hex(ItemValues(j)(2)), 1, 2)) & Chr("&H" & Mid(Hex(ItemValues(j)(2)), 3, 2)) &
Chr("&H" & Mid(Hex(ItemValues(j)(3)), 1, 2)) & Chr("&H" & Mid(Hex(ItemValues(j)(3)), 3, 2)) &
Chr("&H" & Mid(Hex(ItemValues(j)(4)), 1, 2)) & Chr("&H" & Mid(Hex(ItemValues(j)(4)), 3, 2)) &
Chr("&H" & Mid(Hex(ItemValues(j)(5)), 1, 2)) & Chr("&H" & Mid(Hex(ItemValues(j)(5)), 3, 2))
Chr("&H" & Mid(Hex(ItemValues(j)(6)), 1, 2)) & Chr("&H" & Mid(Hex(ItemValues(j)(6)), 3, 2))
原程序太长,以上仅粘贴部分GROUP及添加ADD ITEM元素程序。该段程序中Label(j).Text 本应该显示999组数据,但是最后仅显示16组Label(j).Text。请问是怎么回事?
若需要再添加一组GROUP,及在新的GROUP中添加元素OPCItems.AddItems,程序该怎么写?