[r1]: / tags / Release_0.0.0.1 / SM3_Drive_RaspiStepper / SM3_Drive_RaspiStepper / Functions / TaskCallStepperControl / svnobj  Maximize  Restore  History

Download this file

16 lines (15 with data), 2.3 kB 

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
FUNCTION INTERNAL TaskCallStepperControl : BOOL
VAR_INPUT
    parameter : IEC_CYCLE_STRUCT;
END_VAR
VAR
    pInstance : POINTER TO StepperControl;
    pTaskInfo : POINTER TO Task_Info2;
    udiState : UDINT;
pTaskInfo := parameter.pTaskInfo;
pInstance := pTaskInfo^.pszExternalEvent; (* !! *)
udiState := parameter.pApplication^.udiState;
IF udiState = AS_STOP THEN
    RETURN;
END_IF
pInstance^();