141 lines
2.8 KiB
OpenEdge ABL
141 lines
2.8 KiB
OpenEdge ABL
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
|
|
|