自编西门子PLC单向电机控制程序块

1、* *单*向*电*机*控*制* *杨建伟* *安装说明* *将文件解压到西门子安装文件的S7LIBS文件夹里面，然后用step7打开库文件就可以找到Motor， * *例如：西门子step7软件装在C盘则解压到“C:Program FilesSiemensStep7S7LIBS” * *例如：西门子step7软件装在D盘则解压到“D:Program FilesSiemensStep7S7LIBS” * *QQ:357848936 * *Email：jw_yang1985 * * *数据输入* 序号 名称 数据类型 初始值 描述 _ 1 MotorControlMode BYTE 0 电机控制模

2、式。0-闭锁模式，1-自动模式，2-手动模式。 _ 2 MainPower BOOL TRUE 主电源。TRUE-主电源上电，FALSE-主电源断电。 _ 3 PowerAC380V BOOL FALSE 电机380V.AC电源。TRUE-上电，FALSE-断电。 _ 4 PowerAC220V BOOL TRUE 电机220V.AC电源。TRUE-上电，FALSE-断电。 _ 5 PowerDC24V BOOL TRUE 电机24V.DC电源。TRUE-上电，FALSE-断电。 _ 6 MotorReadyed BOOL FALSE 电机准备就绪。TRUE-电机馈电器就绪，FALSE-电机馈

3、电 器未就绪。 _ 7 Pick_upContactor BOOL FALSE 电机接触器反馈。TRUE-电机接触器吸合，FALSE-电机接 触器未吸合。 _ 8 LocalSwitch BOOL FALSE 电机本地开 关。TRUE-闭合，FALSE-断开。 _ 9 ManuStartStop BOOL FALSE 电机手动启动/停止。电机在手动模式下，如果电机处于 停机状态，ManuStartStop由FALSE变为TRUE时电机启动， 如果电机处于运转状态，ManuStartStop由FALSE变为 TRUE时电机停止运转。 _ 10 AutoStartEnable BOOL FALSE

4、 电机自动启动使能。TRUE-运行自动启动，FALSE-不允许 自动启动。 _ 11 AutoReady BOOL FALSE 电机自动就绪。电机在自动模式下，TRUE-自动已就绪， FALSE-自动未就绪。 _ 12 AutorStartStop BOOL FALSE 电机自动启动停止。电机在自动模式下，TRUE-电机自动 启动，FALSE-停止。 _ 13 MotorLocked BOOL TRUE 电机锁定。TRUE-解锁，FALSE-锁定。 _ 14 AutoReadyTimer_ON TIMER T#0MS 电机自动就绪延时通。电机在自动模式下。 _ 15 AutorStartSto

5、pTimer_ON TIMER T#0MS 电机自动启动延时通。电机在自动模式下。 _ *数据输出* 序号 名称 数据类型 初始值 描述 _ 1 MotorReady BOOL FALSE 电机中间位，准备就绪。TRUE-准备就绪，FALSE-未就绪。 _ 2 MotorRun BOOL FALSE 电机运行。TRUE-运行，FALSE-停止。 _ 3 MotorRuningLamp BOOL FALSE 电机运转指示灯。TRUE-运转，FALSE-停止。 _ 4 MotorState WORD FALSE 电机状态。 电机停止运转。 AutoStartEnable : BOOL := FAL

6、SE ; / 电机自动启动使能。TRUE-运行自动启动，FALSE-不允许自动启动。 AutoReady : BOOL := FALSE ; / 电机自动就绪。电机在自动模式下，TRUE-自动已就绪，FALSE-自动未就绪。 AutorStartStop : BOOL := FALSE ; / 电机自动启动停止。电机在自动模式下，TRUE-电机自动启动，FALSE-停止。 MotorLocked : BOOL := TRUE ; / 电机锁定。TRUE-解锁，FALSE-锁定。 AutoReadyTimer_ON : TIME := T#0MS ; / 电机自动就绪延时通时间设定。电机在自动模

7、式下。 AutorStartTimer_ON : TIME := T#0MS ; / 电机自动启动延时通时间设定。电机在自动模式下。 END_VAR (*定义输入输出参数* VAR_IN_OUT/ I/O Parameters END_VAR (*定义输出参数* VAR_OUTPUT/ Output Parameters MotorReady : BOOL := FALSE ; / 电机中间位，准备就绪。TRUE-准备就绪，FALSE-未就绪。 MotorRun : BOOL := FALSE ; / 电机运行。TRUE-运行，FALSE-停止。 MotorRuningLamp : BOOL

8、:= FALSE ; / 电机运转指示灯。TRUE-运转，FALSE-停止。 MotorState : WORD := W#16#0 ; / 电机状态。 END_VAR (*定义临时参数* VAR_TEMP/ Temporary Variables Automatism : BOOL ; / 自动模式 Atresia : BOOL ; / 闭锁模式 Manual : BOOL ; / 手动模式 AutoReadyTimerOUT : BOOL ; AutoStartTimerOUT : BOOL ; MotorStates : WORD ; / 电机状态 MotorStateST AT Mot

9、orStates : STRUCT Atresia : BOOL; / 闭锁模式。 Automatism : BOOL; / 自动模式。 Manual : BOOL; / 手动模式。 MainPower : BOOL; / 主电源。TRUE-主电源上电，FALSE-主电源断电。 PowerAC380V : BOOL; / 电机380V.AC电源。TRUE-上电，FALSE-断电。 PowerAC220V : BOOL; / 电机220V.AC电源。TRUE-上电，FALSE-断电。 PowerDC24V : BOOL; / 电机24V.DC电源。TRUE-上电，FALSE-断电。 MotorL

10、ocked : BOOL; / 电机锁定。TRUE-解锁，FALSE-锁定。 MotorReady : BOOL; / 电机中间位，准备就绪。TRUE-准备就绪，FALSE-未就绪。 MotorRun : BOOL; / 电机运行。TRUE-运行，FALSE-停止。 SysReady : BOOL; / 电机运转就绪。TRUE-就绪，FAL SE-未就绪。 MotorReadyed : BOOL; / 电机准备就绪。TRUE-电机馈电器就绪，FALSE-电机馈电器未就绪。 LocalSwitch : BOOL; / 电机本地开关。TRUE-闭合，FALSE-断开。 AutoStartEnabl

11、e : BOOL; / 电机自动启动使能。TRUE-运行自动启动，FALSE-不允许自动启动。 AutoReady : BOOL; / 电机自动就绪。电机在自动模式下，TRUE-自动已就绪，FALSE-自动未就绪。 AutorStartStop : BOOL; / 电机自动启动停止。电机在自动模式下，TRUE-电机自动启动，FALSE-停止。 END_STRUCT; END_VAR (*定义有效参数* VAR/ Static Variables ManualStart : BOOL ; / 手动启动标志。 ManualStartMid : BOOL ; / 手动启动中间标志。 SysReady

12、 : BOOL ; / 系统就绪。 AutoReadyUP : BOOL ; / 自动准备上升沿。 AutoStartUP : BOOL ; / 自动启动上升沿。 AutoReadyMid : BOOL ; / 自动准备上升沿。 AutoStartMid : BOOL ; / 自动启动上升沿。 AutoReadyTimerON : TON ; / 电机自动就绪延时通。 AutorStartTimerON : TON ; / 电机自动启动延时通。 Pick_upContactorTimer : TON ; / 接触器闭合延时时间检查。 END_VAR (*定义标签参数* LABEL END_LA

13、BEL (*控制程序开始* BEGIN/ Statement Section (*控制模式转换，转换为BOOL* Atresia:=(MotorControlMode=16#00;/闭锁 Automatism:=(MotorControlMode=16#01;/自动 Manual:=(MotorControlMode=16#02;/手动 (*将电机每个状态转换为字输出* MotorStateST.Atresia:=Atresia; / 闭锁模式。 MotorStateST.Automatism:=Automatism; / 自动模式。 MotorStateST.Manual:=Manual;

14、/ 手动模式。 MotorStateST.MainPower:=MainPower; / 主电源。TRUE-主电源上电，FALSE-主电源断电。 MotorStateST.PowerAC380V:=PowerAC380V; / 电机380V.AC电源。TRUE-上电，FALSE-断电。 MotorStateST.PowerAC220V:=PowerAC220V; / 电机220V.AC电源。TRUE-上电，FALSE-断电。 MotorStateST.PowerDC24V:=PowerDC24V; / 电机24V.DC电源。TRUE-上电，FALSE-断电。 MotorStateST.Moto

15、rLocked:=MotorLocked; / 电机锁定。TRUE-解锁，FALSE-锁定。 MotorStateST.MotorReady:=MotorReady; / 电机中间位，准备就绪。TRUE-准备就绪，FALSE-未就绪。 MotorStateST.MotorRun:=MotorRuningLamp; / 电机运行。TRUE-运行，FALSE-停止。 MotorStateST.SysReady:=SysReady; / 电机运转就绪。TRUE-就绪，FALSE-未就绪。 MotorStateST.MotorReadyed:=MotorReadyed; / 电机准备就绪。TRUE-电

16、机馈电器就绪，FALSE-电机馈电器未就绪。 MotorStateST.LocalSwitch:=LocalSwitch; / 电机本地开关。TRUE-闭合，FALSE-断开。 MotorStateST.AutoStartEnable:=AutoStartEnable; / 电机自动启动使能。TRUE-运行自动启动，FALSE-不允许自动启动。 MotorStateST.AutoReady:=AutoReady; / 电机自动就绪。电机在自动模式下，TRUE-自动已就绪，FALSE-自动未就绪。 MotorStateST.AutorStartStop:=AutorStartStop; / 电机

17、自动启动停止。电机在自动模式下，TRUE-电机自动启动，FALSE-停止。 (*延时通功能调用* AutoReadyTimerON(IN:=AutoStartEnable AND AutoReady AND Automatism AND SysReady, PT:=AutoReadyTimer_ON;/自动准备延时。 AutorStartTimerON(IN:=MotorReady AND AutorStartStop AND Automatism AND SysReady, PT:=AutorStartTimer_ON;/自动启动延时。 Pick_upContactorTimer(IN:=M

18、otorRun AND NOT Pick_upContactor , PT:=T#500MS;/运行反馈检测。 (*如果输入的时间为0则跳过时间控制，直接输出（判断输入时间是否为0）* IF AutoReadyTimer_ON = T#0MS AND AutoStartEnable AND AutoReady AND Automatism AND SysReady THEN / 自动准备好延时时间设定为0时，直接输出。 AutoReadyTimerOUT:=TRUE; ELSE / 自动准备好延时时间设定不为0时，延时输出。 AutoReadyTimerOUT:=AutoReadyTimerO

19、N.Q; END_IF; IF AutorStartTimer_ON = T#0MS AND MotorReady AND AutorStartStop AND Automatism AND SysReady THEN / 自动启动延时时间设定为0时，直接输出。 AutoStartTimerOUT:=TRUE; ELSE / 自动启动延时时间设定不为0时，延时输出。 AutoStartTimerOUT:=AutorStartTimerON.Q; END_IF; (*系统就绪* SysReady:=MotorStateST.MainPower AND MotorStateST.PowerAC38

20、0V AND MotorStateST.PowerAC220V AND MotorStateST.PowerDC24V AND MotorStateST.MotorReadyed AND MotorStateST.LocalSwitch AND MotorStateST.MotorLocked; (*手动控制本地按钮启动停止功能* ManualStart:=(ManuStartStop AND NOT ManualStartMid OR ManualStart AND (NOT ManualStartMid OR NOT ManuStartStop AND SysReady AND NOT Pick_upContactorTimer.Q; ManualStartMid:=(NOT ManuStartStop AND ManualStart OR ManualStartMid AND (ManualStart OR ManuStartStop; (