.接口itf_A

INTERFACE itf_A
VAR
END_VAR
PROPERTY Literal_A : STRING

.FB fb_A1

FUNCTION_BLOCK fb_A1 IMPLEMENTS itf_A
VAR
    str_1 : STRING;
    str_2 : STRING;
    iCnt : INT;
END_VAR
iCnt := iCnt + 1;

str_1 := 'Function block A1';

.访问器fb_A1.Literal_A.Get

VAR
END_VAR
Literal_A := CONCAT (str_1,' and property.');

.访问器fb_A1.Literal_A.Set

VAR
END_VAR
str_2 := Literal_A;

.FB fb_A2

FUNCTION_BLOCK fb_A2 IMPLEMENTS itf_A
VAR
    str_1 : STRING;
    str_2 : STRING;
    iCnt : INT;
END_VAR

iCnt := iCnt + 1;
str_1 := 'Function block A2';

.访问器fb_A2.Literal_A.Get

VAR
END_VAR
Literal_A := str_1;

.访问器fb_A2.Literal_A.Set

VAR
END_VAR
str_2 := Literal_A;

.程序PLC_PRG

PROGRAM PLC_PRG
VAR
    iCnt : INT;
    my_1 : fb_A1;
    my_2 : fb_A2;
    strName_1 : STRING;
    strName_2: STRING;
END_VAR

iCnt := iCnt + 1;
my_1();
my_2();
strName_1:= my_1.Literal_A;
strName_2:= my_2.Literal_A;
my_1.Literal_A := 'Hello 1';
my_2.Literal_A := 'World 2';