TYPE "Motor"

VERSION : 0.1

   STRUCT

      Running : Bool;   // 电机运行

      Run_HMI_Command : Bool;   // HMI选中

      Run_Output : Bool;   // 输出

   END_STRUCT;

END_TYPE

FUNCTION "电机启动" : Void

{ S7_Optimized_Access := 'TRUE' }

VERSION : 0.1

   VAR_INPUT 

      Button : Bool;

   END_VAR

   VAR_TEMP 

      INDEX : Int;

      Motor : Array[1..8] of "Motor";

   END_VAR

BEGIN

"R_TRIG_DB"(CLK:=#Button);//脉冲

IF "R_TRIG_DB".Q THEN

   FOR #INDEX := 1 TO 8 BY 1 DO

       IF #Motor[#INDEX].Run_HMI_Command AND #Motor[#INDEX].Running=0 THEN

           #Motor[#INDEX].Run_Output := 1;

           EXIT;

       END_IF;

   END_FOR;

END_IF;

END_FUNCTION