citem.cls

opc 源码 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 mvarItemTimeStamp As Date
Public Sub WriteDevice(Value As Variant)
    mvarItemTimeStamp = Now
    mvarItemQuality = 192
    mvarItemValue = Value
End Sub
Public Sub ReadDevice()
    If mvarItemConnected = False Then
        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)
    mvarItemTimeStamp = vData
End Property
Public Property Get ItemTimeStamp() As Date
    ItemTimeStamp = mvarItemTimeStamp
End Property
Public Property Let ItemQuality(ByVal vData As Integer)
    mvarItemQuality = vData
End Property
Public Property Get ItemQuality() As Integer
    ItemQuality = mvarItemQuality
End Property
Public Property Let ItemValue(ByVal vData As Variant)
    mvarItemValue = vData
End Property
Public Property Set ItemValue(ByVal vData As Variant)
    Set mvarItemValue = vData
End Property
Public Property Get ItemValue() As Variant
    If IsObject(mvarItemValue) Then
        Set ItemValue = mvarItemValue
    Else
        ItemValue = mvarItemValue
    End If
End Property
Public Property Let itemHandle(ByVal vData As Long)
    mvarItemHandle = vData
End Property
Public Property Get itemHandle() As Long
    itemHandle = mvarItemHandle
End Property
Public Property Let ItemName(ByVal vData As String)
    mvarItemName = vData
End Property
Public Property Get ItemName() As String
    ItemName = mvarItemName
End Property