OPC技术介绍七

热点追踪
“变频调速技术”、“组态软件”、“PLC ”、“现场总线”培训班，10月开班！
75
OPC 技术介绍（七）
◆ 同期数据读写
首先让我们先说明同期方式的数据访问。

Ÿ 窗体设计
让我们制作具有如图1所示窗体的OPC 应用程序。

这个程序读取８点的数据，并用棒图表示读取的数据。

棒图的更新周期为１秒，使用定时器以１秒的周期对OPC 服务器进行同期数据读取。

当文字框内按下[Enter]键时，对OPC 服务器进行同期数据写入。

我们使用的演示用OPC 服务器，OPC 项一旦被写入后就停止数据仿真，数据被固定在写入值不再变化。

图１ 窗体设计　
窗体里所使用的控件种类如表1所示。

表１ ｆｍＭａｉｎ的控件
控件
名称 窗体（Form ）
FmMain 命令按钮（CommandButton ） BtnConnect 命令按钮（CommandButton ） BtnAddItem 命令按钮（CommandButton ） BtnQuit 定时器（Timer ） TmUpdate
图象（PictureBox ） picBar （作为数组使用。

从左开始1～8） 标签（Label ） lbBar （作为数组使用。

从左开始1～8）
文字框（TextBox ）
txbBar （作为数组使用。

从左开始1～8）
Ÿ 命令按钮的事件处理
当按下在窗体上的命令按钮的事件发生时，通过调用各种方法对发生的事件进行处理。

ｂｔｎＣｏｎｎｅｃｔ命令按钮的单击事件处理　
Private Sub btnConnect_Click()
' 调用Connect 子程序
Call Connect ("OPCJ.SampleServer.1") End Sub
ｂｔｎＡｄｄＩｔｅｍ命令按钮的单击事件处理
Private Sub btnAddItem_Click()
' 调用AddItem 子程序 Call AddItem
If Not objTestGrp Is Nothing Then
If objTestGrp.OPCItems.Count > 0 Then ' 启动定时器
tmUpdate.Enabled = True End If End If End Sub
ｂｔｎＱｕｉｔ命令按钮的单击事件处理　
Private Sub btnQuit_Click() ' 卸载窗体 Unload fmMain End Sub
为了在中止应用程序时断开和OPC 服务器的连接，在窗体的Unload 事件处理中调用了断开OPC 服务器连接的子程序。

ｆｍＭａｉｎ窗体的卸载事件处理
Private Sub Form_Unload(Cancel As Integer)
' 调用Disconnect 子程序 Call Disconnect End Sub Ÿ 同期数据读取
在本示范程序中是利用定时器的定时器事件进行更新数据的显示。

这时所有的数据是采用同期方式对OPC 服务器进行读取的。

定时器的事件处理以及同期读取处理的代码如下。

ｔｍＵｐｄａｔｅ定时器的定时事件处理
Private Sub tmUpdate_Timer() Dim vtItemValues() As Variant Dim lErrors() As Long Dim strBuf As String Dim nWidth As Integer Dim nHeight As Integer Dim nDrawHeight As Integer Dim sglScale As Single Dim I As Integer
' 同期读取
SyncRead OPCCache, vtItemValues, lErrors ' 棒图的表示 For I = 1 To 8
热点追踪
9月《自动化综合技术》，欢迎投稿！
76 ' 数据的格式化
strBuf = Format(vtItemValues(I), "###.000")
' 表示数据字符串
lbBar(I).Caption = strBuf
' 计算棒的宽和高
nWidth = picBar(I).ScaleWidth
nHeight = picBar(I).ScaleHeight
sglScale = vtItemValues(I) / 100
nDrawHeight = CInt(nHeight * sglScale)
' 清除现棒图
picBar(I).Cls
' 绘制棒图
picBar(I).Line (0, nHeight -
nDrawHeight)-(nWidth, nHeight), _
RGB(255, 0, 0), BF
Next
End Sub
定时器事件处理内调用的“SyncRead”子程序如下。

在读取前为了避免错误发生，对OPC组和OPC项数进行检查。

Sub SyncRead(nSource As Integer, ByRef vtItemValues() As Variant, _
ByRef lErrors() As Long)
If objTestGrp Is Nothing Then
Exit Sub
End If
If objTestGrp.OPCItems.Count > 0 Then
' 同期读取
objTestGrp.SyncRead nSource, 8, lServerHandles, _ vtItemValues, lErrors
End If
End Sub
Ÿ同期数据写入
在本示范程序中是利用文字框的按键事件对OPC服务器进行写入的。

当某文字框内回车键按下时，则对其对应的OPC 项进行写入。

在文字框的按键事件处理中，首先先对按下的键进行判别，如果是回车键则进行同期写入。

按键事件处理以及同期写入处理的代码如下。

　
Private Sub txbBar_KeyPress(Index As Integer, KeyAscii As Integer)
Dim strData As String
Dim vtItemData(1) As Variant
Dim lError() As Long
' 是回车键?
If KeyAscii = Asc(vbCr) Then
' 得到输入的字符串
strData = txbBar(Index).Text
' 转换成单精度浮点数
vtItemData(1) = CSng(strData)
' 同期写入
SyncWrite Index, vtItemData, lError
End If
End Sub
按键事件处理内调用的“SyncWrite”子程序如下。

　
Sub SyncWrite(nIndex As Integer, ByRef vtItemValues() As Variant, _
ByRef lErrors() As Long)
Dim lHandle(1) As Long
If objTestGrp Is Nothing Then
Exit Sub
End If
If objTestGrp.OPCItems.Count > 0 Then
lHandle(1) = lServerHandles(nIndex)
' 同期写入
objTestGrp.SyncWrite 1, lHandle(), _
vtItemValues, lErrors
End If
End Sub
Ÿ运行结果
本节中只记述了有关同期方式的读取和写入部分的源代码。

本示范程序的OPC连接处理和OPC项添加处理，只对应既定的OPC服务器和既定的OPC项。

在制作实际的OPC应用程序时，往往需要建立另外的视窗让用户可以选择OPC服务器与OPC项。

再有，对于动作几乎相同的图象，标签以及文字框是作为控件数组处理的，为了使记述更为简单。

实际的运行结果如图2所示。

图2 运行结果。