19 lines
491 B
QBasic
19 lines
491 B
QBasic
Attribute VB_Name = "modPumpe"
|
|
Option Explicit
|
|
|
|
|
|
' @return = richtige Pumpe in Abhängigkeit des Durchflusses
|
|
'
|
|
Public Function Pumpenwahl(Q As Double, ColPumpen) As CPumpe
|
|
Dim Pumpe As CPumpe
|
|
For Each Pumpe In ColPumpen
|
|
If Pumpe.IstOkFuerDurchfluss(Q) Then
|
|
Set Pumpenwahl = Pumpe
|
|
End If
|
|
Next
|
|
If Pumpenwahl Is Nothing Then
|
|
MsgBox ("Es ist keine Pumpe für den Durchfluß = " & Q & " m^3 in der ini-datei definiert.")
|
|
End If
|
|
End Function
|
|
|