CRC效验SCL程序对BYTE数组进行校验，放在数组最后两字节，正常情况是通过串口的MODBUS RTU下进行验证，1200已经支持这样的效验。我一般用在TCP或UDP自由通信时效验数组。

这里使用了Variant类型，可以方便效验长度不相同的数组了（最大数组长度可以更改）。

似乎没有必要开200字节的静态缓存

你是用TIA V13吧？

如果是用 TIA V14 SP1，你可以使用 Array [*] of Type （你这里 Type=Byte）放在 InOut FC 接口。

用 CountOfElements 获得 元素个数（UDint）。

最后的计算结果填在被处理的 InOut 的未知元素个数的数组尾端。

这样用个FC，而不用FB来处理。

你说呢？

FUNCTION "CRC_CHK" : Void

{ S7_Optimized_Access := 'TRUE' }

VERSION : 0.1

   VAR_IN_OUT 

      ArrayBuf : Array[*] of Byte;

   END_VAR

   VAR_TEMP 

      ArrayBuf_LEN : UDInt;

      VariantBuf : Variant;

      CRC_INDEX : Int;

      VariantBuf_LEN : DInt;

      CRC_BIT : Int;

      temp : Word;

      temp_1 : Byte;

   END_VAR

BEGIN

VariantPut(SRC:=#ArrayBuf,

          DST:=#VariantBuf);

#ArrayBuf_LEN :=CountOfElements(#VariantBuf);

//CRC校验，将从数据块的第0个字节开始，一直到发送的最后一个字节

#ArrayBuf[#VariantBuf_LEN - 1] := 16#FF;      //CRC寄存器的初始化

#ArrayBuf[#VariantBuf_LEN - 2] := 16#FF;      //CRC寄存器的初始化

#temp.%B0 := #ArrayBuf[#VariantBuf_LEN - 1];

#temp.%B1 := #ArrayBuf[#VariantBuf_LEN - 2];

FOR #CRC_INDEX := 0 TO #VariantBuf_LEN - 3 BY 1 DO

   //信息字节与当前CRC最低有效字节异或

   #temp_1 := #ArrayBuf[#CRC_INDEX] AND 16#FF;

   #temp := #temp_1 XOR #temp;

   FOR #CRC_BIT := 0 TO 7 BY 1 DO

       IF (#temp AND 16#01) = 16#01 THEN    //CRC最低有效位为真

           #temp := SHR(IN := #temp, N := 1);   //右移1位

           #temp := #temp XOR 16#A001;   //与多项式异或

       ELSE

           #temp := SHR(IN := #temp, N := 1);   //右移1位

       END_IF;

   END_FOR;

END_FOR;

//将CRC校验传到缓冲区

#ArrayBuf[#VariantBuf_LEN - 1] := #temp.%B1;

#ArrayBuf[#VariantBuf_LEN - 2] := #temp.%B0;

END_FUNCTION

以上是修改过的程序,用Array[*] of Byte确实不用开辟新的空间，但读取长度还需要 Variant类型的，这个程序仅仅是编译通过，没有测试的。

程序是块生成源，保存SCL格式的，再用笔记本打开复制出来的。

楼主： CountOfElements这个变量在哪儿创建，时什么样的类型？谢谢！楼主们告诉？