当前位置：文档之家 › VB与S7200300400OPC通讯

VB与S7200300400OPC通讯

  • 格式：doc
  • 大小：35.50 KB
  • 文档页数：6

利用visual basic所开发的opc客户端应用程序主要采用自动化通信接口和opc服务器程序实施通信。

而opc基金会提供的opc自动化接口 opcdaauto.dll动态链接库集成了所有用于对opc服务器进行访问的对象、属性和方法，为利用visual basic开发opc客户端应用程序提供了极大方便。

程序设计时，opc客户程序应当首先生成opc服务器支持的opc对象，然后再使用opc对象支持的属性和方法，实现对opc服务器的操作和访问。

opc数据访问对象主要包括opc服务器（opcserver）、opc组集合（opcgroups）、opc组（opcgroup）、opc标签集合（opcitems）、opc标签（opcitem）、opc浏览器（opcbrowser）等几个部分。

程序设计时，要首先在visual basic环境下选择对opc automation 2.0接口的引用，此时，opc对象会被自动添加到正在开发的工程项目中，然后，再根据需要建立这些对象的实例并利用其属性和方法来实现对opc服务器的访问。

对opc服务器的访问主要包括声明opc对象实例、连接opc server、添加标签变量、读写opc服务器（同步/异步）、断开连接等几个步骤。

opc对象实例的声明主要包括对opc服务器、opc组集合、opc组、opc标签集合、opc服务器句柄的声明及程序所需要的其它实例的声明。

opc客户端和opc server的连接主要靠调用opc服务器对象实例的connect方法函数来完成，例如，连接本地计算机dassidirect和rslinx opc server 的代码分别为connect（"archestra.dassidirect.1"）和connect（"rslinx opc server"）连接网络远程计算机（ip地址为10.144.45.45）上dassidirect和rslinx opc server 的代码分别为connect（"archestra.dassidirect.1", "\10.144.45.45"）和connect（"rslinx opc server", "\10.144.45.45"）需要说明的是当进行远程opc连接时，必须在远程计算机上运行dcomcnfg程序，并启动该计算机opc服务器的dcom服务。

标签变量的添加主要由opc标签集合的additems方法函数实现，该函数定义了添加的标签数量、标签变量名（数组）、应用程序句柄（数组）、opc服务器句柄（数组）、错误代码（数组）等方面的信息。

例如，为dassidirect和rslinx opc服务器添加标签变量的代码为tagnms（1）=”portcps7.jsbf.db2,x48.0”或者tagnms（1）=”linxlogixtag”my_items.additems itmnum, tagnms, clienthdls, svrhandles, err其中，my_items为opc标签集合的一个实例。

标签变量添加完成后，可通过syncread、syncwrite和asyncread、asyncwrite四个函数实现对opc服务器中相应数据的读写操作。

在读写操作完成后，程序将会自动执行syncreadcomplete、syncwritecomplete和asyncread-complete、asyncwritecomple-te等过程，opc客户端应用程序的数据显示、故障诊断等功能可在该段程序代码中实现。

此外，在对opc服务器完成读写后，可以调用opc服务器的disconnect方法来断开与相应opc服务器的连接。

不过，为了节省系统开支，增加程序稳定性，通常要在断开和opc服务器连接前先移除opc服务器中的opc标签和opc组，并将opc集合对象都置为nothing，然后再执行disconnect操作并将opc server对象实例置为nothing。

在PC上装SIMATIC NET软件，先将PC与S7-300/400PLC建立起连接，VB通过OPC方式访问SIMATIC NET OPC即可。

/service/search/?pno=4&qu=OPC&pa=dc A0030 通过ETHERNET建立SIMATIC NET OPC 服务器与PLC 的S7连接（更新版）一、通过STEP7软件建立一个新项目OPC,在项目中添加SIMATIC 300站和一个PC 站，其中PLC站中第四个槽安装的CP343模块。

PC站的第一个槽为OPC SERVER ,第三个槽为 IE GENERAL，然后在NETPRO下配置PLC和PC站的网络连接：（注意：是在PC站上新建的网络连接，连接类型选的S7连接）二、通过station configurator软件配置本机的PC站（要和STEP7中配置的相同），然后把PLC和PC站都下载下去（注意：下载PC站的时候要把S7ONLINE （STEP7）－－->；PC internal(local)）。

三、打开OPC Scout,（Start>；SIMATIC>；SIMATICNet>；OPC Scout），双击&ldquo；OPCSimaticNet&rdquo；在随之弹出的&ldquo；ADD Group&rdquo；对话框中输入组名，本例命名为&ldquo；OPC&rdquo；。

点击OK 确认；；双击已添加的连接组（OPC），即弹出&ldquo；OPC Navigator&rdquo；对话框，此窗口中显示所有的连接协议。

双击&ldquo；S7&rdquo；，在PC Station 组态NetPro 中所建的连接名会被显示（S7connection_1）。

双击此连接，即可出现有可能被访问的对象树（objects tree），在PLCCPU 中已存在的DB 块也会出现以上完成的OPC SERVER部分的配置。

四、用VB编写了OPC客户端应用程序。

主要程序代码如下:在VB中引在VB中还要引用 siemens opc daautomation 2.0(1) 连接OPC服务器Dim WithEvents MyOPCServer As OPCServer ‘定义服务器对象变量MyOPCServer Dim WithEvents MyOPCGroup As OPCGroup ‘定义OPC组对象变量MyOPCGroup Set MyOPCServer = New OPCServerMyOPCServer.Connect " OPC.SimaticNET" ‘连接SIMATICNET 的OPC服务器(2) 添加OPC组对象Set MyOPCGroup=MyOPCServer.OPCGroups.Add("Group1")‘添加OPC组对象MyOPCGroup.IsSubscribed= True‘设置该组数据为后台刷新MyOPCGroup.IsActive = True‘设置该组为激活状态MyOPCGroup.UpdateRate=1000‘设置数据刷新时间为1000(3) 添加数据项Dim abItemIDs() As String‘项标识符Dim abClientHandles() As Long‘客户端句柄Dim abServerHandles() As Long‘服务器端句柄Dim abErrors() As LongDim i As LongItemCount=3abItemIDs(1) = " S7:[S7 connection_1]IB1"abItemIDs(2) = " S7:[S7 connection_1]MB1"abItemIDs(3) = " S7:[S7 connection_1]QB1"for i=1 to 3abClientHandles(i) = i‘给客户端句柄赋值NextMyOPCGroup.OPCItems.AddItems ItemCount, abItemIDs, abClientHandles, abServerHandles, abErrors‘添加数据项操作(4) 同步数据读写OPC数据存取有同步方式和异步方式两种。

异步读写数据复杂，需要与事件结合使用，与同步相比速度慢但准确性高。

同步读写数据简单，直接使用OPCItem的方法即可。

Dim One As OPCItemDim Index As Long‘Index为标签顺序号Dim OneRead As StringDim Xie As StringSet One = MyOPCGroup.OPCItems(Index)One.Read OPCCacheOneRead = One.Value‘读数据MyOPCGroup.SyncWrite ItemCount, ServerHandles, valuess, Errors‘同步写数据MyOPCGroup.SyncRead OPCCache, ItemCount, ServerHandles, ReadValue, Errors‘同步读数据One.Write (Xie)‘写数据若只读取数据，可以使用DataChange事件，当控制器中所要访问的数据一旦发生改变时将会触发该事件，并将该数据自动读到TxtValue文本框。

Private Sub MyOPCGroup_DataChange(ByVal TransactionID As Long, ByVal NumItems As Lon g, ClientHandles() As Long, ItemValues() As Variant, Qualities() As Long, TimeStamps() As Date )‘自动刷新数据Dim i As LongFor i = 1 To NumItemstxtValue(ClientHandles(i)) = ItemValues(i)‘获取项的值txtTime(ClientHandles(i)) = TimeStamps(i)‘获取项的时间戳txtQuantity(ClientHandles(i))=GetQualityString(Qualities(i))‘获取项的品质Next iEnd Sub(5) 断开OPC服务器MyOPCServer.OPCGroups.RemoveAll ‘移除所有OPC Group，空出资源Set MyOPCGroup = Nothing MyOPCServer.Disconnect‘断开连接。

合集下载

vb与欧姆龙OPC服务器编程实例(读取PLC100个内存的vb源代码)

vb与欧姆龙OPC服务器编程实例(读取PLC100个内存的vb源代码)

Option ExplicitOption Base 1 ' All OPC Automation Arrays start with 1Dim MyOPCServer As OPCServer ' OPCServer ObjectDim MyGroups As OPCGroups ' OPCGroups Collection ObjectDim WithEvents MyGroup As OPCGroup ' OPCGroup ObjectDim MyItems As OPCItems ' OPCItems Collection ObjectDim MyItemServerHandles() As Long ' Server Handles for ItemsDim MyTID As Long ' Transaction ID for asynchronous calls Private Sub Command1_Click()Dim Errors() As LongCall MyItems.Remove(100, MyItemServerHandles, Errors)MyGroups.RemoveAllSet MyGroup = NothingSet MyGroups = NothingMyOPCServer.DisconnectSet MyOPCServer = NothingEnd SubPrivate Sub Command2_Click()PFAsyncWriteCommandEnd SubPrivate Sub Command3_Click()Form_LoadEnd SubPrivate Sub Form_Load()MyTID = 1Set MyOPCServer = New OPCServerCall MyOPCServer.Connect("OMRON.OPC.2")Set MyGroups = MyOPCServer.OPCGroupsMyGroups.DefaultGroupUpdateRate = 500MyGroups.DefaultGroupIsActive = TrueSet MyGroup = MyGroups.Add("Group1")MyGroup.IsSubscribed = TrueMyGroup.IsActive = TrueMyGroup.UpdateRate = 500Dim ErrorFlag As BooleanDim ItemObj As OPCItemDim ItemIDs(100) As StringDim ItemClientHandles(100) As LongDim Errors() As LongErrorFlag = FalseSet MyItems = MyGroup.OPCItemsDim m As IntegerFor m = 0 To 3Text1(m).ForeColor = vbRedText1(m).FontSize = 15Text2(m).ForeColor = vbRedText2(m).FontSize = 15NextFor m = 4 To 99Text1(m).ForeColor = vbBlueText1(m).FontSize = 15NextFor m = 1 To 100ItemIDs(m) = "Device.Group1.Tag" & CStr(m)ItemClientHandles(m) = mNextCall MyItems.AddItems(100, ItemIDs, ItemClientHandles, MyItemServerHandles, Errors)End SubPrivate Sub MyGroup_DataChange(ByVal TransactionID As Long, ByVal NumItems As Long, ClientHandles() As Long ItemValues() As Variant, Qualities() As Long, TimeStamps() As Date)On Error GoTo ErrorHandler '订阅方式回馈信息存储Dim i As LongFor i = 1 To NumItemsIf ClientHandles(i) > 0 And ClientHandles(i) < 101 ThenIf Qualities(i) = 192 Thendata1(ClientHandles(i)) = ItemValues(i)Else' MsgBox GetQualityText(Qualities(i))End IfElseMsgBox "DataChange Item " + Str$(i) + " has invalid Client Handle ", vbCriticalEnd IfNextExit SubErrorHandler:MsgBox Err.Description + Chr(13) + "OnDataChange", vbCritical, "ERROR"End SubPrivate Sub Timer1_Timer()Dim i As IntegerFor i = 1 To 100Text1(i - 1).Text = data1(i)Next iEnd SubPublic Sub PFAsyncWriteCommand() '异步写入命令On Error GoTo ErrorHandlerDim i, j As LongDim Values(4) As VariantDim Errors() As LongDim CID As LongDim AsyncHandles(4) As LongFor j = 1 To 4AsyncHandles(j) = MyItemServerHandles(j)Values(j) = Text2(j - 1).TextNextMyTID = MyTID + 1Call MyGroup.AsyncWrite(4, AsyncHandles, Values, Errors, MyTID, CID)For i = 1 To 4If Not Errors(i) = 0 Then MsgBox "Item " + Str$(i) + " FAILED. Error Code = " + Str$(Errors(i)), vbCritical NextExit SubErrorHandler:MsgBox Err.Description + Chr(13) + "Writing Items Asyncronous", vbCritical, "ERROR"End SubPrivate Sub MyGroup_AsyncWriteComplete(ByVal TransactionID As Long, ByVal NumItems As Long, ClientHandles() As Long, Errors() As Long)On Error GoTo ErrorHandler '异步写命令回馈信息Dim i As LongFor i = 1 To NumItemsIf Not Errors(i) = 0 Then MsgBox "AsyncWriteComplete Item Clienthandle = " + Str$(ClientHandles(i)) + " FAILED. Error Code = " + Str$(Errors(i)), vbCriticalNextExit SubErrorHandler:MsgBox Err.Description + Chr(13) + "Async Write Complete", vbCritical, "ERROR"End Sub。

S7-300400与S7-200SMART之间的以太网S7通信

S7-300400与S7-200SMART之间的以太网S7通信

S7-300/400与S7-200SMART之间的以太网S7通信S7通信是S7系列PLC基于MPI.PROFIBUS.ETHERNET收集的一种优化的通信协定,重要用于S7-300/400PLC之间的通信.经由测试发明S7-300/400经由过程集成的PN口或CP343-1/CP443-1与S7-200 SMART PLC 之间的S7通信也是可以成功的, 但是须要S7-300/400侧编程挪用PUT/GET指令.留意：1.S7-200 SMART CPU 与S7-300/400 CPU 之间的S7通信未经西门子官方测试,本文档仅供客户测试应用,应用该种通信方法所产生的任何安全须要有客户本身承担！2.S7-200 SMARTPLC V2.0 版本才开端支撑PUT/GET通信,V1.0版本的CPU须要进级固件后方可支撑PUT/GET.3. S7-300/400若采取CP通信时,则须要采取Standard或Advanced类型通信模块,CP343-1 Lean模块不支撑.4.本文仅介绍S7-300集成PN口与S7-200 SMART CPU S7通信.S7通信介绍S7通信是S7系列PLC基于MPI.PROFIBUS.ETHERNET收集的一种优化的通信协定,重要用于S7-300/400PLC之间的通信.S7-300/400经由过程以太网接口与S7-200 SMART PLC 之间的S7通信经由测试是可以成功的,但是须要S7-300/400侧编程挪用PUT/GET指令,见表1所示.表 1 PUT和GET ：S7-400S7-300描写扼要描写SFB 14 FB 14 读数据单边编程读拜访.SFB 15 FB 15 写数据单边编程写拜访.S7-300/400依据应用通信接口（集成的PN口或CP343-1/CP443-1）不合,挪用的功效块起源也不合.通信接口为S7-300 集成PN接口时,须要应用Standard Library 中PUT/GET指令,如图1所示.图1 S7-300PN接口需采取Standard Library通信接口为S7-300 CP通信模块时,须要应用SIMATIC_NET_CP 库中PUT/GET指令,如图2所示.图2 S7-300 CP模块接口需采取SIMATIC_NET_CP库S??????CPU不区分通信接口,须要应用System??Function??Blocks??中的SFB ??SFB ??指令块,如图??所示.图????S??????需采取SFB程序块??硬件及收集组态本文以采取个???? PNDP, 个S????SMART??PLC为例,介绍它们之间的S??通信.??在STEP??中创建一个新项目,项目名称为S???? SMART.拔出个S????站,在硬件组态中拔出CPU????????PNDP.如图??所示.??图????STEP????项目中拔出S????站点设置CPU?????? PNDP的IP地址：??????,如图??所示.硬件组态完成后,即可下载该组态.??图????设置CPU??PN??IP地址打开“NetPro”设置收集参数,选中CPU?????? PNDP,在衔接列表中树立新的衔接.步调如图??所示.??图????NetPro组态视图中拔出新衔接选择??Unspecified ??站点,选择通信协定??S????connection,点击??Apply,如图??所示.??图????组态新衔接在弹出的S????connection属性对话框中,勾选??Establish??an??active??connection设置Partner??address????????S????SMART??PLC??IP??地址??,如图??所示.??图????设置S??衔接参数点击??2021Address??Details2021??,再弹出来的对话框设置??Partner??的??Slot??为 ,如图??所示.点击??OK即可封闭该对话框.??图9 设置“address details”参数收集组态创建完成后,须要编译,如图10所示.图10 保管并编译衔接收集组态编译无错,鼠标先点击 CPU 315-2PN/DP ,然后点击下载按钮下载收集组态,步调如图11所示.图 11 下载组态衔接程序编程可以经由过程SFB/FB 14 "GET",从长途CPU中读取数据.S7-300：在REQ的上升沿处读取数据.在REQ的每个上升沿处传送参数ID.ADDR_1和RD_1.在每个功课停止之后,可以分派新数值给ID.ADDR_1和RD_1参数.S7-400：在掌握输入REQ的上升沿处启动SFB.在此进程中,将要读取的区域的相干指针(ADDR_i)发送到伙伴CPU.长途伙伴返回此数据.在下一个SFB/FB挪用途,已吸收的数据被复制到组态的吸收区(RD_i)中.必须要确保经由过程参数ADDR_i和RD_i界说的区域在长度和数据类型方面要互相匹配.经由过程状况参数NDR数值为1来指导此功课已完成.只有在前一个功课已经完成之后,才干从新激活读功课.长途CPU可以处于RUN或STOP工作状况.假如正在读取数据时产生拜访故障,或假如数据类型检讨进程中出错,则出错和警告信息将经由过程ERROR 和STATUS输出暗示.经由过程应用SFB/FB 15 "PUT",可以将数据写入到长途CPU.S7-300：在REQ的上升沿处发送数据.在REQ的每个上升沿处传送参数ID.ADDR_1和SD_1.在每个功课停止之后,可以给ID.ADDR_1和SD_1参数分派新数值.S7-400：在掌握输入REQ的上升沿处启动SFB.在此进程中,将指向要写入数据的区域(ADDR_i)的指针和数据(SD_i)发送到伙伴CPU. 长途伙伴将所须要的数据保管在随数据一路供给的地址下面,并返回一个履行确认.必须要确保经由过程参数ADDR_i和SD_i界说的区域在编号.长度和数据类型方面互相匹配.假如没有产生任何错误,则鄙人一个SFB/FB挪用时,经由过程状况参数DONE来指导,其数值为1.只有在最后一个功课完成之后,才干再次激活写功课.长途 CPU可以处于RUN或STOP模式.假如正在写入数据时产生拜访故障,或假如履行检讨进程中出错,则出错和警告信息将经由过程ERROR和STATUS输出暗示.打开SIMATIC 315 PN-1的OB1,在OB1中依次挪用FB14,FB15如图12.图13所示：图12 FB14挪用表2.FB14参数解释：参数描写数据类型存储区描写REQ INPUT BOOL I.Q.M.D.L 上升沿触发挪用功效块ID INPUT WORD M.D.常数地址参数IDNDR OUTPUT BOOL I.Q.M.D.L 为1时,吸收数据成功ERROR OUTPUT BOOL I.Q.M.D.L 吸收到新数据STATUS OUTPUT WORD I.Q.M.D.L 故障代码S7-300：ADDR_1S7-400：ADDR_i (1 ≤ i ≤ 4) IN_OUT ANYM.DI.Q.M.D.T.C从S7-200 SMART的数据地址中读取数据;V区数据对应DB1.S7-300：RD_1S7-400：RD_i (1 ≤ i ≤ 4) IN_OUT ANYS7-300：M.DS7-400 I.Q.M.D.T.C本站吸收数据地址图13 FB15挪用表3.FB15参数解释：参数描写数据类型存储区描写REQ INPUT BOOL I.Q.M.D.L 上升沿触发挪用功效块ID INPUT WORD M.D.常数地址参数DONE OUTPUT BOOL I.Q.M.D.L 为1时,发送完成ERROR OUTPUT BOOL I.Q.M.D.L 为1时,有故障产生STATUS OUTPUT WORD I.Q.M.D.L 故障代码S7-300：ADDR_1S7-400：ADDR_i (1 ≤ i ≤ 4) IN_OUT ANYM.DI.Q.M.D.T.C从S7-200 SMART的数据地址中读取数据;V区数据对应DB1.S7-300：SD_1S7-400：SD_i (1 ≤ i ≤ 4) IN_OUT ANYS7-300：M.DS7-400 I.Q.M.D.T.C本站发送数据地址留意：S7-200 SMART PLC 不须要编程. S7-200 SMART 中的V存储区在S7-300/400 PLC 编程中以DB1数据块的情势表现.。

S7-200与S7-300之间的以太网通讯详解

S7-200与S7-300之间的以太网通讯详解


A&D Service and Support in China

S7-200 与 S7-300/400 之间的以太网通讯
通讯选择
步骤1：将CP243-1配置为CLIENT。
1 2 3 1. 在此处选择模块的位置。 2. 在线的情况下，您也可以用Read Modules按钮搜寻在线的CP243-1模块。 3 . 点击Next>按
A&D Service and Support in China

S7-200 与 S7-300/400 之间的以太网通讯
通讯选择
步骤1：将CP243-1配置为CLIENT。
点击New Transfer按钮并点击Yes确认之后，您可以进入参数配置画面。
A&D Service and Support in China
通讯选择
步骤2：在CLIENT上编写通讯程序。
您可以使用向导程序为您提供的子程序，在CLIENT上编写图中的通讯程序。然后，将 整个项目下载到作CLIENT的CPU上。
A&D Service and Support in China

S7-200 与 S7-300/400 之间的以太网通讯
A&D Service and Support in China

S7-200 与 S7-300/400 之间的以太网通讯
通讯选择
步骤1：将CP243-1配置为CLIENT。
1. 在此处填写IP地址。 2. 在此处填写子网掩码。 3. 选择模块的通讯类型。 4. 点击Next>按钮。
A&D Service and Support in China

S7-200 与 S7-300/400 之间的以太网通讯
模拟西门子PLCS7_300通信协议的VB程序设计

模拟西门子PLCS7_300通信协议的VB程序设计

通信协议的VB 程序设计■　李 妍 李 茜 张文林（陕西科技大学电气与电子工程学院　陕西　咸阳　７１２０８１）摘 要：现代工业控制特别是造纸领域中，西门子ＰＬＣ　Ｓ７－３００是应用最广的大中型ＰＬＣ。

而Ｖｉｓｕａｌ　Ｂａｓｉｃ在开发可视化环境下的监控系统时具有其独特的优势，倍受青睐。

本文用ＶＢ模拟西门子ＰＬＣＳ７－３００的通信协议，提出了ＶＢ在串行通信中一种新的应用方法。

关键词：Ｖｉｓｕａｌ　Ｂａｓｉｃ；可编程控制器；通信协议中图分类号：ＴＳ７３６；ＴＰ２７３工艺文献标识码：Ａ工艺文章编号：１００７－９２１１（２００６）０７－００７８－０３ 现代工业控制系统通常以ＰＣ机为上位机，通过与现场工控设备如ＰＬＣ等的数据交换与处理，实现对工业生产的过程控制。

西门子Ｓ７－３００　ＰＬＣ功能强、速度快、扩展灵活，在广大工业控制领域中占有重要地位。

目前，Ｓ７－３００　ＰＬＣ使用ＭＰＩ协议，通过专用接口卡５６１１卡和ＭＰＩ电缆实现与ＰＣ的通信。

通信软件为ＳＴＥＰ７、ＰＲＯＤＡＶＥ＿Ｓ７＿ｍｉｎｉ以及功能十分强大的ＷｉｎＣＣ。

但是，对于较小的工业控制系统使用这样的软硬件，成本相对昂贵，同时对操作人员的技术要求也较高。

本文提出了通过ＶＢ自编通信程序，模拟Ｓ７－３００通信协议，使用普通串口，实现上位机与ＰＬＣ的自由通信。

1通信协议1.1ＲＳ－２３２串行通信 ＲＳ－２３２串行通信端口是每台计算机上的必要配备，通常有ＣＯＭ１和ＣＯＭ２两个端口。

目前ＲＳ－２３２是ＰＣ机与通信工业中应用最广泛的一种串行接口，被定义为一种在低速率串行通讯中增加通讯距离的单端标准。

ＲＳ－２３２采取不平衡传输方式，即所谓单端通讯。

但工业环境通常会有噪声干扰传输线路，在用ＲＳ－２３２串行通信进行传输时经常会受到外界的电气干扰而使信号发生错误。

为了解决上述问题，ＲＳ－４８５串行通信方式应运而生了。

1.2ＲＳ－４８５串行通信 ＲＳ－４８５是一种多发送器的电路标准，允许双导线上一个发送器驱动３２个负载设备。