在博途（TIA Portal）中编写计时程序，通常涉及使用IEC定时器或接通延时定时器（TON）。以下是使用接通延时定时器（TON）编写计时程序的步骤：
初始化
使用`TON`指令开始计时。
设置标志位（如`M0.1`）以确定计时器的状态。
配置定时器参数
设置接通延时时间（`PT`）。
设置输出标志位（如`Q0.1`）以产生脉冲信号。
启动定时器
调用`TON`指令，并传入定时器编号和所需的参数。
等待定时器完成
使用标志位（如`M0.0`）来检测定时器是否完成。
停止定时器
根据需要停止定时器，并处理输出信号。
```pascal
PROGRAM TimerExample
VAR
// 定义标志位
M0.0: BOOL; // 触发标志
M0.1: BOOL; // 输出标志
// 定义定时器参数
PT: TIME := T1s; // 接通延时时间设置为1秒
END_VAR
// 初始化程序
BEGIN
// 初始化标志位
M0.0 := FALSE;
M0.1 := FALSE;
END_BEGIN
// 定时器逻辑
IF M0.0 THEN
// 当触发标志为真时，执行以下操作
IF NOT M0.1 THEN
// 如果输出标志为假，则设置输出标志为真
M0.1 := TRUE;
// 启动接通延时定时器，设置延时时间为PT
TON(1, PT);
END_IF;
END_IF;
// 输出脉冲信号
IF M0.1 THEN
// 当输出标志为真时，执行以下操作
// 输出脉冲信号到Q0.1
OUT(Q0.1, TRUE);
// 重置输出标志
M0.1 := FALSE;
END_IF;
END_PROGRAM
```
在这个示例中，我们使用了一个单一的接通延时定时器（TON）来生成一个周期性脉冲信号。当`M0.0`为真时，程序会启动定时器，并在定时器完成时设置`M0.1`为真。然后，程序会输出一个脉冲信号到`Q0.1`，并重置`M0.1`以准备下一次脉冲的生成。
请注意，这只是一个简单的示例，实际应用中可能需要更复杂的逻辑来满足特定的计时需求。建议参考博途的官方文档和示例程序，以获得更详细的信息和更复杂的示例。