Aspen Touch Solutions ATM-123R Series Especificações Página 310

  • Descarregar
  • Adicionar aos meus manuais
  • Imprimir
  • Página
    / 374
  • Índice
  • MARCADORES
  • Avaliado. / 5. Com base em avaliações de clientes
Vista de página 309
6-16 Dehumidifier Example
6-16
If ActiveObject.Products2.Count = 0 Then
GotOne = True
ActiveObject.AddStatusCondition(slMissingRequiredInformation, 3,
"Water Product Stream Required")
End If
' If we're missing an attachment, don't bother checking for any other
problems
If GotOne = True Then GoTo ThatsAll
On Error GoTo NoWater
waterPosn =
ActiveObject.Flowsheet.FluidPackage.Components.index("H2O")
GoTo AfterWaterCheck
NoWater:
GotOne = True
ActiveObject.AddStatusCondition(slError, 11, "No Water in Current Fluid
Package")
AfterWaterCheck:
On Error GoTo ThatsAll
Dim feed As Object
Set feed = ActiveObject.Feeds1.Item(0)
If Not feed.Temperature.IsKnownThen
ActiveObject.AddStatusCondition(slMissingOptionalInformation, 12,
"Feed Temperature Unknown")
GotOne = True
End If
If Not feed.Pressure.IsKnownThen
ActiveObject.AddStatusCondition(slMissingOptionalInformation, 13,
"Feed Pressure Unknown")
GotOne = True
End If
If Not feed.MolarFlow.IsKnown Then
ActiveObject.AddStatusCondition(slMissingOptionalInformation, 14,
"Feed Flow Unknown")
GotOne = True
End If
' The composition's IsKnown will return a Variant containing an array of
Booleans.
' We must make a variable containing the array before we attempt to
access a data
' member.
' (i.e., "feed.ComponentMolarFraction.IsKnown(0)" will probably not
work)
CMFsKnown = feed.ComponentMolarFraction.IsKnown
Dehumidifier Code
Vista de página 309
1 2 ... 305 306 307 308 309 310 311 312 313 314 315 ... 373 374

Comentários a estes Manuais

Sem comentários