module1.bas

WinCC 污水处理系统源程序.里面包含了许多VB6制作的功能组件.很有参考意义.

Attribute VB_Name = "Module1"
Dim MyOpcServer As OPCServer
Dim MyOpcGroups As OPCGroups
Dim MyOpcGroup As OPCGroup
Dim MyOpcItems As OPCItems
Dim ClientHandles(1 To 2) As Long
Dim MyOpcItemIDs(1 To 2) As String
Dim ServerHandles() As Long
Dim Errors() As Long


Sub main()

Set MyOpcServer = New OPCServer
MyOpcServer.Connect "OPCServer.WinCC"

Set MyOpcGroups = MyOpcServer.OPCGroups
Set MyOpcGroup = MyOpcGroups.Add(1)

MyOpcItemIDs(1) = "TrendBeginTime"
MyOpcItemIDs(2) = "TrendEndTime"

ClientHandles(1) = 1
ClientHandles(2) = 2

Set MyOpcItems = MyOpcGroup.OPCItems
MyOpcItems.AddItems 2, MyOpcItemIDs, ClientHandles, ServerHandles, Errors

Dim recVal() As Variant

MyOpcGroup.SyncRead OPCCache, 2, ServerHandles, recVal, Errors

Dim str1 As String
Dim str2 As String

str1 = recVal(1)
str2 = recVal(2)

Dim strLen As Integer

strLen = InStr(1, str1, ":")
str1 = Mid(str1, 1, strLen + 3)
str1 = str1 & "00"

strLen = InStr(1, str2, ":")
str2 = Mid(str2, 1, strLen + 3)
str2 = str2 & "00"

Dim sendVal(1 To 2) As Variant

sendVal(1) = str1
sendVal(2) = str2

MyOpcGroup.SyncWrite 2, ServerHandles, sendVal, Errors

MyOpcServer.Disconnect

End Sub