西门子SCL编程之定时器函数的例子

FUNCTION_BLOCK TIMER
VAR_INPUT
  mytime       : TIMER ;
END_VAR
VAR_OUTPUT
  result       : S5TIME ;
END_VAR
VAR
  set          : BOOL ;
  reset        : BOOL ;
  bcdvalue     : S5TIME ; // 时基和BCD码形式的保持值
  binvalue     : WORD ;   // 二进制形式的时间值
  initialvalue : S5TIME ;
END_VAR
BEGIN
  Q0.0         := 1;
  set          := I0.0 ;
  reset        := I0.1;
  initialvalue := T#25S ;
  bcdvalue     := S_PEXT (T_NO := mytime ,
                  S            := set ,
                  TV           := initialvalue ,
                  R            := reset ,
                  BI           := binvalue ,
                  Q            := Q0.7) ;
// 更多输出参数的的处理
  result       := bcdvalue ;
// 显示输出
  QW4          := binvalue ;
END_FUNCTION_BLOCK