新浪博客

OPC客户端的自动化实现

2010-01-13 21:26阅读：

http://blog.sina.cn/dpool/blog/u/1880141032

引用网址：http://www.cnblogs.com/Phoenix-Rock/archive/2007/11/07/541696.html
OPC是建立在COM，DCOM的基础商的，因此绝大多数语言都可以很好的进行开发。在Net中开发客户端有以下几种方式：
（1） 使用OPCNetAPI，需要用到OPCNetAPI.dll，OPCNetAPI.Com.dll
（2） 使用自动化接口，需要用到OPCDAAuto.dll
（3） 使用自定义接口，需要用到多个Wrapper：OpcRcw.Ae.dll，OpcRcw.Batch.dll，OpcRcw.Comn.dll，OpcRcw.Da.dll，OpcRcw.Dx.dll，OpcRcw.Hda.dll，OpcRcw.Sec.dll
以上开发方式所需的动态链接库可以从OPC基金会（http://www.opcfoundation.org/）的网站上下载，一些下载项目可能需要注册，或成为基金会的成员。
不同的方式有各自的有缺点，请参见…
本文使用自动化接口，VB.Net语言进行开发，开发项目是无线射频（RFID）卡方面的应用，典型的如公交车，或公司考勤使用的刷卡机。需要注意的是自动化接口存在一个“不是问题”的问题，数组下标是以1开始的，而不是传统计算机开发上的以0开始。不知道设计者头脑是怎么想（有人知道吗？）；这可能会给一些语言的开发造成问题（有人碰到吗，没有你就是幸运的）
需求：OPCDAAuto.dll或该D
ll的Interop
(一) ：客户端开发流程
OPC客户端的开发主要遵循下图所示的开发流程，下面就从以下几个开发步骤进行说明

(二) ：枚举OPC服务器列表
枚举服务器主要是通过OPCServer接口的GetOPCServers方法来实现的，该方法会返回OPC服务器数组（以1为下界，上面已有说明），以下是代码段
'枚举OPC服务器列表
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Try
GlobalOPCServer = New OPCAutomation.OPCServerClass()
Dim ServerList As Object = GlobalOPCServer.GetOPCServers
For index As Short = LBound(ServerList) To UBound(ServerList) '加入控件列表中，注意这里使用LBound和UBound
cbbServerList.Items.Add(ServerList(index))
Next
If cbbServerList.Items.Count > 0 Then
cbbServerList.SelectedIndex = 0
End If
ResetControlStatus() '设置控件状态
GlobalOPCServer = Nothing
Catch Ex As Exception
MessageBox.Show('List OPC servers failed: ' + Ex.Message, 'OPCSample', MessageBoxButtons.OK)
End Try
End Sub
(三) ：连接OPC服务器
自动化接口中连接到服务器是使用connect方法
Public Overridable Sub Connect(ByVal ProgID As String, Optional ByVal Node As Object = Nothing)
ProgID指服务器的ProgID，Node代表网络节点，如果是本机则放空即可。
连接到服务器后，以下属性需要特别注意：
OPCServer.StartTime：服务器的启动时间
OPCServer.CurrentTime：服务器的当前时间，各个客户端可以通过这个属性值完成一些同步的操作
OPCGroups.DefaultGroupIsActive：以后添加的Group是否默认激活
OPCGroups.DefaultGroupDeadBand：Group的默认死区，变化量超过死区后将会触发DataChange事件，
合理的设置该值可以提高程序性能
OPCGroups.Count：下属组（Group）的数量
OPCGroups.DefaultGroupLocalID：组（Group）的默认通信区域编号，如1024
OPCGroups.DefaultGroupUpdateRate：组（Group）的默认刷新率，该属性也比较重要
OPCGroups.DefaultGroupTimeBias：组（Group）的默认时间偏差
(四) ：添加组（Group）和项 （Item）
添加组和项需要用到Groups.Add和Items.AddItem方法，以下是原型：
Function Add(Optional ByVal Name As Object = Nothing) As OPCAutomation.OPCGroup
Function AddItem(ByVal ItemID As String, ByVal ClientHandle As Integer) As OPCAutomation.OPCItem
组也有两个重要的属性
Group.UpdateRate：刷新率，该属性通Groups的UpdateRate意义一样，如果这个值有设置，则以这个值为准
Group. IsSubscribed：是否使用订阅功能
以下是代码段
'连接到指定的OPC服务器
Private Sub btnConnectServer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnConnectServer.Click
If cbbServerList.Text <> '' Then
ConnectedOPCServer = New OPCAutomation.OPCServerClass()
Try
ConnectedOPCServer.Connect(cbbServerList.Text)
'设置组集合的默认属性
ConnectedOPCServer.OPCGroups.DefaultGroupIsActive = True
ConnectedOPCServer.OPCGroups.DefaultGroupDeadband = 0
'添加组
ConnectedGroup = ConnectedOPCServer.OPCGroups.Add()
ConnectedGroup.UpdateRate = 3 * 1000 '刷新虑，用于下面的DataChange事件
ConnectedGroup.IsSubscribed = True '使用订阅功能
'添加项
GlobalOPCItems(0) = ConnectedGroup.OPCItems.AddItem('Reader_Device.OpenCard', 0)
GlobalOPCItems(1) = ConnectedGroup.OPCItems.AddItem('Reader_Device.CloseCard', 1)
GlobalOPCItems(2) = ConnectedGroup.OPCItems.AddItem('Reader_Device.CardNO', 2)
RefreshServerStatus() '刷新服务器状态
Catch ex As Exception
ConnectedOPCServer = Nothing
MessageBox.Show('OPC server connect failed : ' + ex.Message, 'OPCSample', MessageBoxButtons.OK)
End Try
ResetControlStatus()
End If
End Sub
(五) ：读写操作与事件控制
读写操作包括同步和异步两种操作方式，以下是这几个方法的原型：
Group的同步读事件
Sub SyncRead(ByVal Source As Short, ByVal NumItems As Integer, ByRef ServerHandles As System.Array, ByRef Values As System.Array, ByRef Errors As System.Array, Optional ByRef Qualities As Object = Nothing, Optional ByRef TimeStamps As Object = Nothing)
Group的同步写事件
Sub SyncWrite(ByVal NumItems As Integer, ByRef ServerHandles As System.Array, ByRef Values As System.Array, ByRef Errors As System.Array)
Group的异步读事件
Sub AsyncRead(ByVal NumItems As Integer, ByRef ServerHandles As System.Array, ByRef Errors As System.Array, ByVal TransactionID As Integer, ByRef CancelID As Integer)
Group的异步写事件
Sub AsyncWrite(ByVal NumItems As Integer, ByRef ServerHandles As System.Array, ByRef Values As System.Array, ByRef Errors As System.Array, ByVal TransactionID As Integer, ByRef CancelID As Integer)
如果使用异步的读写操作，那么还需要实现Group中的ReadComplete和WriteComplete两个事件
Public Event AsyncReadComplete(ByVal TransactionID As Integer, ByVal NumItems As Integer, ByRef ClientHandles As System.Array, ByRef ItemValues As System.Array, ByRef Qualities As System.Array, ByRef TimeStamps As System.Array, ByRef Errors As System.Array)
Public Event AsyncWriteComplete(ByVal TransactionID As Integer, ByVal NumItems As Integer, ByRef ClientHandles As System.Array, ByRef Errors As System.Array)
其他相关的重要事件包括：
Group数据变化时的通知事件
Public Event DataChange(ByVal TransactionID As Integer, ByVal NumItems As Integer, ByRef ClientHandles As System.Array, ByRef ItemValues As System.Array, ByRef Qualities As System.Array, ByRef TimeStamps As System.Array)
Group的异步取消事件
Public Event AsyncCancelComplete(ByVal CancelID As Integer)
Server（服务器）关闭通知事件
Public Event ServerShutDown(ByVal Reason As String)
以下是这些实现的代码段
'读取卡片指定的块号的值
Private Sub btnReadCard_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
If Not (ConnectedGroup Is Nothing) Then
Try
'获取块号
Dim BlockNo As Short = CByte(ReadBlockNo.Text)
'如果要获取数据的块所对应的项还没有创建，就创建它
If GlobalOPCBlockItems(BlockNo) Is Nothing Then
GlobalOPCBlockItems(BlockNo) = ConnectedGroup.OPCItems.AddItem('Reader_Device.Block' & CStr(BlockNo), 200 + BlockNo)
End If
'准备参数数组
Dim ServerResults As System.Array
Dim ServerErrors As System.Array
Dim ServerHandles(1) As Integer
ServerHandles(1) = GlobalOPCBlockItems(BlockNo).ServerHandle
'读取值
ConnectedGroup.SyncRead(OPCAutomation.OPCDataSource.OPCDevice, 1, ServerHandles, ServerResults, ServerErrors)
If ServerErrors(1) <> 0 Then
MsgBox('Read Card Failed:' & ServerErrors(1))
Else
txtReadBlockNo.Text = ServerResults(1)
End If
Catch ex As Exception
MessageBox.Show('OPC server Read Card failed: ' + ex.Message, 'OPCSample', MessageBoxButtons.OK)
End Try
End If
End Sub
'写卡片指定块的值
Private Sub btnWriteCard_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
If Not (ConnectedGroup Is Nothing) Then
Try
'获取块号
Dim BlockNo As Short = CByte(WriteBlockNo.Text)
'如果要写入数据的块所对应的项还没有创建，就创建它
If GlobalOPCBlockItems(BlockNo) Is Nothing Then
GlobalOPCBlockItems(BlockNo) = ConnectedGroup.OPCItems.AddItem('Reader_Device.Block' & CStr(BlockNo), 200 + BlockNo)
End If
'准备参数数组
Dim ServerValues(1) As Object
Dim ServerErrors As Array
Dim ServerHandles(1) As Integer
ServerHandles(1) = GlobalOPCBlockItems(BlockNo).ServerHandle
ServerValues(1) = txtWriteBlockNo.Text
'写入值
ConnectedGroup.SyncWrite(1, ServerHandles, ServerValues, ServerErrors)
If ServerErrors(1) <> 0 Then
MsgBox('Write Card Failed:' & ServerErrors(1))
Else
MsgBox('Write Card Succeed')
End If
Catch ex As Exception
MessageBox.Show('OPC server Write Card failed: ' + ex.Message, 'OPCSample', MessageBoxButtons.OK)
End Try
End If
End Sub
(六) ：断开服务器
断开服务器只要使用OPCServer的Disconnect方法几个，以下是代码段：
'断开到指定OPC服务器的连接
Private Sub btnDisconnectServer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDisconnectServer.Click
If Not (ConnectedOPCServer Is Nothing) Then
Try
ConnectedOPCServer.Disconnect()
Catch ex As Exception
MessageBox.Show('OPC server disconnect failed: ' + ex.Message, 'OPCSample', MessageBoxButtons.OK)
Finally
ConnectedOPCServer = Nothing
ResetControlStatus()
End Try
End If
End Sub
(七) ：相关链接
非常好的一个OPC技术网站http://www.opcconnect.com/
OPC基金会网址http://www.opcfoundation.org/
国内的一个比较好的OPC网站http://www.opc-china.com/Index.html
(八)：全部源码
1 OPC客户端的自动化实现Imports System.Runtime.InteropServices
2 OPC客户端的自动化实现 OPC客户端的自动化实现Public Class Form1Class Form1
3 OPC客户端的自动化实现
4 OPC客户端的自动化实现 Dim GlobalOPCServer As OPCAutomation.OPCServerClass
5 OPC客户端的自动化实现 Dim WithEvents ConnectedOPCServer As OPCAutomation.OPCServerClass
6 OPC客户端的自动化实现 Dim WithEvents ConnectedGroup As OPCAutomation.OPCGroupClass
7 OPC客户端的自动化实现
8 OPC客户端的自动化实现 Dim GlobalOPCItems(4) As OPCAutomation.OPCItem
9 OPC客户端的自动化实现 Dim GlobalOPCBlockItems(64) As OPCAutomation.OPCItem
10 OPC客户端的自动化实现
11 OPC客户端的自动化实现
12 OPC客户端的自动化实现 '枚举OPC服务器列表
13 OPC客户端的自动化实现 OPC客户端的自动化实现 Private Sub Form1_Load()Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
14 OPC客户端的自动化实现 Try
15 OPC客户端的自动化实现 GlobalOPCServer = New OPCAutomation.OPCServerClass()
16 OPC客户端的自动化实现 Dim ServerList As Object = GlobalOPCServer.GetOPCServers
17 OPC客户端的自动化实现 For index As Short = LBound(ServerList) To UBound(ServerList) '加入控件列表中，注意这里使用LBound和UBound
18 OPC客户端的自动化实现 cbbServerList.Items.Add(ServerList(index))
19 OPC客户端的自动化实现 Next
20 OPC客户端的自动化实现 If cbbServerList.Items.Count > 0 Then
21 OPC客户端的自动化实现 cbbServerList.SelectedIndex = 0
22 OPC客户端的自动化实现 End If
23 OPC客户端的自动化实现 ResetControlStatus() '设置控件状态
24 OPC客户端的自动化实现 GlobalOPCServer = Nothing
25 OPC客户端的自动化实现 Catch Ex As Exception
26 OPC客户端的自动化实现 MessageBox.Show('List OPC servers failed: ' + Ex.Message, 'OPCSample', MessageBoxButtons.OK)
27 OPC客户端的自动化实现 End Try
28 OPC客户端的自动化实现 End Sub
29 OPC客户端的自动化实现
30 OPC客户端的自动化实现 '连接到指定的OPC服务器
31 OPC客户端的自动化实现 OPC客户端的自动化实现 Private Sub btnConnectServer_Click()Sub btnConnectServer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnConnectServer.Click
32 OPC客户端的自动化实现 If cbbServerList.Text <> '' Then
33 OPC客户端的自动化实现 ConnectedOPCServer = New OPCAutomation.OPCServerClass()
34 OPC客户端的自动化实现 Try
35 OPC客户端的自动化实现 ConnectedOPCServer.Connect(cbbServerList.Text)
36 OPC客户端的自动化实现 '设置组集合的默认属性
37 OPC客户端的自动化实现 ConnectedOPCServer.OPCGroups.DefaultGroupIsActive = True
38 OPC客户端的自动化实现 ConnectedOPCServer.OPCGroups.DefaultGroupDeadband = 0
39 OPC客户端的自动化实现 '添加组
40 OPC客户端的自动化实现 ConnectedGroup = ConnectedOPCServer.OPCGroups.Add()
41 OPC客户端的自动化实现 ConnectedGroup.UpdateRate = 3 * 1000 '刷新虑，用于下面的DataChange事件
42 OPC客户端的自动化实现 ConnectedGroup.IsSubscribed = True '使用订阅功能
43 OPC客户端的自动化实现 '添加项
44 OPC客户端的自动化实现 GlobalOPCItems(0) = ConnectedGroup.OPCItems.AddItem('Reader_Device.OpenCard', 0)
45 OPC客户端的自动化实现 GlobalOPCItems(1) = ConnectedGroup.OPCItems.AddItem('Reader_Device.CloseCard', 1)
46 OPC客户端的自动化实现 GlobalOPCItems(2) = ConnectedGroup.OPCItems.AddItem('Reader_Device.CardNO', 2)
47 OPC客户端的自动化实现 RefreshServerStatus() '刷新服务器状态
48 OPC客户端的自动化实现 Catch ex As Exception
49 OPC客户端的自动化实现 ConnectedOPCServer = Nothing
50 OPC客户端的自动化实现 MessageBox.Show('OPC server connect failed : ' + ex.Message, 'OPCSample', MessageBoxButtons.OK)
51 OPC客户端的自动化实现 End Try
52 OPC客户端的自动化实现 ResetControlStatus()
53 OPC客户端的自动化实现 End If
54 OPC客户端的自动化实现 End Sub
55 OPC客户端的自动化实现
56 OPC客户端的自动化实现 '服务器断开事件通知
57 OPC客户端的自动化实现 OPC客户端的自动化实现 Private Sub OnServerShutDown()Sub OnServerShutDown(ByVal Reason As String) Handles ConnectedOPCServer.ServerShutDown
58 OPC客户端的自动化实现 btnDisconnectServer_Click(Nothing, New EventArgs())
59 OPC客户端的自动化实现 End Sub
60 OPC客户端的自动化实现
61 OPC客户端的自动化实现 OPC客户端的自动化实现 Private Sub OnGroupDataChange()Sub OnGroupDataChange(ByVal TransactionID As Integer, ByVal NumItems As Integer, ByRef ClientHandles As System.Array, ByRef ItemValues As System.Array, ByRef Qualities As System.Array, ByRef TimeStamps As System.Array) Handles ConnectedGroup.DataChange
62 OPC客户端的自动化实现 For i As Integer = 1 To NumItems
63 OPC客户端的自动化实现 If Qualities(i) = OPCAutomation.OPCQuality.OPCQualityGood Then
64 OPC客户端的自动化实现 Select Case ClientHandles(i)
65 OPC客户端的自动化实现 Case 2
66 OPC客户端的自动化实现 txtCardNo.Text = CStr(ItemValues(i))
67 OPC客户端的自动化实现 Case 200 '测试7张卡片
68 OPC客户端的自动化实现 txtValueBlock0.Text = CStr(ItemValues(i))
69 OPC客户端的自动化实现 Case 201
70 OPC客户端的自动化实现 txtValueBlock1.Text = CStr(ItemValues(i))
71 OPC客户端的自动化实现 Case 202
72 OPC客户端的自动化实现 txtValueBlock2.Text = CStr(ItemValues(i))
73 OPC客户端的自动化实现 Case 203
74 OPC客户端的自动化实现 txtValueBlock3.Text = CStr(ItemValues(i))
75 OPC客户端的自动化实现 Case 204
76 OPC客户端的自动化实现 txtValueBlock4.Text = CStr(ItemValues(i))
77 OPC客户端的自动化实现 Case 205
78 OPC客户端的自动化实现 txtValueBlock5.Text = CStr(ItemValues(i))
79 OPC客户端的自动化实现 Case 206
80 OPC客户端的自动化实现 txtValueBlock6.Text = CStr(ItemValues(i))
81 OPC客户端的自动化实现 Case 207
82 OPC客户端的自动化实现 txtValueBlock7.Text = CStr(ItemValues(i))
83 OPC客户端的自动化实现 Case Else
84 OPC客户端的自动化实现
85 OPC客户端的自动化实现 End Select
86 OPC客户端的自动化实现
87 OPC客户端的自动化实现 End If
88 OPC客户端的自动化实现 Next
89 OPC客户端的自动化实现 End Sub
90 OPC客户端的自动化实现
91 OPC客户端的自动化实现
92 OPC客户端的自动化实现 '断开到指定OPC服务器的连接
93 OPC客户端的自动化实现 OPC客户端的自动化实现 Private Sub btnDisconnectServer_Click()Sub btnDisconnectServer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDisconnectServer.Click
94 OPC客户端的自动化实现 If Not (ConnectedOPCServer Is Nothing) Then
95 OPC客户端的自动化实现 Try
96 OPC客户端的自动化实现 ConnectedOPCServer.Disconnect()
97 OPC客户端的自动化实现 Catch ex As Exception
98 OPC客户端的自动化实现 MessageBox.Show('OPC server disconnect failed: ' + ex.Message, 'OPCSample', MessageBoxButtons.OK)
99 OPC客户端的自动化实现 Finally
100 OPC客户端的自动化实现 ConnectedOPCServer = Nothing
101 OPC客户端的自动化实现 ResetControlStatus()
102 OPC客户端的自动化实现 End Try
103 OPC客户端的自动化实现 End If
104 OPC客户端的自动化实现 End Sub
105 OPC客户端的自动化实现
106 OPC客户端的自动化实现 '开卡，并返回卡号
107 OPC客户端的自动化实现 OPC客户端的自动化实现 Private Sub btnOpenCard_Click()Sub btnOpenCard_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
108 OPC客户端的自动化实现 If ConnectedGroup IsNot Nothing Then
109 OPC客户端的自动化实现 Try
110 OPC客户端的自动化实现 '准备参数数组
111 OPC客户端的自动化实现 Dim ServerHandles(1) As Integer
112 OPC客户端的自动化实现 Dim ServerValues(1) As Object
113 OPC客户端的自动化实现 Dim ServerErrors As System.Array
114 OPC客户端的自动化实现 ServerHandles(1) = GlobalOPCItems(0).ServerHandle
115 OPC客户端的自动化实现 ServerValues(1) = 1
116 OPC客户端的自动化实现 '写入值，用于执行OpenCard的操作
117 OPC客户端的自动化实现 ConnectedGroup.SyncWrite(1, ServerHandles, ServerValues, ServerErrors)
118 OPC客户端的自动化实现 If ServerErrors(1) <> 0 Then
119 OPC客户端的自动化实现 MsgBox('OpenCardError: ' & ServerErrors(1))
120 OPC客户端的自动化实现 End If
121 OPC客户端的自动化实现
122 OPC客户端的自动化实现 ServerHandles(1) = GlobalOPCItems(2).ServerHandle
123 OPC客户端的自动化实现 Dim ServerResult As System.Array
124 OPC客户端的自动化实现 '读取卡号
125 OPC客户端的自动化实现 ConnectedGroup.SyncRead(OPCAutomation.OPCDataSource.OPCDevice, 1, ServerHandles, ServerResult, ServerErrors)
126 OPC客户端的自动化实现 If ServerErrors(1) <> 0 Then
127 OPC客户端的自动化实现 MsgBox('ReadCardNoError: ' & ServerErrors(1))
128 OPC客户端的自动化实现 Else
129 OPC客户端的自动化实现 txtCardNo.Text = ServerResult(1)
130 OPC客户端的自动化实现 End If
131 OPC客户端的自动化实现 Catch ex As Exception
132 OPC客户端的自动化实现 MessageBox.Show('OPC server Open Card failed: ' + ex.Message, 'OPCSample', MessageBoxButtons.OK)
133 OPC客户端的自动化实现 End Try
134 OPC客户端的自动化实现 ResetControlStatus()
135 OPC客户端的自动化实现 End If
136 OPC客户端的自动化实现 End Sub
137 OPC客户端的自动化实现
138 OPC客户端的自动化实现 '读取卡片指定的块号的值
139 OPC客户端的自动化实现 OPC客户端的自动化实现 Private Sub btnReadCard_Click()Sub btnReadCard_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
140 OPC客户端的自动化实现 If Not (ConnectedGroup Is Nothing) Then
141 OPC客户端的自动化实现 Try
142 OPC客户端的自动化实现 '获取块号
143 OPC客户端的自动化实现 Dim BlockNo As Short = CByte(ReadBlockNo.Text)
144 OPC客户端的自动化实现 '如果要获取数据的块所对应的项还没有创建，就创建它
145 OPC客户端的自动化实现 If GlobalOPCBlockItems(BlockNo) Is Nothing Then
146 OPC客户端的自动化实现 GlobalOPCBlockItems(BlockNo) = ConnectedGroup.OPCItems.AddItem('Reader_Device.Block' & CStr(BlockNo), 200 + BlockNo)
147 OPC客户端的自动化实现 End If
148 OPC客户端的自动化实现 '准备参数数组
149 OPC客户端的自动化实现 Dim ServerResults As System.Array
150 OPC客户端的自动化实现 Dim ServerErrors As System.Array
151 OPC客户端的自动化实现 Dim ServerHandles(1) As Integer
152 OPC客户端的自动化实现 ServerHandles(1) = GlobalOPCBlockItems(BlockNo).ServerHandle
153 OPC客户端的自动化实现 '读取值
154 OPC客户端的自动化实现 ConnectedGroup.SyncRead(OPCAutomation.OPCDataSource.OPCDevice, 1, ServerHandles, ServerResults, ServerErrors)
155 OPC客户端的自动化实现 If ServerErrors(1) <> 0 Then
156 OPC客户端的自动化实现 MsgBox('Read Card Failed:' & ServerErrors(1))
157 OPC客户端的自动化实现 Else
158 OPC客户端的自动化实现 txtReadBlockNo.Text = ServerResults(1)
159 OPC客户端的自动化实现 End If
160 OPC客户端的自动化实现 Catch ex As Exception
161 OPC客户端的自动化实现 MessageBox.Show('OPC server Read Card failed: ' + ex.Message, 'OPCSample', MessageBoxButtons.OK)
162 OPC客户端的自动化实现 End Try
163 OPC客户端的自动化实现 End If
164 OPC客户端的自动化实现 End Sub
165 OPC客户端的自动化实现
166 OPC客户端的自动化实现 '写卡片指定块的值
167 OPC客户端的自动化实现 OPC客户端的自动化实现 Private Sub btnWriteCard_Click()Sub btnWriteCard_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
168 OPC客户端的自动化实现 If Not (ConnectedGroup Is Nothing) Then
169 OPC客户端的自动化实现 Try
170 OPC客户端的自动化实现 '获取块号
171 OPC客户端的自动化实现 Dim BlockNo As Short = CByte(WriteBlockNo.Text)
172 OPC客户端的自动化实现 '如果要写入数据的块所对应的项还没有创建，就创建它
173 OPC客户端的自动化实现 If GlobalOPCBlockItems(BlockNo) Is Nothing Then
174 OPC客户端的自动化实现 GlobalOPCBlockItems(BlockNo) = ConnectedGroup.OPCItems.AddItem('Reader_Device.Block' & CStr(BlockNo), 200 + BlockNo)
175 OPC客户端的自动化实现 End If
176 OPC客户端的自动化实现 '准备参数数组
177 OPC客户端的自动化实现 Dim ServerValues(1) As Object
178 OPC客户端的自动化实现 Dim ServerErrors As Array
179 OPC客户端的自动化实现 Dim ServerHandles(1) As Integer
180 OPC客户端的自动化实现 ServerHandles(1) = GlobalOPCBlockItems(BlockNo).ServerHandle
181 OPC客户端的自动化实现 ServerValues(1) = txtWriteBlockNo.Text
182 OPC客户端的自动化实现 '写入值
183 OPC客户端的自动化实现 ConnectedGroup.SyncWrite(1, ServerHandles, ServerValues, ServerErrors)
184 OPC客户端的自动化实现 If ServerErrors(1) <> 0 Then
185 OPC客户端的自动化实现 MsgBox('Write Card Failed:' & ServerErrors(1))
186 OPC客户端的自动化实现 Else
187 OPC客户端的自动化实现 MsgBox('Write Card Succeed')
188 OPC客户端的自动化实现 End If
189 OPC客户端的自动化实现 Catch ex As Exception
190 OPC客户端的自动化实现 MessageBox.Show('OPC server Write Card failed: ' + ex.Message, 'OPCSample', MessageBoxButtons.OK)
191 OPC客户端的自动化实现 End Try
192 OPC客户端的自动化实现 End If
193 OPC客户端的自动化实现 End Sub
194 OPC客户端的自动化实现
195 OPC客户端的自动化实现 '重设控件状态
196 OPC客户端的自动化实现 OPC客户端的自动化实现 Private Sub ResetControlStatus()Sub ResetControlStatus()
197 OPC客户端的自动化实现 If ConnectedOPCServer Is Nothing Then
198 OPC客户端的自动化实现 btnConnectServer.Enabled = True
199 OPC客户端的自动化实现 btnDisconnectServer.Enabled = False
200 OPC客户端的自动化实现 btnReadCard.Enabled = False
201 OPC客户端的自动化实现 btnWriteCard.Enabled = False
202 OPC客户端的自动化实现 btnOpenCard.Enabled = False
203 OPC客户端的自动化实现 btnCloseCard.Enabled = False
204 OPC客户端的自动化实现 ReadBlockNo.Value = 0
205 OPC客户端的自动化实现 WriteBlockNo.Value = 0
206 OPC客户端的自动化实现 txtReadBlockNo.Text = ''
207 OPC客户端的自动化实现 txtWriteBlockNo.Text = '00000000000000000000000000000000'
208 OPC客户端的自动化实现 txtCardNo.Text = ''
209 OPC客户端的自动化实现
210 OPC客户端的自动化实现 txtSrvStartTime.Text = ''
211 OPC客户端的自动化实现 txtSrvCurrTime.Text = ''
212 OPC客户端的自动化实现 txtSrvGroupCount.Text = ''
213 OPC客户端的自动化实现 txtSrvGroupDeadBand.Text = ''
214 OPC客户端的自动化实现 txtSrvGroupDefActive.Text = ''
215 OPC客户端的自动化实现 txtSrvGroupLocalID.Text = ''
216 OPC客户端的自动化实现 txtSrvGroupTimeBias.Text = ''
217 OPC客户端的自动化实现 txtSrvRequestRate.Text = ''
218 OPC客户端的自动化实现 Else
219 OPC客户端的自动化实现 btnConnectServer.Enabled = False
220 OPC客户端的自动化实现 btnDisconnectServer.Enabled = True
221 OPC客户端的自动化实现 If txtCardNo.Text = '' Then
222 OPC客户端的自动化实现 btnReadCard.Enabled = False
223 OPC客户端的自动化实现 btnWriteCard.Enabled = False
224 OPC客户端的自动化实现 btnOpenCard.Enabled = True
225 OPC客户端的自动化实现 btnCloseCard.Enabled = False
226 OPC客户端的自动化实现 Else
227 OPC客户端的自动化实现 btnReadCard.Enabled = True
228 OPC客户端的自动化实现 btnWriteCard.Enabled = True
229 OPC客户端的自动化实现 btnOpenCard.Enabled = True
230 OPC客户端的自动化实现 btnCloseCard.Enabled = True
231 OPC客户端的自动化实现 End If
232 OPC客户端的自动化实现 End If
233 OPC客户端的自动化实现 End Sub
234 OPC客户端的自动化实现
235 OPC客户端的自动化实现 '刷新服务器状态属性信息
236 OPC客户端的自动化实现 OPC客户端的自动化实现 Private Sub RefreshServerStatus()Sub RefreshServerStatus()
237 OPC客户端的自动化实现 If ConnectedOPCServer IsNot Nothing Then
238 OPC客户端的自动化实现 txtSrvStartTime.Text = ConnectedOPCServer.StartTime.ToString()
239 OPC客户端的自动化实现 txtSrvCurrTime.Text = ConnectedOPCServer.CurrentTime.ToString()
240 OPC客户端的自动化实现 With ConnectedOPCServer.OPCGroups
241 OPC客户端的自动化实现 txtSrvGroupCount.Text = CStr(.Count)
242 OPC客户端的自动化实现 txtSrvGroupDeadBand.Text = CStr(.DefaultGroupDeadband)
243 OPC客户端的自动化实现 If .DefaultGroupIsActive Then
244 OPC客户端的自动化实现 txtSrvGroupDefActive.Text = 'True'
245 OPC客户端的自动化实现 Else
246 OPC客户端的自动化实现 txtSrvGroupDefActive.Text = 'False'
247 OPC客户端的自动化实现 End If
248 OPC客户端的自动化实现 txtSrvGroupLocalID.Text = CStr(.DefaultGroupLocaleID)
249 OPC客户端的自动化实现 txtSrvGroupTimeBias.Text = CStr(.DefaultGroupTimeBias)
250 OPC客户端的自动化实现 txtSrvRequestRate.Text = CStr(.DefaultGroupUpdateRate)
251 OPC客户端的自动化实现 End With
252 OPC客户端的自动化实现 End If
253 OPC客户端的自动化实现 End Sub
254 OPC客户端的自动化实现
255 OPC客户端的自动化实现 '关闭卡片
256 OPC客户端的自动化实现 OPC客户端的自动化实现 Private Sub btnCloseCard_Click()Sub btnCloseCard_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
257 OPC客户端的自动化实现 If ConnectedGroup IsNot Nothing Then
258 OPC客户端的自动化实现 Try
259 OPC客户端的自动化实现 Dim ServerHandles(1) As Integer
260 OPC客户端的自动化实现 Dim ServerValues(1) As Object
261 OPC客户端的自动化实现 Dim ServerErrors As System.Array
262 OPC客户端的自动化实现 ServerHandles(1) = GlobalOPCItems(1).ServerHandle
263 OPC客户端的自动化实现 ServerValues(1) = 1
264 OPC客户端的自动化实现 ConnectedGroup.SyncWrite(1, ServerHandles, ServerValues, ServerErrors)
265 OPC客户端的自动化实现 If ServerErrors(1) <> 0 Then
266 OPC客户端的自动化实现 MsgBox('Close Card Error: ' & ServerErrors(1))
267 OPC客户端的自动化实现 End If
268 OPC客户端的自动化实现 Catch ex As Exception
269 OPC客户端的自动化实现 MessageBox.Show('OPC server Close Card failed: ' + ex.Message, 'OPCSample', MessageBoxButtons.OK)
270 OPC客户端的自动化实现 End Try
271 OPC客户端的自动化实现 End If
272 OPC客户端的自动化实现 End Sub
273 OPC客户端的自动化实现End Class
274 OPC客户端的自动化实现

我的更多文章

下载客户端阅读体验更佳

APP专享