磁性开关程序通常用于PLC（可编程逻辑控制器）控制系统中，以检测和控制磁性开关的状态。以下是一个基于PLC的磁性开关程序示例，该程序用于检测门窗状态并发送短信报警：
```pascal
PROGRAM DoorWindowMonitoring
VAR
// 门窗状态检测
LD I0.0； // 前门磁性开关
I0.1； // 后门磁性开关
I0.2； // 窗户磁性开关
M0.0； // 门窗异常标志位
// 人体感应
LD I1.0； // 客厅感应器
I1.1； // 走廊感应器
M0.1； // 人体感应标志位
// 报警输出
LD M0.0； // 蜂鸣器输出
A M0.1； // 蜂鸣器输出控制
Q0.0； // 报警输出
END_VAR
// 程序逻辑
IF M0.0 AND M0.1 THEN
// 组装短信内容
SMS_Buffer := '家里好像进贼了!'；
// 调用发送短信的功能块
Send_SMS（
REQ := TRUE,
PORT := "Port_1",
PHONE_NO := '+8613812345678',
DATA := SMS_Buffer,
DONE => SMS_Done,
ERROR => SMS_Error
）；
END_IF；
```
解释
变量声明
`LD I0.0；` 到 `I0.2；` 用于读取前门、后门和窗户磁性开关的状态。
`M0.0；` 用于表示门窗异常标志位。
`LD I1.0；` 到 `I1.1；` 用于读取客厅和走廊感应器的状态。
`M0.1；` 用于表示人体感应标志位。
`LD M0.0；` 和 `A M0.1；` 用于控制蜂鸣器的输出。
程序逻辑
如果前门、后门和窗户的磁性开关都处于关闭状态（即 `M0.0` 为真），并且客厅或走廊感应器中至少有一个处于开启状态（即 `M0.1` 为真），则程序会组装一条短信并发送报警。
注意事项
接线：确保磁性开关的接线方式正确，常闭型开关在无磁场时电路断开，常开型开关在无磁场时电路闭合。
调试：在编写程序后，需要进行调试和测试，确保磁性开关在不同条件下能够正常工作。
这个示例程序是一个简单的应用，实际应用中可能需要根据具体需求进行更复杂的逻辑设计和调试。