铸造功能块

Question

我将 Wago PFC200 用于家庭自动化。我得到了基本功能块：

FUNCTION_BLOCK ABSTRACT Room

还有两个接口：

INTERFACE IBlinds
- BlindsUp
- BlindsDown

和

ILights
-TurnOffLights
-TurnOnLights

我房间的实例如下所示：

FUNCTION_BLOCK Garage EXTENDS Room IMPLEMENTS ILights, IBlinds

在我的 PLC_PRG 我有我房间的所有实例：

PROGRAM PLC_PRG
VAR
    Bedroom: Bedroom;
    Garage: Garage; 
    Hall: Hall;
    Boilerroom: Boilerroom;
    ...
END_VAR

在 PLC_PRG 下，我有一些方法，例如：自动化 blids：

METHOD MoveBlindsToMorningPosition
VAR CONSTANT
    siCount: SINT := 5;
END_VAR
VAR_INPUT
    xMoveSignal: BOOL;
END_VAR
VAR
    _siIndex: SINT;
    _rooms: ARRAY[0..siCount] OF POINTER TO IBlinds := [ADR(Livingroom), ADR(Diningroom), ADR(Kitchen), ADR(Toilet), ADR(Boilerroom), ADR(Garage)];
END_VAR

FOR _siIndex := 0 TO siCount DO
    _rooms[_siIndex]^.MoveBlindsToMorningPosition(xMove := xMoveSignal);
END_FOR

但我在 _rooms 数组中遇到以下编译错误：C0032: Cannot convert type 'POINTER TO Garage' to type 'POINTER TO IBlinds'

我的功能块实际上实现了 IBlinds。有没有办法投射功能块？

Answer 1

首先，一个interface已经是一个reference到一个功能块：

CODESYS always treats variables declared with the type of an interface as references.

所以应该不需要使用 pointers.

其次，要将功能块转换为接口，我个人建议在功能块内使用专用方法。例如：

INTERFACE inter1
- ...
- ToInter1

INTERFACE inter2
- ...
- ToInter2

并在 MyObject 中实现它们，例如：

ToInter1 := THIS^;

ToInter2 := THIS^;

然后你可以：

myObj: MyObject;
i1: inter1 := myObj.ToInter1();
i2: inter2 := myObj.ToInter2();

或

arr: ARRAY[x..y] OF inter1;
arr[z] := myObj.ToInter1();

至少这是我解决这个问题的方法

铸造功能块

Casting function block

plc

codesys

wago

pfc200