
User Unit Operation 6-17
6-17
If Not CMFsKnown(0) Then
ActiveObject.AddStatusCondition(slMissingOptionalInformation, 15,
"Feed Composition Unknown")
GotOne = True
End If
If GotOne = True Then GoTo ThatsAll
If ActiveObject.Feeds1.Count > 1 Then
GotOne = True
ActiveObject.AddStatusCondition(slWarning, 20, "Additional Feed
Stream(s) Ignored")
End If
If ActiveObject.Feeds1.Count > 1 Then
GotOne = True
ActiveObject.AddStatusCondition(slWarning, 20, "Additional Feed
Stream(s) Ignored")
End If
If ActiveObject.Products1.Count > 1 Then
GotOne = True
ActiveObject.AddStatusCondition(slWarning, 21, "Additional Dry
Product Stream(s) Ignored")
End If
If ActiveObject.Products2.Count > 1 Then
GotOne = True
ActiveObject.AddStatusCondition(slWarning, 22, "Additional Water
Product Stream(s) Ignored")
End If
Dim BogusCnxn As Boolean
BogusCnxn = False
If ActiveObject.Feeds2.Count > 0 Then
BogusCnxn = True
ElseIf ActiveObject.EnergyFeeds.Count > 0 Then
BogusCnxn = True
ElseIf ActiveObject.EnergyProducts.Count > 0 Then
BogusCnxn = True
End If
If BogusCnxn = True Then
GotOne = True
ActiveObject.AddStatusCondition(slWarning, 7, "Connection(s) to
Inactive Nozzles")
End If
ThatsAll:
End Sub
Dehumidifier Code
Comentários a estes Manuais