plc鎵�鎻忓懆鏈熻�诲彇婧愮爜

wst

FUNCTION_BLOCK PlcCycle
VAR_OUTPUT
        plc_Cycle : REAL;//PLC鎵�鎻忓懆鏈�
END_VAR
VAR
        init: BOOL;
        tx: DWORD;
        last: DWORD;
END_VAR

绋嬪簭
(* read system timer *)
tx := T_PLC_US();

IF NOT init THEN
        init := TRUE;
        plc_Cycle := 0.0;
ELSE
        plc_Cycle := (DWORD_TO_REAL(tx - last)*1.0E-6)*1000;
END_IF;
last := tx;



绋嬪簭閲岀敤鍒扮殑鍑芥暟
FUNCTION T_PLC_US : DWORD
VAR CONSTANT
        debug : BOOL := 0;
        N : INT := 0;
        offset : DWORD := 0;
END_VAR
VAR
        tx : TIME;
END_VAR

tx := TIME();
T_PLC_US := TIME_TO_DWORD(Tx)*1000;

IF debug THEN
        T_PLC_US := (SHL(T_PLC_US,N) OR SHL(DWORD#1,N)-1) + OFFSET;
END_IF;