FC1200里面的程序麻烦楼主请给出

回复内容：

对： monkeyluyi  FC1200里面的程序麻烦楼主请给出 内容的回复！

FUNCTION FC1200:BOOL /ti＜x＞tle: cusTON // customer timer  be based on timer interruption OB35 block , executeed 
                      //  timer time plus ,unit with 1ms,10ms,100ms,1s of something
                      //  analogous to standerd TON timer function.

VAR_INPUT
bEN:            BOOL; // timer enable. start runing 
bR:             BOOL;
iTimeunit:      INT;  // timer time-based unit, with  1ms,10ms,100ms,1s 
based unit, with  1ms,10ms,100ms,1s ,Must to OB35 timeunit same
dwTV:            DWORD; // unit is 'iTimeunit'  specify.
dwOriginPV:      DWORD;
END_VAR

VAR_IN_OUT
bInit:BOOL;
dwReg:DWORD;
END_VAR

VAR_OUTPUT
dwET: DWORD;
END_VAR

VAR
    dnET:DINT;
END_VAR

BEGIN  //       code segments

IF bEN=true THEN
    IF bInit=false THEN
        dwReg:=dwOriginPV;
        dwET:=0;
        bInit:=true;
    ELSE
        IF DWORD_TO_DINT(dwET)<DWORD_TO_DINT(dwTV) THEN
            dnET:=DWORD_TO_DINT(dwOriginPV) - DWORD_TO_DINT(dwReg);
            dwET:=DINT_TO_DWORD(dnET);
            IF bR=FALSE THEN
                FC1200:=FALSE;
            ELSE
                dwET:=0;
                dnET:=0;
                FC1200:=FALSE;
            END_IF;
        ELSE
            IF bR=FALSE THEN
                FC1200:=TRUE;
            ELSE
                dwET:=0;
                dnET:=0;
                FC1200:=FALSE;
            END_IF;
            dwET:=dwET;
            dnET:=dnET;
        END_IF;
    END_IF;
ELSE
    bInit:=false;
    FC1200:=FALSE;
END_IF;

END_FUNCTION