每周一个编程小例子：电梯控制程序

剑指工控 · 2026-6-27 07:28:55

JZGKCHINA

工控技术分享平台

引言

电梯是现代建筑中不可或缺的交通工具，其安全和高效运行对于人们的日常生活至关重要。随着自动化技术的发展，越来越多的电梯系统开始采用 PLC（可编程逻辑控制器）进行智能控制。本文将介绍一个基于 PLC 的电梯控制程序，旨在实现楼层呼叫、智能开关门以及超载保护等功能，使电梯运行更加安全、便捷。

1

程序代码及介绍

下面是完整的 PLC 程序代码(代码基于 CodeSys 平台的 ST 语言)：

FUNCTION_BLOCK FB_ElevatorControlVAR_INPUT CallButtons : ARRAY[1..cMaxFloors] OF BOOL; // 楼层呼叫按钮 FloorSensors : ARRAY[1..cMaxFloors] OF BOOL; // 楼层传感器 DoorOpenBtn : BOOL; // 开门按钮 DoorCloseBtn : BOOL; // 关门按钮 DoorObstacle : BOOL; // 门障碍物传感器 Overload : BOOL; // 超载传感器END_VARVAR_OUTPUT MotorUp : BOOL; // 电机上升 MotorDown : BOOL; // 电机下降 DoorOpen : BOOL; // 开门 DoorClose : BOOL; // 关门 CurrentFloor : INT; // 当前楼层 Direction : INT; // 方向：0=停止，1=上升，2=下降END_VARVAR State : (IDLE, MOVING, DOOR_OPENING, DOOR_OPEN, DOOR_CLOSING); TargetFloor : INT; DoorTimer : TON; MoveTimer : TON; LastFloorSensor : ARRAY[1..cMaxFloors] OF BOOL; I : INT;END_VARVAR CONSTANT cMaxFloors : INT := 5;END_VAR// 检测楼层传感器变化，更新当前楼层FOR i := 1 TO cMaxFloors DO IF FloorSensors AND NOT LastFloorSensor THEN CurrentFloor := i; END_IF LastFloorSensor := FloorSensors;END_FORCASE State OF IDLE: // 检查是否有呼叫 TargetFloor := 0; FOR i := 1 TO cMaxFloors DO IF CallButtons THEN TargetFloor := i; EXIT; END_IF END_FOR IF TargetFloor > 0 THEN IF TargetFloor > CurrentFloor THEN Direction := 1; // 上升 ELSIF TargetFloor < CurrentFloor THEN Direction := 2; // 下降 ELSE State := DOOR_OPENING; Direction := 0; RETURN; END_IF State := MOVING; END_IF MOVING: IF Direction = 1 THEN MotorUp := TRUE; // 模拟运行时间，实际中应由楼层传感器触发 MoveTimer(IN := TRUE, PT := T#3s); IF MoveTimer.Q OR (TargetFloor = CurrentFloor) THEN MotorUp := FALSE; State := DOOR_OPENING; Direction := 0; END_IF ELSIF Direction = 2 THEN MotorDown := TRUE; MoveTimer(IN := TRUE, PT := T#3s); IF MoveTimer.Q OR (TargetFloor = CurrentFloor) THEN MotorDown := FALSE; State := DOOR_OPENING; Direction := 0; END_IF END_IF DOOR_OPENING: DoorOpen := TRUE; DoorTimer(IN := TRUE, PT := T#2s); IF DoorTimer.Q THEN State := DOOR_OPEN; DoorTimer(IN := FALSE); END_IF DOOR_OPEN: // 开门状态保持，等待关门命令或超时 DoorOpen := TRUE; IF DoorCloseBtn AND NOT DoorObstacle THEN State := DOOR_CLOSING; END_IF // 超时自动关门 DoorTimer(IN := TRUE, PT := T#10s); IF DoorTimer.Q THEN State := DOOR_CLOSING; DoorTimer(IN := FALSE); END_IF DOOR_CLOSING: DoorClose := TRUE; DoorTimer(IN := TRUE, PT := T#2s); IF DoorTimer.Q THEN DoorOpen := FALSE; DoorClose := FALSE; State := IDLE; DoorTimer(IN := FALSE); END_IF // 关门过程中遇到障碍物，重新开门 IF DoorObstacle THEN State := DOOR_OPENING; DoorClose := FALSE; END_IFEND_CASE// 超载时不能关门IF Overload AND State = DOOR_CLOSING THEN State := DOOR_OPENING; DoorClose := FALSE;END_IF