队列程序

需要自己写，编程思路可以问AI

FUNCTION_BLOCK PersistentHeadQueue
VAR_IN_OUT
    QueueData : ARRAY[1..50] OF STRUCT  // 队列存储区
        Value : REAL;                   // 示例数据类型（可替换）
    END_STRUCT
END_VAR
VAR_IN_OUT
    InSignal : BOOL;                   // 入队触发信号
    OutSignal : BOOL;                  // 出队触发信号
END_VAR
VAR_IN_OUT
    DisplayValue : REAL;               // 恒定显示首元素
END_VAR
VAR
    Head : INT := 1;                   // 头指针（锁定首元素）
    Tail : INT := 1;                   // 尾指针
    Count : INT := 0;                  // 元素计数器
    MaxSize : INT := 50;               // 队列容量
END_VAR

// 入队操作（带条件判断）
IF InSignal THEN
    IF Count < MaxSize THEN
        QueueData[Tail].Value := 100.0;  // 示例入队数据（替换为实际输入）
        Tail := (Tail MOD MaxSize) + 1;  // 环形指针计算
        Count := Count + 1;
    ELSE
        // 队列满处理（可扩展报警逻辑）
    END_IF;
    InSignal := FALSE;  // 信号复位
END_IF;

// 出队操作（带条件判断）
IF OutSignal THEN
    IF Count > 0 THEN
        DisplayValue := QueueData[Head].Value;  // 更新显示值
        Head := (Head MOD MaxSize) + 1;         // 头指针移动
        Count := Count - 1;
    ELSE
        // 队列空处理（可扩展报警逻辑）
    END_IF;
    OutSignal := FALSE;  // 信号复位
END_IF;

// 强制显示机制（关键实现）
IF Count > 0 THEN
    DisplayValue := QueueData[Head].Value;  // 每个扫描周期刷新显示
END_IF;
END_FUNCTION_BLOCK