CONST

unit:=60;      //换算率

END_CONST

VAR_INPUT

    // Input Parameters

Input_Condition:BOOL:=false;   //允许计时

FP_1Sec:BOOL;                  //单位时基 秒

reset:BOOL;                    //计时复位

END_VAR

VAR

Impls_1Sec_Aux:BOOL;

Impls_1Sec:BOOL;

pos1,pos2,pos3:BOOL;

END_VAR

VAR_OUTPUT

    // Output Parameters

act_second:INT:=0;

act_min:INT:=0;

act_hour:INT:=0;

END_VAR

Impls_1Sec:= FP_1Sec AND (NOT Impls_1Sec_Aux); 

Impls_1Sec_Aux:= FP_1Sec;

IF NOT reset THEN

    IF  Input_Condition AND  Impls_1Sec AND NOT pos1  THEN

    act_second:= act_second + 1;

    pos1:=true;

    ELSE

    pos1:=false;

    END_IF;

    IF (act_second >= unit) AND NOT pos2  THEN

        act_min:= act_min + 1;

        act_second:=0;

        pos2:=true;

    ELSE

        pos2:=false;

    END_IF;

    IF (act_min >= unit) AND NOT pos3  THEN

        act_hour:=act_hour + 1;

        act_min:=0;

        pos3:=true;

    ELSE

        pos3:=false;

    END_IF;

ELSE

    act_second:=0;

    act_min:=0;

    act_hour:=0;

END_IF;