177 lines
3.5 KiB
OpenEdge ABL
177 lines
3.5 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 = "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
|