温度采集程序可以根据不同的硬件和传感器类型有不同的实现方法。以下是一个基于西门子S7-1200 PLC和PT100热电阻的示例程序，以及一个基于18B20数字温度传感器的示例程序。
基于西门子S7-1200 PLC和PT100热电阻的示例程序
```pascal
PROGRAM Temperature_Collection
VAR
// 定义变量
DB1: DB； // 数据块，用于存储温度值
HighAlarm: BOOL； // 温度过高报警标志
AlarmCounter: INT； // 报警计数器
END_VAR
// 主程序入口
MAIN:
// 调用FC1（温度采集）
CALL FC1；
// 调用FC2（报警逻辑）
CALL FC2；
END_MAIN
// 温度采集逻辑（FC1）
FC1:
// 读取AI模块通道1的模拟信号
READ AI_MODULE_CHANNEL1: REAL；
// 将模拟量信号转换为实际温度，存入DB1.Temperature1
DB1.Temperature1 := （AI_MODULE_CHANNEL1 / AI_MODULE_MAX_VALUE） * MEASUREMENT_RANGE；
// 重复读取其他传感器数据
FOR i := 1 TO NUMBER_OF_SENSORS DO
READ AI_MODULE_CHANNEL（i）: REAL；
DB1.Temperature（i） := （AI_MODULE_CHANNEL（i） / AI_MODULE_MAX_VALUE） * MEASUREMENT_RANGE；
END_FOR；
END_FC1
// 报警逻辑（FC2）
FC2:
// 判断温度是否超出设定范围
IF DB1.Temperature1 > ALARM_THRESHOLD THEN
HighAlarm := TRUE；
AlarmCounter := AlarmCounter + 1；
ELSE
HighAlarm := FALSE；
END_IF；
END_FC2
```
基于18B20数字温度传感器的示例程序
```pascal
PROGRAM Temperature_Collection
VAR
// 定义变量
TempH, TempL: UCHAR； // 温度的高位和低位字节
Flag_Get: BOOL； // 是否成功读取温度数据
Count: UCHAR； // 计数器
END_VAR
// 初始化
Init:
// 设置计数器
Count := 0；
// 初始化液晶模块
// ...
END_Init
// 读取温度数据
Read_Temperature:
// 发送读命令
P2 := 0x00；
P1 := 0x00；
RS := 0；
RW := 1；
E := 0；
// 等待读命令完成
WHILE （P2 != 0x39） DO
NOP；
END_WHILE；
// 读取温度数据
P2 := 0x00；
P1 := 0x00；
RS := 1；
RW := 1；
E := 0；
// 等待数据读取完成
WHILE （P2 != 0x00） DO
NOP；
END_WHILE；
// 获取温度数据
TempH := P1；
TempL := P2；
Flag_Get := TRUE；
END_Read_Temperature
// 显示温度
Display_Temperature:
// 将温度数据转换为十进制数
Temp := （TempH * 16） + TempL；
// 显示温度
// ...
END_Display_Temperature
// 主程序入口
Main:
// 初始化
CALL Init；
// 循环读取并显示温度
WHILE TRUE DO
CALL Read_Temperature；
IF Flag_Get THEN
CALL Display_Temperature；
END_IF；
// 延时
DELAY（1000）；
END_WHILE；
END_Main
```
注意事项
硬件配置：
确保硬件连接正确，传感器型号和PLC模块匹配。
传感器类型：
根据使用的传感器类型（如PT100、18B20等）调整信号读取和转换逻辑。
报警逻辑：
根据实际需求设置温度阈值和报警输出。
采样频率：
根据实际需求调整采样频率，避免数据丢失或存储空间浪费。
这些示例程序仅供参考，实际应用中可能需要根据具体情况进行调整和优化。