cvessel1.cls

这是一个实际的工程中所用的源程序

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "CVessel1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit

Private mKey As String
Private mStart As Double
Private mZero As Double
Private mNewData As Double

Public Sub Push(ByVal vNewData As Double)
    If vNewData < 5 And mStart > 1000 Then '清零
        mZero = mNewData - mStart
        mStart = 0
        Call SaveCang
    End If
    mNewData = vNewData
End Sub
Public Function Pop() As Double
    Pop = Cang
    mZero = 0
    mStart = mNewData
    Call SaveCang
End Function
Public Property Get Cang() As Double '缺省属性
Attribute Cang.VB_UserMemId = 0
    Cang = mZero + mNewData - mStart
End Property

Public Sub init(ByVal vKey As String)
    mKey = vKey
    mStart = Val(SetReg.GetSettingStr(Sc_Cang, "Start" & mKey, 0))
    mZero = Val(SetReg.GetSettingStr(Sc_Cang, "Zero" & mKey, 0))

End Sub
Private Sub SaveCang()
    Call SetReg.SaveSettingStr(Sc_Cang, "Start" & mKey, mStart)
    Call SetReg.SaveSettingStr(Sc_Cang, "Zero" & mKey, mZero)
End Sub