OPC客户程序(VB篇——同步)
发布时间:2018-09-26 编辑:jiaochengji.com
教程集为您提供OPC客户程序(VB篇——同步)等资源,欢迎您收藏本站,我们将为您提供最新的OPC客户程序(VB篇——同步)资源
引用如下:
代码如下:
Option Explicit
Dim WithEvents ServerObj As OPCServer
Dim WithEvents GroupObj As OPCGroup
Dim ItemObj As OPCItem
Private Sub Command_Start_Click()
Dim OutText As String
On Error GoTo ErrorHandler
Command_Start.Enabled = False
Command_Read.Enabled = True
Command_Write.Enabled = True
Command_Exit.Enabled = True
OutText = "连接OPC服务器"
Set ServerObj = New OPCServer
ServerObj.Connect ("XXXSERVER")'XXXSERVER为某OPC服务器名称
OutText = "添加组"
Set GroupObj = ServerObj.OPCGroups.Add("Group")
OutText = "Adding an Item to the group"
Set ItemObj = GroupObj.OPCItems.AddItem("XXXITEM", 1)'XXXITEM为添加的ITEM名称
Exit Sub
ErrorHandler: '如果出现异常,则报出错误。
MsgBox Err.Description Chr(13) _
OutText, vbCritical, "ERROR"
End Sub
Private Sub Command_Read_Click()'同步读
Dim OutText As String
Dim myValue As Variant
Dim myQuality As Variant
Dim myTimeStamp As Variant
On Error GoTo ErrorHandler
OutText = "读ITEM值"
ItemObj.Read OPCDevice, myValue, myQuality, myTimeStamp
Edit_ReadVal = myValue
Edit_ReadQu = GetQualityText(myQuality)
Edit_ReadTS = myTimeStamp
Exit Sub
您可能感兴趣的文章:
OPC客户程序(VB篇——同步)
如何编写高质量的VB代码(1)
人文的ASP开发基础入门之简介
ASP 3.0高级编程(六)
ASP教程之ASP基础简介
小结SQL Server连接失败错误及解决
如何实现VB和VC的联合调试
Global.asa文件的使用及Chat程序
ASP 与ASP有什么不同
一款经典的CSS滑动门下拉菜单效果
[关闭]