|
InLine Calculator is used for user defined code.
|
|
 |
Option Explicit
Private Function CompositeModel_Run(ParentItem As IModelItem, ByVal Step As Long, _
ByVal DebugModel As Boolean, ByVal ContinueRun As Boolean) As MaxEventReturn
' Get the inlet and outlet streams
Dim calcin As StreamItem, calcout As StreamItem
Set calcin = Inlet.StreamItem
Set calcout = Outlet.StreamItem
' There are no optional streams.
If calcin Is Nothing Or calcout Is Nothing Then
' Copy in to out
If Not calcin Is Nothing And Not calcout Is Nothing Then
Call calcin.CopyData(calcout)
Call calcout.SetDataChanged(calcin.GetDataChanged)
Call calcin.SetDataChanged(False)
End If
Call Me.Application.IssueMsg(mxErrorMsg, "Missing Stream(s)!")
Exit Function
End If
' Copy inlet to outlet
Call calcin.CopyData(calcout)
Call calcout.SetDataChanged(calcin.GetDataChanged)
Call calcin.SetDataChanged(False)
calcout.Data("Temperature") = calcin.Data("Temperature") - 2
Call calcout.Initialize(Outlet.StreamItem)
End Function
