73 lines
1.3 KiB
Plaintext
73 lines
1.3 KiB
Plaintext
|
|
(* @PATH := '\/TASK2_ControlMain\/Blender_Logic' *)
|
|
(* @SYMFILEFLAGS := '59392' *)
|
|
PROGRAM SyrupRoomCtrl
|
|
VAR
|
|
mChangeSyrupTankONS : R_TRIG ;
|
|
mChangeSyrupLitersONS : R_TRIG ;
|
|
mSaveLiters : REAL ;
|
|
mSaveNumTank : INT ;
|
|
|
|
mDummy : BOOL ;
|
|
END_VAR
|
|
|
|
VAR_OUTPUT
|
|
EN_Out : BOOL ;
|
|
END_VAR
|
|
|
|
(* @END_DECLARATION := '0' *)
|
|
_LD_BODY
|
|
_NETWORKS : 1
|
|
_NETWORK
|
|
|
|
_COMMENT
|
|
|
|
_END_COMMENT
|
|
_LD_ASSIGN
|
|
_EMPTY
|
|
_EXPRESSION
|
|
_POSITIV
|
|
|
|
|
|
ENABLELIST : 1
|
|
_ASSIGN
|
|
_FUNCTIONBLOCK
|
|
???
|
|
_BOX_EXPR : 0
|
|
_ENABLED
|
|
_EXPRESSION
|
|
_POSITIV
|
|
SyrupRoomCtrl.UpdateValues
|
|
_OUTPUTS : 0
|
|
_EXPRESSION
|
|
_POSITIV
|
|
_OUTPUTS : 1
|
|
_OUTPUT
|
|
_POSITIV
|
|
_NO_SET
|
|
mDummy
|
|
ENABLELIST_END
|
|
_OUTPUTS : 0
|
|
|
|
END_PROGRAM
|
|
ACTION UpdateValues:
|
|
gH_ProcessSetup_SyrupRoomTank := LIMIT (1, gH_ProcessSetup_SyrupRoomTank, 20) ;
|
|
IF NOT gH_Blender_OPT_FastChangeOverEnabled THEN
|
|
IF mSaveNumTank=0 THEN
|
|
mSaveNumTank := gH_ProcessSetup_SyrupRoomTank ;
|
|
END_IF
|
|
IF mSaveNumTank<>gH_ProcessSetup_SyrupRoomTank THEN
|
|
gH_ProcessSetup_SyrupRunOutLiters := gSyrupRoomTankLiter[gH_ProcessSetup_SyrupRoomTank] ;
|
|
mSaveNumTank := gH_ProcessSetup_SyrupRoomTank ;
|
|
END_IF
|
|
IF gH_ProcessSetup_SyrupRunOutLiters<>gSyrupRoomTankLiter[gH_ProcessSetup_SyrupRoomTank] THEN
|
|
gSyrupRoomTankLiter[gH_ProcessSetup_SyrupRoomTank] := gH_ProcessSetup_SyrupRunOutLiters ;
|
|
END_IF
|
|
ELSE
|
|
gH_ProcessSetup_SyrupRoomTank := 1 ;
|
|
END_IF
|
|
|
|
|
|
END_ACTION
|
|
|