127 lines
3.1 KiB
OpenEdge ABL
127 lines
3.1 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 = "CPumpe"
|
|
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 : CFM85P
|
|
' Author : Reinhard Henning
|
|
' Date : 04.02.1999
|
|
' Version: 0.01
|
|
'
|
|
'==============================================================================
|
|
'
|
|
' History:
|
|
'
|
|
' Author : Reinhard Henning
|
|
' Date : 04.02.1999
|
|
' Version: 0.01
|
|
'
|
|
'
|
|
'==============================================================================
|
|
|
|
Option Explicit
|
|
|
|
' Private Member
|
|
' --------------
|
|
Private m_sBezeichnung As String
|
|
Private m_nNennweite As Integer
|
|
Private m_nDurchflussOben As Double
|
|
Private m_nDurchflussUnten As Double
|
|
Private m_PumpenNr As Integer
|
|
Private m_SPSVarname As String
|
|
Private m_sRegelart As String
|
|
Private m_SPS As CSPS
|
|
|
|
' Klassenmember initialisieren
|
|
' Wird z.B. von der Deserialisierung einer Pumpe aus der INI-Datei
|
|
' benötigt.
|
|
'
|
|
Public Sub setMembers(sBezeichnung As String, nNennweite As Integer, nDurchflussOben As Double, nDurchflussUnten As Double, nPumpenNr As Integer, SPSVarname As String, Regelart As String)
|
|
m_sBezeichnung = sBezeichnung
|
|
m_nNennweite = nNennweite
|
|
m_nDurchflussOben = nDurchflussOben
|
|
m_nDurchflussUnten = nDurchflussUnten
|
|
m_PumpenNr = nPumpenNr
|
|
m_SPSVarname = SPSVarname
|
|
m_sRegelart = Regelart
|
|
End Sub
|
|
|
|
Public Function IstOkFuerDurchfluss(Q As Double) As Boolean
|
|
If m_nDurchflussOben >= Q And Q > m_nDurchflussUnten Then
|
|
IstOkFuerDurchfluss = True
|
|
Else
|
|
IstOkFuerDurchfluss = False
|
|
End If
|
|
End Function
|
|
|
|
Public Sub PumpeStart()
|
|
' Todo: Pumpe anwählen und VB Betrieb setzen
|
|
m_SPS.StartPumpe (m_PumpenNr)
|
|
m_SPS.SPSVariableSchreiben "VB_Betrieb", 2
|
|
End Sub
|
|
|
|
Public Sub Anwahl()
|
|
m_SPS.AnwahlPumpe (m_PumpenNr)
|
|
End Sub
|
|
|
|
Public Sub PumpeStop()
|
|
m_SPS.StopPumpe (m_PumpenNr)
|
|
End Sub
|
|
|
|
Public Function GetStatus() As Integer
|
|
GetStatus = m_SPS.GetPumpenStatus(m_PumpenNr)
|
|
End Function
|
|
|
|
Public Function GetSPSVarname() As String
|
|
GetSPSVarname = m_SPSVarname
|
|
End Function
|
|
|
|
Public Function laeuft() As Boolean
|
|
laeuft = ((GetStatus And 4) = 4)
|
|
End Function
|
|
|
|
Public Function getQIst() As Double
|
|
getQIst = m_SPS.getQIst
|
|
End Function
|
|
|
|
Public Function GetDurchflussOben() As Double
|
|
GetDurchflussOben = m_nDurchflussOben
|
|
End Function
|
|
|
|
Public Function GetDurchflussUnten() As Double
|
|
GetDurchflussUnten = m_nDurchflussUnten
|
|
End Function
|
|
|
|
Public Function getNennweite() As Integer
|
|
getNennweite = m_nNennweite
|
|
End Function
|
|
|
|
Public Function getNr() As Integer
|
|
getNr = m_PumpenNr
|
|
End Function
|
|
|
|
Private Sub Class_Initialize()
|
|
Set m_SPS = g_App.getSPS
|
|
End Sub
|
|
|
|
Public Function GetRegelart() As String
|
|
GetRegelart = m_sRegelart
|
|
End Function
|
|
|
|
Public Function GetBezeichnung() As String
|
|
GetBezeichnung = m_sBezeichnung
|
|
End Function
|
|
|