西门子PLC走马灯程序

以下是一个使用西门子PLC编写的走马灯程序：

1. 首先，定义一个全局变量，用于存储当前灯的位置。

VAR
  Position : INT := 0;
END_VAR

2. 在主程序中，使用一个循环语句，不断地调用一个函数，该函数用于控制灯的亮灭。

REPEAT
  ControlLight();
UNTIL FALSE;

3. 编写控制灯的函数。该函数首先将当前灯的位置加1，然后根据位置控制相应的灯亮灭。

FUNCTION ControlLight : VOID
VAR
  Light1 : BOOL;
  Light2 : BOOL;
  Light3 : BOOL;
  Light4 : BOOL;
BEGIN
  Position := (Position + 1) MOD 4;
  
  CASE Position OF
    0:
      Light1 := TRUE;
      Light2 := FALSE;
      Light3 := FALSE;
      Light4 := FALSE;
    1:
      Light1 := FALSE;
      Light2 := TRUE;
      Light3 := FALSE;
      Light4 := FALSE;
    2:
      Light1 := FALSE;
      Light2 := FALSE;
      Light3 := TRUE;
      Light4 := FALSE;
    3:
      Light1 := FALSE;
      Light2 := FALSE;
      Light3 := FALSE;
      Light4 := TRUE;
  END_CASE;
  
  // 将控制信号发送到灯的控制器
  // ...

END_FUNCTION

4. 在控制信号发送到灯的控制器之前，需要根据具体的硬件接口编写相应的代码，以实现信号的发送。

注意：以上代码仅供参考，具体实现可能会因硬件接口、PLC型号等因素而有所不同。