VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "CPruefpunkt"
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"
'==============================================================================
'
' File   : Pruefpunkt.cls
' Author : Andreas Schmidt, lindner & partner
' Date   : 31.03.1999
' Version: 1.00
'
'==============================================================================
'
' Verwaltung eines Prüfpunktes
'
'==============================================================================
'
' History:
'
' Author : Andreas Schmidt, lindner & partner
' Date   : 31.03.1999
' Version: 1.00
'
' Erste Version
'
'==============================================================================

Option Explicit

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

Private m_Fehler As Double

Private m_nUseCount As Integer

Public m_bln_eRegisterPruefung As Boolean
Public m_iNr 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 CPruefpunkt)
    m_dQ = Pruefpunkt.getQ()
    m_dFGo = Pruefpunkt.getFGo()
    m_dFGu = Pruefpunkt.getFGu()
    m_lTime = Pruefpunkt.GetTime()
    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, dFGo As Double, dFGu As Double, Optional nUseCount As Integer, Optional lTime As Long)
    m_dQ = dQ
    m_dFGo = dFGo
    m_dFGu = dFGu
    
    If Not IsMissing(nUseCount) Then
        m_nUseCount = nUseCount
    Else
        m_nUseCount = 0
    End If
    
    If Not IsMissing(lTime) Then
        m_lTime = lTime
    Else
        m_lTime = 0
    End If


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 dFGo   obere Fehlergrenze
'
Public Sub setFGo(dFGo As Double)
    m_dFGo = dFGo
End Sub

' @return obere Fehlergrenze
'
Public Function getFGo() As Double
   getFGo = m_dFGo
End Function

' @param dFGu   untere Fehlergrenze
'
Public Sub setFGu(dFGu As Double)
    m_dFGu = dFGu
End Sub

' @return untere Fehlergrenze
'
Public Function getFGu() As Double
   getFGu = m_dFGu
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

Private Sub Class_Initialize()
    init
End Sub