使用西门子S7-1200 PLC的SCL来编写跑马灯程序，可以提供一个灵活且强大的编程环境。SCL是一种高级编程语言，类似于Pascal或C语言，适用于复杂的控制算法和逻辑。
以下是一个使用SCL编写的简单跑马灯程序示例，该程序将控制8个LED灯依次点亮，形成一个跑马灯效果。
步骤 1: 创建项目和添加PLC
1. 打开TIA Portal软件。
2. 创建一个新项目，并添加S7-1200 PLC到项目中。
3. 配置PLC的硬件，确保IO模块正确配置。
步骤 2: 定义变量
在PLC的变量表中，定义以下变量：
• LED_States：一个长度为8的布尔数组，用于存储每个LED灯的状态。
• Current_LED：一个整型变量，用于指示当前点亮的LED灯的索引。
• Timer_Running：一个布尔变量，用于指示定时器是否正在运行。
• Timer_Value：一个实数变量（通常是REAL类型），用于定时器的计时。
• Timer_Preset：一个实数变量，设置定时器的时间间隔（例如，1秒）。
步骤 3: 编写STL程序
在OB1（组织块1）中编写以下STL代码：
VAR
LED_States : ARRAY[0..7] OF BOOL; // LED灯状态数组
Current_LED : INT; // 当前点亮LED的索引
Timer_Running : BOOL; // 定时器是否运行
Timer_Value : REAL; // 定时器值
Timer_Preset : REAL := 1.0; // 定时器预设值（1秒）
END_VAR
// 初始化变量（仅在首次运行时）
IF NOT INIT THEN
FOR i := 0 TO 7 DO
LED_States[i] := FALSE;
END_FOR;
Current_LED := 0;
Timer_Running := FALSE;
INIT := TRUE; // 标记为已初始化
END_IF;
// 定时器逻辑
IF Timer_Running THEN
Timer_Value := Timer_Value + T#10ms; // 假设使用10毫秒的时间基准
IF Timer_Value >= Timer_Preset THEN
Timer_Value := 0.0;
Timer_Running := FALSE;
Current_LED := (Current_LED + 1) MOD 8; // 更新当前LED索引
END_IF;
ELSE
// 如果定时器未运行，且当前LED未点亮，则启动定时器
IF NOT LED_States[Current_LED] THEN
LED_States[Current_LED] := TRUE; // 点亮当前LED
Timer_Running := TRUE;
END_IF;
END_IF;
// 熄灭前一个LED（如果需要的话，可以省略这一步，因为下一个循环会自动覆盖）
IF Current_LED > 0 AND LED_States[(Current_LED - 1) MOD 8] THEN
LED_States[(Current_LED - 1) MOD 8] := FALSE;
END_IF;
// 将LED状态输出到物理输出点（假设Q0.0到Q0.7连接LED）
FOR i := 0 TO 7 DO
IF LED_States[i] THEN
// 假设使用数组映射到物理输出，这里直接赋值
// 在实际应用中，可能需要使用特定的函数块或指令来输出
// 例如：OUT(Q[i]) := LED_States[i]; （这是一个伪代码示例）
// 在STL中，你可能需要使用类似以下的代码（具体取决于你的PLC型号和配置）：
// 这里的Q[i]需要替换为实际的输出地址，如Q0.0, Q0.1等
// 但由于STL不支持数组直接索引输出，我们需要分别处理每个输出
CASE i OF
0: Q0.0 := LED_States[0];
1: Q0.1 := LED_States[1];
2: Q0.2 := LED_States[2];
3: Q0.3 := LED_States[3];
4: Q0.4 := LED_States[4];
5: Q0.5 := LED_States[5];
6: Q0.6 := LED_States[6];
7: Q0.7 := LED_States[7];
END_CASE;
ELSE
// 同样地，这里也需要分别处理每个输出以熄灭LED
// 但由于我们在更新Current_LED时已经熄灭了前一个LED（如果有的话）
// 这里可以省略熄灭操作，除非有特殊情况需要立即熄灭所有LED
END_IF;
END_FOR;
注意：上面的代码有几个重要的问题需要解决：
1. 初始化逻辑：INIT变量用于标记PLC是否已初始化。在实际应用中，你可能需要找到一种更好的方法来处理初始化逻辑，因为STL没有内置的初始化块。
2. 输出逻辑：STL不支持直接使用数组索引来输出到物理地址。上面的代码中的Q0.0到Q0.7是伪代码，用于说明目的。在实际应用中，你需要使用TIA Portal中的“输出”指令或函数块来将布尔值赋给物理输出点。
3. 定时器实现：上面的代码假设了一个10毫秒的时间基准，并使用了一个简单的累加器来模拟定时器。在实际应用中，你应该使用PLC提供的定时器功能块（如TON、TOF或TP）来更准确地实现定时器逻辑。
4. 代码优化：上面的代码可能不是最优的，特别是输出逻辑部分。在实际应用中，你可能需要找到一种更简洁、更高效的方法来处理输出。
