PLC振动监测程序的编写通常包括以下几个步骤：
数据采集
通过振动传感器获取实时振动数据，并传入PLC的模拟量输入模块。
定义变量来存储原始信号数据和处理后的振动强度值。
数据处理
对采集到的信号进行处理，提取振动强度值。
可以包括滤波、归一化等处理步骤，以便更好地分析数据。
报警逻辑
设定一个振动阈值，当信号超过阈值时，触发报警。
可以定义不同级别的预警，如一级预警和二级预警。
显示与记录
通过HMI（人机界面）或存储功能将振动状态显示或记录下来。
可以记录振动数据的历史记录，以便后续分析和故障诊断。
故障预警算法
实现一个故障预警算法，类似于医院的病情分级，根据振动和温度的超限情况来判断预警等级。
```pascal
// 定义变量
VAR
VibrationRawReal: REAL； // 传感器采集的原始信号数据
VibrationValReal: REAL； // 处理后的振动强度值
AlarmBool: BOOL； // 振动报警状态
// 主程序逻辑
PROGRAM VibrationMonitoring
// 模拟量输入信号读取
VibrationRaw := AnalogInput_Channel1；
// 数据处理
VibrationValReal := VibrationRawReal * 1000； // 假设传感器输出电压范围为0-10V，转换为强度值
// 报警逻辑
IF VibrationValReal > 1000 THEN
AlarmBool := TRUE； // 振动超限
ELSE
AlarmBool := FALSE；
END_IF；
// 显示与记录（可选）
IF AlarmBool THEN
DisplayMessage（"振动超限!"）；
Record振动数据（VibrationValReal）；
END_IF；
END_PROGRAM
```
在这个示例中，我们定义了两个变量`VibrationRawReal`和`VibrationValReal`，分别用于存储原始信号数据和处理后的振动强度值。程序读取模拟量输入模块的信号，将其转换为振动强度值，并检查是否超过设定的阈值（例如1000）。如果超过阈值，则设置报警状态为`TRUE`，并通过显示消息和记录数据来提示用户。
请注意，这只是一个简单的示例，实际应用中可能需要更复杂的数据处理和报警逻辑。建议根据具体的传感器类型、信号范围和系统需求进行调整和优化。