西门子S7-1200 PLC实现工业级密码锁控制系统

虎猛

1. 项目概述与背景

在工业自动化控制系统中，安全防护一直是个重要课题。作为一名从事PLC编程多年的工程师，我最近用西门子S7-1200 PLC实现了一套密码锁控制系统，这个方案特别适合需要物理访问控制的场景，比如设备操作权限管理、重要区域门禁等。

相比传统电子密码锁，基于PLC的方案有几个显著优势：

工业级稳定性：PLC本身设计用于严苛工业环境，7x24小时运行不是问题
扩展性强：可以轻松集成到现有自动化系统中
编程灵活：通过梯形图或SCL语言可以快速实现复杂逻辑
维护方便：程序修改和密码重置都可以远程完成

这个项目实现了三个核心功能：

可修改的4位数字密码
实时数码管显示输入状态
错误次数限制与报警功能

2. 硬件配置与连接

2.1 主要硬件清单

我使用的硬件配置如下：

控制器：西门子S7-1214C DC/DC/DC
数字量输入模块：SM1221 16x24VDC输入
数字量输出模块：SM1222 16x24VDC输出
4位共阴极数码管显示模块
4x4矩阵键盘
报警蜂鸣器
电磁锁装置

注意：选择共阴极数码管是因为S7-1200的输出模块更适合这种驱动方式，如果用共阳极需要额外增加驱动电路。

2.2 详细接线方案

硬件连接是项目的基础，接线不当会导致各种奇怪问题。我的实际接线方案如下：

键盘部分：

行线(R1-R4)接至DI模块的I0.0-I0.3
列线(C1-C4)接至DO模块的Q0.0-Q0.3
采用矩阵扫描方式检测按键

数码管部分：

段选(a-g,dp)接Q1.0-Q1.7
位选(DIG1-DIG4)接Q2.0-Q2.3
通过动态扫描方式实现4位数码管显示

报警部分：

蜂鸣器接Q3.0
电磁锁接Q3.1（常闭型）

3. 软件设计与实现

3.1 变量定义与数据结构

在TIA Portal中建立的数据块如下：

pascal复制// 密码相关变量
"PasswordDB".CurrentPassword : ARRAY[1..4] OF INT := [0,0,0,0]; // 当前有效密码
"PasswordDB".InputBuffer : ARRAY[1..4] OF INT; // 输入缓冲区
"PasswordDB".NewPassword : ARRAY[1..4] OF INT; // 新密码暂存

// 系统状态变量
"SystemDB".InputPosition : INT := 1; // 当前输入位置
"SystemDB".ErrorCount : INT := 0; // 错误计数
"SystemDB".MaxErrors : INT := 3; // 最大允许错误
"SystemDB".ModifyMode : BOOL := FALSE; // 密码修改模式
"SystemDB".AlarmStatus : BOOL := FALSE; // 报警状态

// 数码管显示缓存
"DisplayDB".DigitValue : ARRAY[1..4] OF INT; // 每位显示值
"DisplayDB".SegCode : ARRAY[0..9] OF BYTE := 
    [16#3F, 16#06, 16#5B, 16#4F, 16#66, 16#6D, 16#7D, 16#07, 16#7F, 16#6F]; // 段码表

3.2 主程序逻辑流程

程序采用模块化设计，主要包含以下几个功能块：

键盘扫描功能块(FB1)：

pascal复制// 矩阵键盘扫描算法
FOR #i := 0 TO 3 DO
    // 依次激活每一列
    "KeypadColumns" := SHL(1, #i);
    
    // 读取行状态
    #rowData := "KeypadRows";
    
    // 检测按键
    IF #rowData <> 0 THEN
        // 消抖处理
        DELAY(10ms);
        IF #rowData = "KeypadRows" THEN
            // 计算键值并存入缓冲区
            "KeyValue" := #i*4 + LOG(#rowData)/LOG(2);
        END_IF;
    END_IF;
END_FOR;

密码验证功能块(FB2)：

pascal复制// 密码比对
IF "InputPosition" > 4 THEN
    #match := TRUE;
    FOR #i := 1 TO 4 DO
        IF "InputBuffer"[#i] <> "CurrentPassword"[#i] THEN
            #match := FALSE;
        END_IF;
    END_FOR;
    
    IF #match THEN
        // 密码正确，开锁
        "LockOutput" := TRUE;
        "ErrorCount" := 0;
    ELSE
        // 密码错误处理
        "ErrorCount" := "ErrorCount" + 1;
        IF "ErrorCount" >= "MaxErrors" THEN
            "AlarmStatus" := TRUE;
        END_IF;
    END_IF;
    
    // 清空输入缓冲区
    "InputPosition" := 1;
END_IF;

数码管显示功能块(FB3)：

pascal复制// 动态扫描显示
CASE "DisplayCounter" OF
    0: 
        // 显示第一位
        "SegmentOutput" := "SegCode"["DigitValue"[1]];
        "DigitSelect" := 16#01;
    1:
        // 显示第二位
        "SegmentOutput" := "SegCode"["DigitValue"[2]];
        "DigitSelect" := 16#02;
    // ... 其他位类似
END_CASE;

"DisplayCounter" := ("DisplayCounter" + 1) MOD 4;

4. 核心功能实现细节

4.1 密码修改功能实现

密码修改需要双重验证，确保安全性：

首先输入当前密码验证身份
验证通过后进入修改模式
连续输入两次新密码进行确认
两次输入一致才更新密码

具体实现代码：

pascal复制// 密码修改流程
IF "ModifyButton" AND NOT "ModifyMode" THEN
    // 进入密码验证阶段
    "ModifyMode" := TRUE;
    "ModifyStage" := 1; // 1-验证原密码
END_IF;

CASE "ModifyStage" OF
    1: // 验证原密码
        IF "InputPosition" > 4 THEN
            IF ComparePasswords("InputBuffer", "CurrentPassword") THEN
                "ModifyStage" := 2; // 进入新密码输入
                ClearInputBuffer();
            ELSE
                // 原密码错误
                "ModifyMode" := FALSE;
                "ErrorCount" := "ErrorCount" + 1;
            END_IF;
        END_IF;
    
    2: // 输入新密码
        IF "InputPosition" > 4 THEN
            CopyInputToTempPassword();
            "ModifyStage" := 3; // 确认新密码
            ClearInputBuffer();
        END_IF;
    
    3: // 确认新密码
        IF "InputPosition" > 4 THEN
            IF ComparePasswords("InputBuffer", "NewPassword") THEN
                // 两次输入一致，更新密码
                UpdatePassword();
                "ModifyMode" := FALSE;
            ELSE
                // 两次输入不一致
                "ModifyMode" := FALSE;
            END_IF;
        END_IF;
END_CASE;

4.2 数码管显示优化技巧

数码管显示有几个关键点需要注意：

扫描频率：建议在50-100Hz之间，太低会闪烁，太高会增加PLC负载
亮度均衡：通过调整每位的点亮时间可以补偿亮度差异
显示特效：可以增加输入时的闪烁效果增强交互体验

我的显示扫描中断程序：

pascal复制// 在循环中断OB中调用
IF "DisplayTimer" >= 5ms THEN  // 200Hz刷新率
    "DisplayTimer" := 0;
    
    // 先关闭所有位选
    "DigitSelect" := 16#00;
    
    // 更新当前显示位
    CASE "DisplayIndex" OF
        0: 
            "SegmentOutput" := "SegCode"["DigitValue"[1]];
            "DigitSelect".0 := 1;
        1:
            "SegmentOutput" := "SegCode"["DigitValue"[2]];
            "DigitSelect".1 := 1;
        // ... 其他位
    END_CASE;
    
    // 循环显示
    "DisplayIndex" := ("DisplayIndex" + 1) MOD 4;
END_IF;

4.3 错误处理与报警机制

完善的错误处理机制应包括：

错误计数与锁定
报警延时解除
管理员重置功能
事件记录功能

报警状态机实现：

pascal复制CASE "AlarmState" OF
    0: // 正常状态
        IF "ErrorCount" >= "MaxErrors" THEN
            "AlarmState" := 1;
            "AlarmTimer" := 0;
            "AlarmOutput" := TRUE;
        END_IF;
    
    1: // 报警激活状态
        IF "AlarmTimer" >= 30s THEN  // 持续报警30秒
            "AlarmState" := 2;
            "AlarmOutput" := FALSE;
            "LockoutTimer" := 0;
        END_IF;
    
    2: // 锁定状态
        IF "LockoutTimer" >= 300s THEN  // 锁定5分钟
            "AlarmState" := 0;
            "ErrorCount" := 0;
        END_IF;
END_CASE;

// 管理员可以强制解除报警
IF "AdminOverride" THEN
    "AlarmState" := 0;
    "ErrorCount" := 0;
    "AlarmOutput" := FALSE;
END_IF;