net用opc方式，应用vb编程。设置 ## Set ItemObj1 = GroupObj.OPCItems.AddItem("S7:[DEMO] DB1, INT0, 13", 1) ##，现在可以13个变量同时读出，但是13个同时写入确写不了，写入原句是## GroupObj.AsyncWrite 1, Serverhandle, MyValues, ErrorNr, WRITEASYNC_ID, Cancel_id ##，该如何写，比较急啊。
最佳答案
一、经过STEP7软件建立一个新项目OPC,正在项目中添加SIMATIC300站和一个PC站，其中PLC站中第四个槽安置的CP343模块。PC站的第一个槽为OPCSERVER,第三个槽为IEGENERAL，然后正在NETPRO下配置PLC和PC站的网络连接：（注重：是正在PC站上新建的网络连接，连接类型选的S7连接）
二、经过stationconfigurator软件配置本机的PC站（要和STEP7中配置的相反），然后把PLC和PC站都下载下走（注重：下载PC站的时分要把S7ONLINE（STEP7）－－->；PCinternal(local)）。
三、打开OPCScout,（Start>；SIMATIC>；SIMATICNet>；OPCScout），双击&ldquo；OPC
SimaticNet&rdquo；正在随之弹出的&ldquo；ADDGroup&rdquo；对话框中输进组名，本例命名为&ldquo；OPC&rdquo；。
点击OK确认；
；双击已添加的连接组（OPC），即弹出&ldquo；OPCNavigator&rdquo；对话框，此窗口中显现
一切的连接协议。双击&ldquo；S7&rdquo；，正在PCStation组态NetPro中所建的连接名会被显现（S7
connection_1）。双击此连接，即可出现有可能被访问的东西树（objectstree），正在PLC
CPU中已存正在的DB块也会出现
以上完成的OPCSERVER部分的配置。
四、四、用VB编写了OPC客户端应用步骤。主要步骤代如下:
(1)连接OPC办事器
DimWithEventsMyOPCServerAsOPCServer‘界说办事器东西变量MyOPCServer
DimWithEventsMyOPCGroupAsOPCGroup‘界说OPC组东西变量MyOPCGroup
SetMyOPCServer=NewOPCServer
MyOPCServer.Connect"OPC.SimaticNET"‘连接SIMATICNET的OPC办事器
(2)添加OPC组东西
SetMyOPCGroup="MyOPCServer".OPCGroups.Add("Group1")
‘添加OPC组东西
MyOPCGroup.IsSubscribed=True
‘设置该组数据为后台刷新
MyOPCGroup.IsActive=True
‘设置该组为激活形态
MyOPCGroup.UpdateRate=1000
‘设置数据刷新光 为1000
(3)添加数据项
DimabItemIDs()AsString
‘项标识符
DimabClientHandles()AsLong
‘客户端句柄
DimabServerHandles()AsLong
‘办事器端句柄
DimabErrors()AsLong
DimiAsLong
ItemCount=3
abItemIDs(1)="S7:[S7connection_1]IB1"
abItemIDs(2)="S7:[S7connection_1]MB1"
abItemIDs(3)="S7:[S7connection_1]QB1"
fori="1"t03
abClientHandles(i)=i
‘给客户端句柄赋值
Next
MyOPCGroup.OPCItems.AddItemsItemCount,abItemIDs,abClientHandles,abServerHandles,abErrors
‘添加数据项作
(4)同步数据读写
OPC数据存取有同步方式和异步方式两种。异步读写数据双杂，需求与事情联合使用，与同步比较速度慢但正确高。同步读写数据简略，直接使用OPCItem的要领即可。
DimOneAsOPCItem
DimIndexAsLong
‘Index为标签顺序号
DimOneReadAsString
DimXieAsString
SetOne=MyOPCGroup.OPCItems(Index)
One.ReadOPCCache
OneRead=One.Value
‘读数据
MyOPCGroup.SyncWriteItemCount,ServerHandles,valuess,Errors
‘同步写数据
MyOPCGroup.SyncReadOPCCache,ItemCount,ServerHandles,ReadValue,Errors
‘同步读数据
One.Write(Xie)
‘写数据
若只读取数据，可以使用DataChange事情，卖控制器中所要访问的数据一旦发生改变时将会触发该事情，并将该数据主动读到TxtValue文本框。
PrivateSubMyOPCGroup_DataChange(ByValTransactionIDAsLong,ByValNumItemsAsLong,ClientHandles()AsLong,ItemValues()AsVariant,Qualities()AsLong,TimeStamps()AsDate)
‘主动刷新数据
DimiAsLong
Fori=1ToNumItems
txtValue(ClientHandles(i))=ItemValues(i)
‘获取项的值
txtTime(ClientHandles(i))=TimeStamps(i)
‘获取项的光 戳
txtQuantity(ClientHandles(i))=GetQualityString(Qualities(i))
‘获取项的质量
Nexti
EndSub
(5)断开OPC办事器
MyOPCServer.OPCGroups.RemoveAll
‘移除一切OPCGroup，空出资源
SetMyOPCGroup=Nothing
MyOPCServer.Disconnect
‘断开连接
正在VB中还要引用siemensopcdaautomation2.0才行
参考资料：http://www.acecom.cn/content.asp?id=1470
提问者对于答案的评价：
谢谢，回答的比较详细。
原创文章，作者：more0621，如若转载，请注明出处：https://www.zhaoplc.com/plc169223.html
微信扫一扫 
支付宝扫一扫 