Kendrion Kuhnke Automation GmbH
Counter/Posi2, Counter2
61
11/25/2016
(*1. Initializing: Enabling of the counter and setting of the preset value*)
IF bInit THEN
CASE StepInit OF
(*Selecing of the options and setting them by a rising edge v. "Set_Options"*)
0:
Term2_EnableCounter_1:=TRUE;
Term2_SetValue_1:=2000;
Term2_SetPreset_1:=TRUE;
Term2_SetOptions_1:=TRUE;
StepInit:=1;
(* Wait for confirmations "OptionsSet" and "PresetSet"*)
1:
IF Term2_OptionsSet_1 AND Term2_PresetSet_1 THEN
StepInit:=2;
END_IF
(* Reset "Set_Options" und "Set_Preset" into the start position*)
2:
Term2_SetOptions_1:=FALSE;
Term2_SetPreset_1:=FALSE;
StepInit:=0;
bInit:=FALSE;
bInitReady:=TRUE;
END_CASE
END_IF
(*2. Controlling of the referencing*)
IF bInitReady THEN
CASE Step OF
(*Switch on the referencing mode*)
0:
Term2_EnableReferencing_1:=TRUE;
Step:=1;
(* Wait for a referencing pulse*)
1:
IF Term2_Referenced_1 THEN
Step:=2;
END_IF
(* Reset of the referencing message*)
2:
Term2_ResetReferenced_1:=TRUE;
Step:=3;
3:
IF NOT Term2_Referenced_1 THEN
(* Reset "ResetReferenced_1" into the start position *)
Term2_ResetReferenced_1:=FALSE;
(*Switch on the referencing mode *)
Term2_EnableReferencing_1:=FALSE;
Step:=0; (*Next turn the same procedure.*)
END_IF
END_CASE
END_IF
