citem.cls

opc的使用软件

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "CItem"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Attribute VB_Ext_KEY = "SavedWithClassBuilder6" ,"Yes"
Attribute VB_Ext_KEY = "Top_Level" ,"Yes"

Private mvarItemName As String
Private mvarItemHandle As Long
Private mvarItemValue As Variant
Private mvarItemQuality As Integer
'Private mvarItemConnected As Boolean
Private mvarItemTimeStamp As Date

Public Sub WriteDevice(Value As Variant)
    'write control data to device
    'we just do some simple work
    mvarItemTimeStamp = Now
    mvarItemQuality = 192
    mvarItemValue = Value
End Sub

Public Sub ReadDevice()
    'read device data from your hardware
    'we just do some simulation
    
    If mvarItemConnected = False Then  ' no client requested this item
        mvarItemQuality = 64
        Exit Sub
    End If
    
    Dim n As Integer
    n = Int(10 * Rnd)
    Select Case (VarType(mvarItemValue))
        Case vbBoolean
            mvarItemValue = Not CBool(mvarItemValue)
        Case vbInteger
            mvarItemValue = CInt(mvarItemValue) + 1
        Case vbLong
            mvarItemValue = CLng(mvarItemValue) + 1
        Case vbSingle
            mvarItemValue = CSng(CSng(mvarItemValue) + 0.01)
        Case vbString
            If n < 3 Then
                mvarItemValue = "http://www.eehoo.net"
            ElseIf n < 5 Then
                mvarItemValue = "[e-mail]"
            ElseIf n < 8 Then
                mvarItemValue = "Knight.OPC.Server.VB"
            ElseIf n < 10 Then
                mvarItemValue = "KOSRDK"
            End If
    End Select
    mvarItemTimeStamp = Now
    mvarItemQuality = 192
End Sub

Public Property Let ItemTimeStamp(ByVal vData As Date)
'向属性指派值时使用，位于赋值语句的左边。
'Syntax: X.ItemTimeStamp = 5
    mvarItemTimeStamp = vData
End Property


Public Property Get ItemTimeStamp() As Date
'检索属性值时使用，位于赋值语句的右边。
'Syntax: Debug.Print X.ItemTimeStamp
    ItemTimeStamp = mvarItemTimeStamp
End Property



'Public Property Let ItemConnected(ByVal vData As Boolean)
'向属性指派值时使用，位于赋值语句的左边。
'Syntax: X.ItemConnected = 5
'    mvarItemConnected = vData
'End Property


'Public Property Get ItemConnected() As Boolean
'检索属性值时使用，位于赋值语句的右边。
'Syntax: Debug.Print X.ItemConnected
'    ItemConnected = mvarItemConnected
'End Property



Public Property Let ItemQuality(ByVal vData As Integer)
'向属性指派值时使用，位于赋值语句的左边。
'Syntax: X.ItemQuality = 5
    mvarItemQuality = vData
End Property


Public Property Get ItemQuality() As Integer
'检索属性值时使用，位于赋值语句的右边。
'Syntax: Debug.Print X.ItemQuality
    ItemQuality = mvarItemQuality
End Property



Public Property Let ItemValue(ByVal vData As Variant)
'向属性指派值时使用，位于赋值语句的左边。
'Syntax: X.ItemValue = 5
    mvarItemValue = vData
End Property


Public Property Set ItemValue(ByVal vData As Variant)
'向属性指派对象时使用，位于 Set 语句的左边。
'Syntax: Set x.ItemValue = Form1
    Set mvarItemValue = vData
End Property


Public Property Get ItemValue() As Variant
'检索属性值时使用，位于赋值语句的右边。
'Syntax: Debug.Print X.ItemValue
    If IsObject(mvarItemValue) Then
        Set ItemValue = mvarItemValue
    Else
        ItemValue = mvarItemValue
    End If
End Property



Public Property Let itemHandle(ByVal vData As Long)
'向属性指派值时使用，位于赋值语句的左边。
'Syntax: X.ItemHandle = 5
    mvarItemHandle = vData
End Property


Public Property Get itemHandle() As Long
'检索属性值时使用，位于赋值语句的右边。
'Syntax: Debug.Print X.ItemHandle
    itemHandle = mvarItemHandle
End Property



Public Property Let ItemName(ByVal vData As String)
'向属性指派值时使用，位于赋值语句的左边。
'Syntax: X.ItemName = 5
    mvarItemName = vData
End Property


Public Property Get ItemName() As String
'检索属性值时使用，位于赋值语句的右边。
'Syntax: Debug.Print X.ItemName
    ItemName = mvarItemName
End Property