刷卡门禁系统的编程通常涉及以下步骤和代码示例：
确定编程方法
本地编程：在门禁系统安装位置的控制器上进行编程，通常通过直接连接或物理接触进行。
远程编程：通过计算机或智能手机等设备，通过网络远程连接到门禁系统进行编程。
创建用户账号和分配权限
使用门禁系统的管理软件或控制器的操作界面创建用户账号，并分配卡片或标签作为身份验证的凭据。
根据需求设置不同用户的权限，如进入特定区域的时间限制、特殊权限等。
编写控制逻辑
PLC编程：
定义输入和输出变量，如卡片是否有效、门的控制信号等。
编写逻辑控制代码，例如，当刷卡成功时，门打开；当刷卡失败时，门关闭。
使用定时器实现延时关门功能，例如，门保持打开3秒后自动关闭。
添加防抖和错误处理逻辑，确保系统稳定运行。
```pascal
VAR
CardReader: BOOL; // 卡片是否有效
DoorControl: BOOL; // 门的控制信号
Timer: TON; // 延时定时器
END_VAR
逻辑控制:
IF CardReader THEN
DoorControl := TRUE; // 门开
ELSE
DoorControl := FALSE; // 门关
END_IF
Timer(IN := CardReader, PT := T2s); // 2秒延时
IF Timer.Q THEN
DoorControl := TRUE; // 门开
END_IF
```
使用HMI进行权限管理
在HMI（人机界面）中实现权限管理，允许管理员设置和修改用户权限。
实现其他功能
防尾随和防夹保护：确保在刷卡后有人通过红外传感器检测到人通过后，重新上锁。
紧急按钮功能：增加紧急按钮，可以手动开门。
数据记录功能：建立完整的数据记录功能，记录刷卡和开门事件。
多级权限管理：配置多级权限管理，确保不同用户具有不同的权限。
快速疏散功能：添加紧急情况下的快速疏散功能。
```pascal
VAR
Card_ID: BOOL; // 读卡器输入的卡号
Open_Button: BOOL; // 手动开门按钮
Door_Lock: BOOL; // 控制电磁锁的输出
Alarm: BOOL; // 报警输出
Authorized_Cards: ARRAY[1..10] OF DINT; // 允许的卡号列表
Card_Valid: BOOL; // 卡号是否有效
END_VAR
主程序:
IF Open_Button THEN
Door_Lock := FALSE; // 打开电磁锁
ELSIF
IF CheckCard(Card_ID) THEN // CheckCard()函数用于检查卡号是否有效
Door_Lock := TRUE; // 开门
ELSE
Door_Lock := FALSE; // 关门
ALARM := TRUE; // 触发报警器
END_IF
END_IF
```
这些示例代码展示了如何使用PLC和HMI进行刷卡门禁系统的编程。具体实现可能因设备型号和系统需求而有所不同。建议参考设备的用户手册和编程指南，以获得更详细的指导和示例代码。