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

'==============================================================================
'
' File   : Vorpruefpunkt.cls
' Author : Reinhard Henning, lindner & partner
' Date   : 12.12.2001
' Version: 1.00
'
'==============================================================================
'
' Verwaltung eines Vorprüfpunktes
'
'==============================================================================
'
' History:
' Übernommen aus CPruefpunkt am 12.12.2001
'
' Erste Version
'
'==============================================================================


' Private Member
' --------------
Private m_dQ As Double
Private m_dFGo As Double
Private m_dFGu As Double
Private m_lTime As Long
Private m_nOrdnung As Integer

Private m_Fehler As Double
Private m_nUseCount As Integer

' Alle Member neu initialisieren
'
Private Sub init()
    m_dQ = 0
    m_dFGo = 0
    m_dFGu = 0
    m_nUseCount = 0
    m_lTime = 0
    
    m_Fehler = 99
End Sub

' Alle Member mit den Membern des Argumentobjekts
' initialisieren
'
Public Sub copyFrom(Pruefpunkt As CVorpruefpunkt)
    m_dQ = Pruefpunkt.getQ()
    m_lTime = Pruefpunkt.GetTime()
    m_nOrdnung = Pruefpunkt.getOrdnung()
    m_nUseCount = 0
End Sub


Public Sub copyFromPruefpunkt(Pruefpunkt As CPruefpunkt)
    m_lTime = Pruefpunkt.GetTime()
    m_dQ = Pruefpunkt.getQ()
    m_nUseCount = 0
End Sub

' Member neu setzen
'
' @param dQ     Durchfluss
' @param dFGo   obere Fehlergrenze
' @param dFGu   untere Fehlergrenze
'
Public Sub setMember(dQ As Double, nOrdnung As Integer, lTime As Long)
    m_dQ = dQ
    m_nOrdnung = nOrdnung
    m_lTime = lTime
End Sub

Public Sub setFehler(Fehler As Double)
    m_Fehler = Fehler
End Sub

Public Function GetFehler() As Double
    GetFehler = m_Fehler
End Function

' Durchfluss für den Prüfpunkt neu setzen
'
' @param dQ     Durchfluss
'
Public Sub setQ(dQ As Double)
    m_dQ = dQ
End Sub

Public Function getQ() As Double
   getQ = m_dQ
End Function



' @param nUseCount  Anzahl der externen Referenzen auf das Objekt
'
Public Sub setUseCount(nUseCount As Integer)
    m_nUseCount = nUseCount
End Sub

Public Sub SetTime(lTime As Long)
    m_lTime = lTime
End Sub

Public Function GetTime()
    GetTime = m_lTime
End Function

Public Sub incUseCount()
    m_nUseCount = m_nUseCount + 1
End Sub

Public Sub decUseCount()
    m_nUseCount = m_nUseCount - 1
End Sub

Public Function getUseCount() As Integer
    getUseCount = m_nUseCount
End Function

Public Function getOrdnung() As Integer
    getOrdnung = m_nOrdnung
End Function