S7-1200几个SCL编写的功能块

1、1200 AI 数据采集功能块FUNCTION_BLOCK AI_convert S7_Optimized_Access := FALSE AUTHOR : TyfixnVERSION : 0.1VAR_INPUT_inAW ExternalAccessible := False; ExternalVisible := False;ExternalWritable := False : Int; / AI 输入采集端，对应硬件地址_inHI : Real := 100.0;/ AI 量程上限_inLi : Real; / AI 量程下限_AlarmHiSP : Real := 90.0;/ A

2、I 报警上限/ AI 报警上上限_AlarmLiSP : Real := 0.0;/ AI 报警下限_AlarmHHiSP : Real := 95.0;_AlarmLLiSP : Real;/ AI 报警下下限END_VARVAR_OUTPUT_out : Real; / AI 转换输出值， PV 值_Alarm_H : Bool;/ 高报_Alarm_L : Bool;/ 低报_Alarm_HH : Bool;/ 高高报_Alarm_LL : Bool;/ 低低报END_VARVARErr_Code : Word;/ 转换错误代码， word 字节中的第一位高报，第二位低报，第三位高高报，

3、第四位底底报，第五位转发错误。其中转换错误代码是 Err_Code.Err : Bool; / 报警数字输出_out_N : Real;/ 输出 0-1 之间的比例，END_VARVAR_TEMPVar : Word;END_VARBEGINEND_IF;IF #_out #_AlarmLiSP THEN/ 低限报警触发。将采集的信号将采集的信号缩#_out_N := NORM_X(MIN := 0, VALUE := #_inAW, MAX := 27648); / 缩放到 0-1 之间#_out := SCALE_X(MIN:=#_inLi, VALUE:=#_out_N, MAX:=#_

4、inHI); / 放到需要的量程范围内。/ 当上上限小于上限时，更改上上限值为上限值。/ 当下下限大于下限时，更改下下限值为下限值。IF #_AlarmHHiSP #_AlarmLiSP THEN#_AlarmLLiSP := #_AlarmLiSP;END_IF;IF #_out #_AlarmHiSP THEN/ 高限报警触发。#_Alarm_H := 1;#Err_Code := #Err_Code OR 16#1;ELSE#_Alarm_H := 0;#Err_Code := #Err_Code AND 16#fe;END_IF;#_Alarm_L := 1;#Err_Code :=

5、#Err_Code OR 16#2;ELSE#_Alarm_L := 0;#Err_Code := #Err_Code AND 16#fd;END_IF;IF #_out #_AlarmHHiSP THEN#_Alarm_HH := 1;#Err_Code := #Err_Code OR 16#4;ELSE#_Alarm_HH := 0;#Err_Code := #Err_Code AND 16#fb;END_IF;IF #_out #_AlarmLLiSP THEN#_Alarm_LL := 1;#Err_Code := #Err_Code OR 16#8;ELSE#_Alarm_LL :=

6、 0;/ 高高限报警触发。/ 低低限报警触发。#Err_Code := #Err_Code AND 16#f7;IF #Var 0 THEN/ 自带的 Scale 功能块运算错误报警#Err_Code := #Err_Code OR 16#10;ELSE#Err_Code := #Err_Code AND 16#ef;END_IF;IF #Err_Code 0 THEN#Err := 1;ELSE#Err := 0;END_IF;/word 字节中的第一位高报，第二位低报，第三位转换错误，第四位高高报警，第五位低低报警。END_FUNCTION_BLOCK2、1500 AI 采集功能块FUNC

7、TION_BLOCK AI_convert S7_Optimized_Access := FALSE AUTHOR : TyfixnVERSION : 0.1VAR_INPUT_inAW : Int;/ AI 输入采集端，对应硬件地址_inLi : Real; / AI 量程下限_inHI : Real := 100.0;/ AI 量程上限_AlarmLiSP : Real := 0.0; / AI 报警下限_AlarmHiSP : Real := 95.0; / AI 报警上限 _AlarmLLiSP : Real; / AI 报警下下限 _AlarmHHiSP : Real; / AI 报

8、警上上限END_VARVAR_OUTPUT_out : Real; / AI 转换输出值， PV 值_Alarm_L : Bool; / 低报_Alarm_H : Bool; / 高报_Alarm_LL : Bool; / 低低报_Alarm_HH : Bool;/ 高高报END_VARVARErr_Code : Word;/ 转换错误代码， word 字节中的第一位高报，第二位低报，第三位转换错误。其中转换错误代码是 Err_Code.Err : Bool; / 报警数字输出_out_N : Real;/ 输出 0-1 之间的比例，END_VARVAR_TEMPVar : Word;END_

9、VARBEGIN#Var := SCALE(IN := #_inAW, HI_LIM := 1.0, LO_LIM := 0.0, BIPOLAR := 0, OUT =#_out_N); / 将采集的信号缩放到 0-1 之间#Var := SCALE(IN := #_inAW, HI_LIM := #_inHI, LO_LIM := #_inLi, BIPOLAR := 0,OUT = #_out);/ 将采集的信号缩放到需要的量程范围内。IF #_out #_AlarmHiSP THEN / 高限报警触发。#_Alarm_H := 1;#Err_Code := #Err_Code OR 1

10、6#1;ELSE#_Alarm_H := 0;#Err_Code := #Err_Code AND 16#fe;END_IF;IF #_out #_AlarmLiSP THEN / 低限报警触发。#_Alarm_L := 1;#Err_Code := #Err_Code OR 16#2;ELSE#_Alarm_L := 0;#Err_Code := #Err_Code AND 16#fd;END_IF;IF #Var 0 THEN / 自带的 Scale 功能块运算错误报警#Err_Code := #Err_Code OR 16#4;ELSE#Err_Code := #Err_Code AND

11、 16#fb;END_IF;IF #_out #_AlarmHHiSP THEN/ 高高限报警触发。#_Alarm_HH := 1;#Err_Code := #Err_Code OR 16#8;ELSE#_Alarm_HH := 0;#Err_Code := #Err_Code AND 16#f7;END_IF;IF #_AlarmHHiSP #_AlarmHiSP THEN#_AlarmHHiSP := #_AlarmHiSP;/ 低低限报警触发。END_IF;IF #_out #_AlarmLiSP THEN#_AlarmLLiSP := #_AlarmLiSP;END_IF;IF #Er

12、r_Code 0 THEN#Err := 1;ELSE#Err := 0;END_VAR_AlarmHHiSP : Real := 95.0;/ RTD 报警上上限END_IF;/word 字节中的第一位高报，第二位低报，第三位转换错误，第四位高高报警，第五位低低报警。END_FUNCTION_BLOCK3、RTD 采集功能块FUNCTION_BLOCK RTD_Convert S7_Optimized_Access := FALSE AUTHOR : TyfixnVERSION : 0.1VAR_INPUT_inAW : Int := 0;/ RTD 输入采集端，对应硬件地址_inLi :

13、Real := 0.0;/ RTD 量程下限 ,供上位机使用_inHI : Real := 100.0;/ RTD 量程上限，供上位机使用_AlarmLiSP : Real := 0.0; / RTD 报警下限_AlarmHiSP : Real := 90.0; / RTD 报警上限_AlarmLLiSP : Real := 0.0; / RTD 报警下下限END_VARVAR_OUTPUT_out : Real; / AI 转换输出值， PV 值_Alarm_L : Bool;/ 低报_Alarm_H : Bool;/ 高报_Alarm_LL : Bool;/ 低低报_Alarm_HH :

14、Bool;/ 高高报END_VARVARErr_Code : Word;/ 转换错误代码Err : Bool; / word 字节中的第一位高报，第二位低报，第三位转换错误。其中转 换错误代码是 Err_Code._out_N : Real; /将输出转换为 0-1 之间，供 PID 回路使用。END_VARVAR_TEMPVar : Word;END_IF;BEGIN#_out := INT_TO_REAL(#_inAW) / 10; 到实际的温度数值。#_out_N := #_out / #_inHI;IF #_out #_AlarmHiSP THEN#_Alarm_H := 1;#Err

15、_Code := #Err_Code OR 16#1;ELSE#_Alarm_H := 0;#Err_Code := #Err_Code AND 16#fe;END_IF;IF #_out #_AlarmHHiSP THEN/ 高高限报警触发。#_Alarm_HH := 1;#Err_Code := #Err_Code OR 16#4;ELSE#_Alarm_HH := 0;#Err_Code := #Err_Code AND 16#fb;END_IF;IF #_out #_AlarmLLiSP THEN / 低低限报警触发。#_Alarm_LL := 1;#Err_Code := #Err_Code OR 16#8;ELSE#_Alarm_LL := 0;#Err_Code := #Err_Code AND 16#f7;END_IF;IF #Var 0 THEN / 自带的 Scale 功能块运算错误报警#Err