vb访问RSLinx

由纪小年 · 2016/12/22

OPC是一个工业标准，它是由一些世界上著名的自动化系统和硬件、软件公司和Microsoft(微软)紧密合作而建立的。 O代表OLE(对象链接和嵌入)，P (process过程)，C (control控制)。OLE已从面向对象重新定义为基于对象并更名为Active X。

OPC的使用是作为一个DCOM在使用，所以OPC客户端可以网络上任一计算机运行，但你必须配置DCOM的访问权限，如果你不想费神，把服务器与客户端都用相同的用户名与密码登录就成了。如果想配置DCOM，请参看DCOM的配置。

RSlinx集成的OPC(OLE for process control)服务器使得过程数据可由其它应用程序(OPC客户机)访问。RSlinx在安装时提供了OPC的客户端控件: Rockwell Software OPC Automation(C:Program FilesCommon FilesRockwellRsiOPCAuto.dll) 这个控件就是我们在VB中要用到的控件。

先在工程中引用”Rockwell Software OPC Automation”，然后开始定义全局变量。

我们要首先定义OPC服务类型与计算机结点名。定义OPC组与OPC标签组。并定义OPC的标签数组与值数，注意，值数组一定要设为Variant。

Const ServerName = "RSLINX OPC Server"              'OPC的类型
Const NodeName = "SMZ"                              '结点名，即计算机名
Dim WithEvents MyOPCServer As OPCServer             'OPC服务
Dim MyOPCGroups As OPCGroups
Dim WithEvents MyOPCGroup As OPCGroup               'OPC组
Dim MyOPCItems As OPCItems                          'OPC标签组
Dim ServerHandles() As Long                         '句柄
Dim Errors() As Long                                '错误句柄
Dim DataItem(100) As String                         '记录OPC的标签
Dim DataValue(100) As Variant                       '存放OPC的标签的值

Const ServerName = "RSLINX OPC Server" 'OPC的类型

Const NodeName = "SMZ" '结点名，即计算机名

Dim WithEvents MyOPCServer As OPCServer 'OPC服务

Dim MyOPCGroups As OPCGroups

Dim WithEvents MyOPCGroup As OPCGroup 'OPC组

Dim MyOPCItems As OPCItems 'OPC标签组

Dim ServerHandles() As Long '句柄

Dim Errors() As Long '错误句柄

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

Dim DataValue(100) As Variant '存放OPC的标签的值

在定义所有变量后，我们就要进行OPC连接了，要进行OPC连接之前，先要配置要访问的OPC标签名，我们DataItem中加入相应的标签名，注意：这两个数组必须由1开始，不能由0开始。

配置好标签后就要进行OPC连接了。

Private Sub StartClient()
Dim ItemNum As Integer                      '标签个数
Dim ClientHandles1(100) As Long             '先配置名柄索引，这将在读取OPC标签的值时可要用到
On Error GoTo HANDLEERROR
'生成OPC对象
Set MyOPCServer = New OPCServer
MyOPCServer.Connect ServerName, NodeName
Set MyOPCGroups = MyOPCServer.OPCGroups
MyOPCGroups.DefaultGroupIsActive = True
Set MyOPCGroup = MyOPCGroups.Add("MYGROUP")
Set MyOPCItems = MyOPCGroup.OPCItems

ItemNum = 5         'OPC标签个数,如果标签数量很多,可以考虑采用数据库方式
DataItem(1) = "[NEW_TOPIC]B3:1"
DataItem(2) = "[NEW_TOPIC]B3:2"
DataItem(3) = "[NEW_TOPIC]T4:3.ACC"
DataItem(4) = "[NEW_TOPIC]T4:3.EN"
DataItem(5) = "[NEW_TOPIC]T4:3.DN"

'进行OPC标签连接
'对OPC的写可以有同步与异步之分，对于大量的数据传输，异步是更佳的选择，但对少量的数据传输，同步表现得更好。
If ItemNum > 0 Then
MyOPCItems.AddItems ItemNum, DataItem, ClientHandles1, ServerHandles, Errors
MyOPCGroup.IsSubscribed = True
End If

'至此：OPC连接就成功了，我们可以对OPC进行读与写的操作了。
Timer1.Enabled = True       '连接成功后,定时交换数据
Exit Sub

HANDLEERROR:
MsgBox Err.Description
End Sub

Private Sub StartClient()

Dim ItemNum As Integer '标签个数

Dim ClientHandles1(100) As Long '先配置名柄索引，这将在读取OPC标签的值时可要用到

On Error GoTo HANDLEERROR

'生成OPC对象

Set MyOPCServer = New OPCServer

MyOPCServer.Connect ServerName, NodeName

Set MyOPCGroups = MyOPCServer.OPCGroups

MyOPCGroups.DefaultGroupIsActive = True

Set MyOPCGroup = MyOPCGroups.Add("MYGROUP")

Set MyOPCItems = MyOPCGroup.OPCItems

ItemNum = 5 'OPC标签个数,如果标签数量很多,可以考虑采用数据库方式

DataItem(1) = "[NEW_TOPIC]B3:1"

DataItem(2) = "[NEW_TOPIC]B3:2"

DataItem(3) = "[NEW_TOPIC]T4:3.ACC"

DataItem(4) = "[NEW_TOPIC]T4:3.EN"

DataItem(5) = "[NEW_TOPIC]T4:3.DN"

'进行OPC标签连接

'对OPC的写可以有同步与异步之分，对于大量的数据传输，异步是更佳的选择，但对少量的数据传输，同步表现得更好。

If ItemNum > 0 Then

MyOPCItems.AddItems ItemNum, DataItem, ClientHandles1, ServerHandles, Errors

MyOPCGroup.IsSubscribed = True

End If

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

Timer1.Enabled = True '连接成功后,定时交换数据

Exit Sub

HANDLEERROR:

MsgBox Err.Description

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

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

可以使用定时器，循环扫描运行时间，这样就有统一的刷新速率。

Private Sub Timer1_Timer() '定时读取SLC内存内的标签值 
i = 1 
For Each aaa In MyOPCItems 
aaa.Read i, DataValue(i) 
i = i + 1 
Next '根据标签的值，相应改变梯形图中各元件的状态 
Text1.Text = DataValue(3) 
If DataValue(2) = 1 Then 
Image5.Visible = True 
Image2.Visible = True 
Else 
Image5.Visible = False 
Image2.Visible = False 
End If 
If DataValue(4) = 1 Then 
Image6.Visible = True 
Else 
Image6.Visible = False 
End If
If DataValue(5) = 1 Then 
Image7.Visible = True 
Else 
Image7.Visible = False 
End If
End Sub

Private Sub Timer1_Timer() '定时读取SLC内存内的标签值

i = 1

For Each aaa In MyOPCItems

aaa.Read i, DataValue(i)

i = i + 1

Next '根据标签的值，相应改变梯形图中各元件的状态

Text1.Text = DataValue(3)

If DataValue(2) = 1 Then

Image5.Visible = True

Image2.Visible = True

Else

Image5.Visible = False

Image2.Visible = False

End If

If DataValue(4) = 1 Then

Image6.Visible = True

Else

Image6.Visible = False

End If

If DataValue(5) = 1 Then

Image7.Visible = True

Else

Image7.Visible = False

End If

End Sub

也可以使用事件功能，ONEVENT。

发表回复取消回复

此站点使用Akismet来减少垃圾评论。了解我们如何处理您的评论数据。

纪小年发表在在罗克韦尔AB官网免费下载软件(申请下载码)2024/04/24
谢谢提醒，已删 :)
jinlu zuo 发表在在罗克韦尔AB官网免费下载软件(申请下载码)2024/04/22
还有你上边文章的图片里有一个账户名没有打…
jinlu zuo 发表在在罗克韦尔AB官网免费下载软件(申请下载码)2024/04/22
这个可以的。
纪小年发表在在罗克韦尔AB官网免费下载软件(申请下载码)2024/04/17
https://commerce.roc…
jinluzuo 发表在在罗克韦尔AB官网免费下载软件(申请下载码)2024/04/15
请问是不是账号有区别我的登录进去以后没有…

vb访问RSLinx

您可能还喜欢...

发表回复取消回复

最新文章

最新评论

标签云

浏览次数

vb访问RSLinx

您可能还喜欢...

基于.NET的数据记录及报表触发控件（使用篇）

[吐血奉献]VB使用系统函数读写INI配置文件的模块

VB.NET 几种连接数据库的方式汇总

发表回复 取消回复

最新文章

最新评论

标签云

浏览次数

发表回复取消回复