灯光编程的位置程序可以根据不同的需求和场景进行设计。以下是一个基本的灯光编程位置程序的示例，使用西门子S7-1200 PLC通过TIA Portal进行编程，控制灯光开关。
1. 变量定义
```pascal
VAR
LightSensor_IN： 模拟量输入 （INT）， 光线传感器值 （0-1000）；
SceneSelect_IN： 整数输入 （INT）， 场景选择按钮 （1-3）；
AutoManual_IN： 布尔输入 （BOOL）， 自动/手动模式选择；
TRUE： 自动， FALSE： 手动；
Light1_OUT, Light2_OUT, Light3_OUT： 模拟量输出 （INT）， 控制各个灯的亮度 （0-1000）；
END_VAR
```
2. 主程序 （OB1）
```pascal
IF AutoManual_IN THEN
IF SceneSelect_IN = 1 THEN
Light1_OUT := 1000；
Light2_OUT := 1000；
Light3_OUT := 1000；
ELSEIF SceneSelect_IN = 2 THEN
Light1_OUT := 500；
Light2_OUT := 500；
Light3_OUT := 500；
ELSEIF SceneSelect_IN = 3 THEN
Light1_OUT := 200；
Light2_OUT := 200；
Light3_OUT := 200；
END_IF；
END_IF；
```
3. 光线传感器控制
```pascal
IF LightSensor_IN < 500 THEN
Light1_OUT := 1000；
Light2_OUT := 1000；
Light3_OUT := 1000；
ELSE
Light1_OUT := 0；
Light2_OUT := 0；
Light3_OUT := 0；
END_IF；
```
4. 红外传感器控制
```pascal
IF LightSensor_IN = 1000 THEN
Light1_OUT := 1000；
Light2_OUT := 1000；
Light3_OUT := 1000；
END_IF；
```
5. 定时器控制
```pascal
IF LightSensor_IN = 1000 THEN
Light1_OUT := 1000；
Light2_OUT := 1000；
Light3_OUT := 1000；
END_IF；
```
6. 调试和调整
完成编程后，需要进行调试和调整，确保程序能够正确地控制灯光的亮灭，并根据实际效果进行调整。
总结
这个示例展示了如何使用PLC编程来控制灯光的开关和亮度。根据具体需求，可以进一步扩展和优化这个程序，例如添加更多的灯光控制逻辑、优化传感器数据处理等。希望这个示例对你有所帮助。