TwinCAT3 OOP架构咨询：如何避免GVL实现设备跨PRG交互

针对你的场景，不用GVL实现输送机和传感器的关联，有几种实用的OOP和结构化方案，其中接口方案完全可行且不会产生大量实例，以下是具体实现：

方案1：接口+依赖注入（推荐，符合OOP设计） #

通过定义传感器接口，让输送机持有接口引用，初始化时将传感器实例注入对应输送机，既解耦又避免GVL。

步骤1：定义传感器接口 #

INTERFACE ISensor
    METHOD PUBLIC GetDetectionState : BOOL
    // 若需要更多传感器数据，可扩展方法（如GetDistance等）
END_METHOD
END_INTERFACE

步骤2：传感器FB实现接口 #

FUNCTION_BLOCK PhotoSensor IMPLEMENTS ISensor
VAR
    bObjectDetected : BOOL; // 传感器内部检测状态
    // 其他传感器逻辑变量
END_VAR

// 传感器周期性执行逻辑（扫描、滤波等）
METHOD PUBLIC __NEWTONIAN__
    // 模拟传感器检测逻辑，实际替换为硬件输入读取
    bObjectDetected := I0.0; 
END_METHOD

METHOD PUBLIC GetDetectionState : BOOL
    GetDetectionState := bObjectDetected;
END_METHOD

步骤3：输送机FB添加接口引用 #

FUNCTION_BLOCK Conveyor
VAR
    _sensor : ISensor; // 持有传感器接口引用（仅引用，不创建新实例）
    bIsRunning : BOOL;
    // 其他输送机逻辑变量
END_VAR

// 注入传感器实例的方法
METHOD PUBLIC AssignSensor
VAR_INPUT
    sensorInstance : ISensor;
END_VAR
    _sensor := sensorInstance;
END_METHOD

// 输送机运行逻辑
METHOD PUBLIC Run
    IF _sensor <> NULL THEN
        // 通过接口获取传感器状态，执行输送逻辑
        IF _sensor.GetDetectionState() THEN
            bIsRunning := TRUE;
            Q0.0 := TRUE; // 控制输送机电机输出
        ELSE
            bIsRunning := FALSE;
            Q0.0 := FALSE;
        END_IF
    END_IF
END_METHOD

步骤4：顶层PRG中实例化并关联 #

PROGRAM Main
VAR
    // 实例化3台输送机和3个传感器
    conveyor1 : Conveyor;
    conveyor2 : Conveyor;
    conveyor3 : Conveyor;
    sensor1 : PhotoSensor;
    sensor2 : PhotoSensor;
    sensor3 : PhotoSensor;
END_VAR

// 初始化阶段：关联对应输送机与传感器
conveyor1.AssignSensor(sensor1);
conveyor2.AssignSensor(sensor2);
conveyor3.AssignSensor(sensor3);

// 周期性执行逻辑
sensor1();
sensor2();
sensor3();

conveyor1.Run();
conveyor2.Run();
conveyor3.Run();

优势：

• 无GVL依赖，完全通过OOP引用关联
• 接口仅作为类型引用，不会额外创建实例（实际实例还是3个传感器+3个输送机）
• 解耦设计：后续替换传感器类型（如超声波传感器），只需实现ISensor接口，无需修改输送机代码

方案2：结构化顶层PRG直接关联 #

如果场景简单，可将所有设备实例化在同一个顶层PRG中，直接传递传感器状态给输送机，无需接口。

PROGRAM Main
VAR
    conveyor1 : Conveyor;
    conveyor2 : Conveyor;
    conveyor3 : Conveyor;
    sensor1 : PhotoSensor;
    sensor2 : PhotoSensor;
    sensor3 : PhotoSensor;
END_VAR

// 先执行传感器逻辑
sensor1();
sensor2();
sensor3();

// 直接将传感器状态传入输送机运行方法
conveyor1.Run(sensor1.bObjectDetected);
conveyor2.Run(sensor2.bObjectDetected);
conveyor3.Run(sensor3.bObjectDetected);

优势：实现简单，适合小型项目；劣势：输送机与传感器耦合度高，后期扩展维护成本高。

方案3：跨PRG通过输入输出传递状态 #

若坚持将输送机和传感器分在不同PRG，可通过PRG的输入输出接口传递状态，无需GVL。

传感器PRG（SensorPRG） #

PROGRAM SensorPRG
VAR_OUTPUT
    bSensor1Detected : BOOL;
    bSensor2Detected : BOOL;
    bSensor3Detected : BOOL;
END_VAR
VAR
    sensor1 : PhotoSensor;
    sensor2 : PhotoSensor;
    sensor3 : PhotoSensor;
END_VAR

sensor1();
sensor2();
sensor3();

// 将传感器状态输出到PRG外部
bSensor1Detected := sensor1.bObjectDetected;
bSensor2Detected := sensor2.bObjectDetected;
bSensor3Detected := sensor3.bObjectDetected;

输送机PRG（ConveyorPRG） #

PROGRAM ConveyorPRG
VAR_INPUT
    bSensor1Detected : BOOL;
    bSensor2Detected : BOOL;
    bSensor3Detected : BOOL;
END_VAR
VAR
    conveyor1 : Conveyor;
    conveyor2 : Conveyor;
    conveyor3 : Conveyor;
END_VAR

// 传入传感器状态执行输送逻辑
conveyor1.Run(bSensor1Detected);
conveyor2.Run(bSensor2Detected);
conveyor3.Run(bSensor3Detected);

顶层Main PRG关联 #

PROGRAM Main
VAR
    sensorPRG : SensorPRG;
    conveyorPRG : ConveyorPRG;
END_VAR

sensorPRG();
// 将传感器PRG的输出传入输送机PRG的输入
conveyorPRG(
    bSensor1Detected := sensorPRG.bSensor1Detected,
    bSensor2Detected := sensorPRG.bSensor2Detected,
    bSensor3Detected := sensorPRG.bSensor3Detected
);

优势：保持PRG模块化；劣势：需要手动维护跨PRG的变量映射，设备数量增加时容易出错。

内容的提问来源于stack exchange，提问作者lcabal27