106 lines
2.2 KiB
Plaintext
106 lines
2.2 KiB
Plaintext
FUNCTION "BlenderCtrl_MFM Command" : Void
|
|
{ S7_Optimized_Access := 'FALSE' }
|
|
AUTHOR : 'Author'
|
|
FAMILY : TASK2
|
|
NAME : 'Name'
|
|
VERSION : 1.0
|
|
VAR_INPUT
|
|
mResetWaterTot : Bool;
|
|
mResetSyrupTot : Bool;
|
|
mResetCO2Tot : Bool;
|
|
mResetProductTot : Bool;
|
|
END_VAR
|
|
|
|
VAR_TEMP
|
|
mWaterVFMCtrl : Int;
|
|
mSyrupMFMCtrl : Int;
|
|
mCO2MFMCtrl : Int;
|
|
mProductMFMCtrl : Int;
|
|
END_VAR
|
|
|
|
|
|
BEGIN
|
|
|
|
|
|
IF #mResetWaterTot THEN
|
|
#mWaterVFMCtrl := 1 ;
|
|
ELSE
|
|
#mWaterVFMCtrl := 0 ;
|
|
END_IF;
|
|
|
|
IF #mResetSyrupTot THEN
|
|
#mSyrupMFMCtrl := 1 ;
|
|
ELSE
|
|
#mSyrupMFMCtrl := 0 ;
|
|
END_IF;
|
|
|
|
IF #mResetCO2Tot THEN
|
|
#mCO2MFMCtrl := 1 ;
|
|
ELSE
|
|
#mCO2MFMCtrl := 0 ;
|
|
END_IF;
|
|
|
|
IF #mResetProductTot THEN
|
|
#mProductMFMCtrl := 1 ;
|
|
ELSE
|
|
#mProductMFMCtrl := 0 ;
|
|
END_IF;
|
|
|
|
CASE #mWaterVFMCtrl OF
|
|
1: "P_FTN301_Tot_Ctrl" := 01; // Reset Totalizer
|
|
|
|
2: "P_FTN301_Tot_Ctrl" := 02 ; // Preset Totalizer
|
|
|
|
ELSE:
|
|
"P_FTN301_Tot_Ctrl" := 00;
|
|
END_CASE;
|
|
|
|
|
|
IF "gSyrupRoomEn" THEN
|
|
CASE #mSyrupMFMCtrl OF
|
|
1: "P_FTP302_Tot_Ctrl" := 01; (* Reset Totalizer 1*)
|
|
|
|
2: "P_FTP302_Tot_Ctrl" := 02; (* Reset Totalizer 2*)
|
|
|
|
3: "P_FTP302_Tot_Ctrl" := 03; (* Reset Totalizer 1 & 2*)
|
|
|
|
4: "P_FTP302_Tot_Ctrl" := 04; (* Zeropoint Adjust *)
|
|
|
|
5: "P_FTP302_Tot_Ctrl" := 05; (* Positive Zero Return *)
|
|
|
|
6: "P_FTP302_Tot_Ctrl" := 06; (* Negative Zero Return *)
|
|
|
|
ELSE:
|
|
"P_FTP302_Tot_Ctrl" := 00;
|
|
END_CASE;
|
|
END_IF;
|
|
|
|
CASE #mCO2MFMCtrl OF
|
|
1: "P_FTM303_Tot_Ctrl" := 01; (* Reset Totalizer 1*)
|
|
|
|
2: "P_FTM303_Tot_Ctrl" := 02; (* Reset Totalizer 2 *)
|
|
|
|
3: "P_FTM303_Tot_Ctrl" := 03; (* Reset Totalizer 1 & 2*)
|
|
|
|
4: "P_FTM303_Tot_Ctrl" := 04; (* Zeropoint Adjust *)
|
|
|
|
5: "P_FTM303_Tot_Ctrl" := 05; (* Positive Zero Return *)
|
|
|
|
6: "P_FTM303_Tot_Ctrl" := 06; (* Negative Zero Return *)
|
|
ELSE:
|
|
"P_FTM303_Tot_Ctrl" := 00;
|
|
END_CASE;
|
|
|
|
(*CASE mProductMFMCtrl OF
|
|
1: gProductTotCtrl_Node17 := 01; (* Reset Totalizer 1*)
|
|
|
|
2: gProductTotCtrl_Node17 := 02 ; (* Preset Totalizer1 *)
|
|
|
|
ELSE
|
|
gProductTotCtrl_Node17 := 00;
|
|
END_CASE;*)
|
|
|
|
|
|
END_FUNCTION
|
|
|