您好!欢迎光临工博士智能制造网!平台热线:021-80392549
工博士机器人网
西门子专业服务商
产品:60  浏览:13170
1
您当前的位置:首页 » 新闻中心 » 西门子PLC实用子程序分享
产品分类
新闻中心
西门子PLC实用子程序分享
发布时间:2023-03-20        浏览次数:8        返回列表

(一)PLC系统常闭点

PLC程序的***常闭点,可以作为逻辑支路断开、调试或检修的屏蔽开关,尽量使用比较独立的存储位。

(二)PLC系统常开点

PLC程序的***常开点,可以作为逻辑支路接通、调试或检修的接通开关,尽量使用比较独立的存储位。

(三)PLC系统上电脉冲

PLC程序的系统上电脉冲,可以作为系统初始化脉冲来复位、清零和设置系统重要参数,尽量使用比较独立的存储位。

(四)一键触发启停功能

用一个按钮实现启动和停止功能,可以作为操作按钮不够时的一个补救措施。

(五)模拟量输入标定功能

将整数的模拟量标定为实数的工程量,相当于博途中自带的SCALE_X ,但该子程序结合高低量程限制后,标定和调试都更加方便。

(1)子程序调用

(2)子程序变量声明

(3)SCL代码IF (#Emin < #Emax) AND (#Dmin < #Dmax) THEN    IF #Raw < #Dmin THEN        #RawTemp := #Dmin;    END_IF;    IF #Raw > #Dmax THEN        #RawTemp := #Dmax;    END_IF;    IF (#Raw >= #Dmin) AND (#Raw <= #Dmax) THEN        #RawTemp := #Raw;    END_IF;    #OutReal := (INT_TO_REAL(#RawTemp - #Dmin) / INT_TO_REAL(#Dmax - #Dmin)) * (#Emax - #Emin) + #Emin;    #OutPercentage := (#OutReal / (#Emax - #Emin)) * 100.0;ELSE    #OutReal := 0.0;    #OutPercentage := 0.0;END_IF;

 

(六)模拟量输出标定功能

将实数的工程量标定为整数的数字量,相当于博途中自带的NORM_X ,但该子程序结合高低量程限制后,标定和调试都更加方便。

(1)子程序调用

(2)子程序变量声明

(3)SCL代码IF (#Dmin < #Dmax) AND (#Emin < #Emax) THEN    IF #Raw < #Emin THEN        #RawTemp := #Emin;    END_IF;    IF #Raw > #Emax THEN        #RawTemp := #Emax;    END_IF;    IF (#Raw >= #Emin) AND (#Raw <= #Emax) THEN        #RawTemp := #Raw;    END_IF;    #OutInteger := REAL_TO_INT(((#RawTemp - #Emin) / (#Emax - #Emin)) * INT_TO_REAL(#Dmax - #Dmin) + INT_TO_REAL(#Dmin));    #OutPercentage := ((((#RawTemp - #Emin) / (#Emax - #Emin)) * INT_TO_REAL(#Dmax - #Dmin) + INT_TO_REAL(#Dmin)) / INT_TO_REAL((#Dmax - #Dmin))) * 100.0;ELSE    #OutInteger := 0;    #OutPercentage := 0.0;END_IF;RETURN;

(七)冒泡法排序功能

通过冒泡法升序或降序模式排序数组。

(1)子程序调用

(2)子程序变量声明

(3)模式为1(升序)的运行结果如下图所示:

(4)模式为0(降序)的运行结果如下图所示:

(5)SCL代码

 

IF #Enable THEN

    //获取数组上限

    #L := LOWER_BOUND(ARR := #Array, DIM := 1);

    //获取数组下限

    #H := UPPER_BOUND(ARR := #Array, DIM := 1);

    //冒泡法排序

    FOR #i := #L TO #H-1 DO

        FOR #j := #L TO #H-1-#i DO

            IF #Mode THEN

                //升序

                IF #Array[#j] > #Array[#j + 1] THEN

                    #temp1 := #Array[#j];

                    #Array[#j] := #Array[#j + 1];

                    #Array[#j + 1] := #temp1;

                END_IF;

            ELSE

                //降序

                IF #Array[#j] < #Array[#j + 1] THEN

                    #temp1 := #Array[#j];

                    #Array[#j] := #Array[#j + 1];

                    #Array[#j + 1] := #temp1;

                END_IF;

            END_IF;

        END_FOR;

    END_FOR;

END_IF;

(八)斜坡函数功能

输出值按照指定斜率(单位/秒)跟随设定值,可以用来防止数值突变,这个功能可以在博途中添加扩展库函数(LGF)后直接调用Ramp函数。

(1)子程序调用

(2)子程序变量声明

(3)SCL代码#rv1:= RD_SYS_T(#ActualTime);
IF #InitFB = true THEN    #LastTime := #ActualTime;    #AuxOut := #SetPoint;    #Out := #AuxOut;END_IF;
#DeltaTime_T:= T_DIFF(IN1:=#ActualTime, IN2:=#LastTime);#DeltaTime_DI:= TIME_TO_DINT(#DeltaTime_T);#DeltaTime:= DINT_TO_REAL(#DeltaTime_DI);#DeltaTime := #DeltaTime / 1000.0;#LastTime := #ActualTime;
IF #SetPoint < #AuxOut THEN    #Out := #AuxOut;    #auxR := #AuxOut - (#Rate * #DeltaTime);    #Out := #AuxOut;    #AuxOut := MAX(IN1 := #auxR, IN2 := #SetPoint);    #Out := #AuxOut;    RETURN;ELSE    IF #SetPoint > #AuxOut THEN        #Out := #AuxOut;        #auxR := (#Rate * #DeltaTime) + #AuxOut;        #Out := #AuxOut;        #AuxOut := MIN(IN1 := #auxR, IN2 := #SetPoint);        #Out := #AuxOut;    END_IF;END_IF;RETURN;
 

联系热线:13601672085 联系人:申经理 联系地址:上海市嘉定区南翔镇众仁路399号B座20楼2007-2012室

技术和报价服务:星期一至星期六 8:00-22:00 西门子专业服务商