快捷搜索:

用VB编写OPC客户端访问WINCC<BR><SPAN style="FONT-FAM

用VB编写OPC客户端造访WINCC

OPC是一个工业标准,它是由一些天下上闻名的自动化系统和硬件、软件公司和Microsoft(微软)相助无懈而建立的。〔O代表OLE(工具链接和嵌入),P (process历程),C (control节制)。OLE已从面向工具从新定义为基于工具并更名为Active X〕。

WinCC是西门子公司在自动化领域采纳最先辈的技巧与微软公司在合营开拓的居于天下领先职位地方的工控软件。WinCC即WINDOWS CONTROL CENTER(视窗节制中间)。WinCC是一个功能强大年夜的周全开放的监控系统,既可以用来完成小规模的简单的历程监控利用,也可以用来完成繁杂的利用。在任何环境下WinCC都可以天生漂亮而便捷的人机对话接口,使操作员能够清晰地治理和优化临盆历程。它集成的OPC(OLE for process control)办事器使得历程数据可由其它利用法度榜样(OPC客户机)造访。

WinCC在安装时供给了OPC的客户端控件: Siemens OPC DAAutomation 2.0( SOPCDAAuto.dll),这个控件便是我们在VB中要用到的控件,我们也可以应用通用的OPC客户端控件: OPC Automation 2.0.

在WINCC的赞助中,有Siemens OPC DAAutomation 2.0应用的大略赞助,但说得不很具体,我在应用中碰着不少问题,现一并写出来,与大年夜家共享。

一、OPC的连接

先在“引用”将近 Siemens OPC DAAutomation 2.0加入,然后开始定义全局变量。在本法度榜样中,我应用了两个OPC组进行OPC造访,以是定义了全局变量。我们要首先定义OPC办事类型与谋略机结点名。定义OPC组与OPC标签组。并定义OPC的标签数组与值数,留意,值数组必然要设为Variant。

'OPC处置惩罚:只对WINCC

Const ServerName = "OPCServer.WinCC"‘OPC的类型

Const NodeName = "GUK"‘结点名,即谋略机名

‘Dim NodeName As String

Dim WithEvents MyOPCServer As OPCServer‘OPC办事

Dim MyOPCGroupColl As OPCGroups‘

Dim WithEvents MyOPCGroupOut As OPCGroup‘OPC组,本法度榜样用两个组进行OPC连接

Dim WithEvents MyOPCGroupIn As OPCGroup

Dim MyOPCItemCollIn As OPCItems‘OPC标签组

Dim MyOPCItemCollOut As OPCItems

Dim ServerHandlesIn() As Long‘句柄

Dim ServerHandlesOut() As Long

Dim ErrorsIn() As Long‘差错句柄

Dim ErrorsOut() As Long

Dim WatchDataReadItem(100) As String'记录OPC的标签

Dim WatchDataReadValue(100) As Variant'寄放OPC的值

Dim WatchDataWriteItem(100) As String'记录OPC的标签

Dim WatchDataWriteValue(100) As Variant'寄放OPC的值

在定义所有变量后,我们就要进行OPC连接了,要进行OPC连接之前,先要设置设置设备摆设摆设要造访的OPC标署名,我们WatchDataReadItem、WatchDataWriteItem中加入响应的标署名,留意:这两个数组必须由1开始,不能由0开始。

设置设置设备摆设摆设好标签后就要进行OPC连接了。如下面子法度榜样:

1、ClientHandles1先设置设置设备摆设摆设名柄索引,这将在读取OPC标签的值时可要用到

2、天生OPC工具,

3、进行OPC标签连接

至此:OPC连接就成功了,我们可以对OPC进行读与写的操作了。

'---------------------------------------------------------------------

' Sub StartClient()

' 目的:连接至OPC_server,创建组和添加条款

'---------------------------------------------------------------------

Private Sub StartClient()

Dim ItemNum As Integer

Dim TarnscationID As Long

Dim CanceID As Long

Dim ClientHandles1(100) As Long

Dim ii As Integer

On Error GoTo HANDLEeRROR

For ii = 0 To 100

ClientHandles1(ii) = ii先设置设置设备摆设摆设名柄索引,这将在读取OPC标签的值时可要用到

Next ii

TarnscationID = 1

‘NodeName = xProfile.GetValue("SYSTEM", "NodeName")

‘天生OPC工具,

Set MyOPCServer = New OPCServer

MyOPCServer.Connect ServerName, NodeName

Set MyOPCGroupColl = MyOPCServer.OPCGroups

MyOPCGroupColl.DefaultGroupIsActive = True

Set MyOPCGroupIn = MyOPCGroupColl.Add("MYGROUPIN")

Set MyOPCGroupOut = MyOPCGroupColl.Add("MYGROUPOUT")

Set MyOPCItemCollIn = MyOPCGroupIn.OPCItems

Set MyOPCItemCollOut = MyOPCGroupOut.OPCItems

‘进行OPC标签连接

If WriteItemIdex > 0 Then

MyOPCItemCollOut.AddItems WriteItemIdex, WatchDataWriteItem, ClientHandles1, ServerHandlesOut, ErrorsOut'初始化OCP连接

MyOPCGroupOut.IsSubscribed = True

End If

If ReadItemIdex > 0 Then

MyOPCItemCollIn.AddItems ReadItemIdex, WatchDataReadItem, ClientHandles1, ServerHandlesIn, ErrorsIn'初始化OCP连接

MyOPCGroupIn.IsSubscribed = True

End If

Exit Sub

HANDLEeRROR:

needOPCRestart = True

xLog1.log "OPCl连接发生差错"

End Sub

二、OPC的标签读写

对OPC标签的读可以经由过程MyOPCGroupIn组与MyOPCGroupOut的DataChange变糊弄读取。该事故有多个参数:此中NumItems是指标签改变值的个数,ClientHandles是改变值的标签索引,ItemValues为改变值的数据,详细的意思是ClientHandles(1)的值是其对应的标签数组的索引,其所指的OPC标签的值在ItemValues(1)中。一样平常来说,刚连接上时,该事故会把整个所要求造访的OPC标签值整个读取过来(顺序不一,要经由过程ClientHandles索引),此后只稀有据发生变更时才会触发该事故。也只会传输发生了变更的数据,没有变更的数据不会呈现在本事故的ItemValues中。

Private Sub MyOPCGroupOut_DataChange(ByVal TransactionID As Long, ByVal NumItems As Long, ClientHandles() As Long, ItemValues() As Variant, Qualities() As Long, TimeStamps() As Date)

'孕育发生要看护下一级的数据变更,根椐不再的控件有不合的处置惩罚

For ii = 1 To NumItems

WatchDataWriteValue(ClientHandles(ii) - 1) = ItemValues(ii) '对改变的值读入本数组

Next ii

End Sub

对OPC的写可以有同步与异步之分,对付大年夜量的数据传输,异步是更佳的选择,但对少量的数据传输,同步体现得更好。

要进行数据传输,先要将值数据进行赋值,留意:值数据要由0开始,也便是说,值数组与标签数据不是一、一对应,值要比标签前一位,这一点,在WINCC阐明中没有,但在我的实际的应用中不停要这样,不然数据就孕育发生错位,看下面法度榜样。

这是一个拔号完毕后返回的数据进行OPC通报的法度榜样。包孕解包历程,

Private Sub showSuccess(msg As String)

Dim location As String

Dim nowTime As String

Dim logStr As String

Dim Value() As String

Dim ii, temp As Integer

Dim isPack As Boolean

Dim sHead, sDelimited, sTail As String

location = xProfile.GetValue(WatchPoint(nowRunID), "LOCATION")

nowTime = Now

logStr = "拔" & location & "取数成功" & msg

xLog1.log logStr

logStr = " " & msg

xLog2.log logStr'记录数据

'数据上传

'假如有包布局,则显示包布局,

isPack = xProfile.GetValue(WatchPoint(nowRunID), "ISRECHEAD")

If WatchPointRBegin(nowRunID)

If isPack Then

sHead = xProfile.GetValue(WatchPoint(nowRunID), "RECHEAD")

sDelimited = xProfile.GetValue(WatchPoint(nowRunID), "RECDELIMITER")

sTail = xProfile.GetValue(WatchPoint(nowRunID), "RECEND")

Value = Split(msg, sDelimited)

For ii = 0 To UBound(Value) - 1

temp = WatchPointRBegin(nowRunID) + ii

If temp > WatchPointREnd(nowRunID) Then Exit For

WatchDataReadValue(temp - 1) = Value(ii + 1)'VALUE要从0开始,比ITEM少1,以是减一。有包头,占去一位,向后延一

Next ii

Else

WatchDataReadValue(WatchPointREnd(nowRunID) - 1) = msg

End If

MyOPCGroupIn.SyncWrite ReadItemIdex, ServerHandlesIn, WatchDataReadValue, ErrorsIn'数据上传

'记录上次成功履行的光阴

xProfile.SetValue WatchPoint(nowRunID), "LASTTIME", nowTime

End Sub

三、OPC连接断开。

OPC客户端连接后要占用办事器资本,以是假如不必要应用OPC时,必须进行OPC连接断开。

断开的法度榜样相称简单,开释资本即可。如下,

Sub StopClient()

On Error Resume Next

'----------- 开释组和办事器工具

MyOPCGroupColl.RemoveAll

'----------- 与办事器断开连接并且清除

MyOPCServer.Disconnect

Set MyOPCItemCollIn = Nothing

Set MyOPCItemCollOut = Nothing

Set MyOPCGroupIn = Nothing

Set MyOPCGroupOut = Nothing

Set MyOPCGroupColl = Nothing

Set MyOPCServer = Nothing

End Sub

但在实际的应用中发明,频繁的连接与断开,将使办事器的资本被大年夜量的耗损,终极让办事器掉足。以是只管即便削减无谓的OPC连接与断开。

结语:

OPC的应用是作为一个DCOM在应用,以是OPC客户端可以收集上任一谋略机运行,但你必须设置设置设备摆设摆设DCOM的造访权限,假如你不想操心,把办事器与客户端都用相同的用户名与密码登录就成了。假如想设置设置设备摆设摆设DCOM,请参看DCOM的设置设置设备摆设摆设。

参考资料:

《WinCC在线赞助》

作者简介:

顾恺,高档法度榜样员,湖南大年夜学卒业,曾从事过LINUX的内核钻研,从事过企业信息化平台的开拓,当前从事SCADA的开拓,主要将各类不合类型的远程设备经由过程同一手段进行数据采集,并集成到企业信息化平台中去。爱好将事情中的一些积累形成翰墨。

您可能还会对下面的文章感兴趣: