使用结构化文本语言写一段交通灯代码

以下是使用结构化文本语言（STL）编写的一个简单的交通灯代码：

PROGRAM Traffic_Lights
VAR
    PedestrianRequest: BOOL := FALSE; // 行人请求信号
    GreenLightTimer: WORD := 0;       // 绿灯计时器
    YellowLightTimer: WORD := 0;      // 黄灯计时器
    RedLightTimer: WORD := 0;         // 红灯计时器
    currentState: INT := 0;           // 当前状态

    // 状态常量
    GreenLight: INT := 0;
    YellowLight: INT := 1;
    RedLight: INT := 2;
END_VAR

// 主程序
MAIN
    // 根据当前状态进行处理
    CASE currentState OF
        GreenLight:
            // 绿灯状态，计时器自减
            GreenLightTimer := GreenLightTimer - 1;
            
            // 如果行人请求信号被触发，则切换到黄灯状态
            IF PedestrianRequest THEN
                currentState := YellowLight;
                YellowLightTimer := 5; // 设置黄灯计时器为5秒
            END_IF
            
            // 如果绿灯计时器倒计时结束，则切换到黄灯状态
            IF GreenLightTimer = 0 THEN
                currentState := YellowLight;
                YellowLightTimer := 5; // 设置黄灯计时器为5秒
            END_IF
            
        YellowLight:
            // 黄灯状态，计时器自减
            YellowLightTimer := YellowLightTimer - 1;
            
            // 如果黄灯计时器倒计时结束，则切换到红灯状态
            IF YellowLightTimer = 0 THEN
                currentState := RedLight;
                RedLightTimer := 10; // 设置红灯计时器为10秒
            END_IF
            
        RedLight:
            // 红灯状态，计时器自减
            RedLightTimer := RedLightTimer - 1;
            
            // 如果红灯计时器倒计时结束，则切换到绿灯状态
            IF RedLightTimer = 0 THEN
                currentState := GreenLight;
                GreenLightTimer := 15; // 设置绿灯计时器为15秒
            END_IF
            
            // 如果行人请求信号被触发，则延长红灯时间，直到行人通过
            IF PedestrianRequest THEN
                RedLightTimer := RedLightTimer + 5; // 延长红灯计时器5秒
            END_IF
    END_CASE
END_PROGRAM

该代码实现了一个基本的交通灯控制器，包括绿灯、黄灯和红灯三种状态，并且可以响应行人请求信号。在实际使用时，需要根据实际情况进行修改和调整。