FUNCTION_BLOCK "can wash"

{ S7_Optimized_Access := 'TRUE' }

VERSION : 0.1

   VAR_INPUT 

      "wash finish" : Bool;

   END_VAR

   VAR_OUTPUT 

      "wash can_number" : Int;

      wash_can : Array[0..15] of Bool;

   END_VAR

   VAR_IN_OUT 

      "wash can order" : Array[0..15] of Bool;

   END_VAR

   VAR 

      temp : Bool;

   END_VAR

   VAR_TEMP 

      i : Int;

      y : Int;

   END_VAR

BEGIN

IF #"wash finish" AND NOT #temp THEN

    #"wash can_number" := 0;

    FOR #y := 0 TO 15 DO

        #wash_can[#y] := 0

        ;

    END_FOR;

END_IF;

#temp := #"wash finish";

IF #"wash can_number" = 0 THEN

    FOR #i := 0 TO 15 DO

        IF #"wash can order"[#i] = 1 THEN

            #"wash can_number" := #i;

            #wash_can[#i] := 1;

            #"wash can order"[#i] := 0;

            EXIT;

        END_IF;

    END_FOR;

END_IF;

END_FUNCTION_BLOCK