FUNCTION pdktp : void

VAR_TEMP
a : INT;
b :INT;
c : WORD;

END_VAR
begin
a:=0;

WHILE a <= 30 AND NOT TPYB DO
a := a+1; // Statement Section
b:=(a-1)*176;
c:=Database.Tary[ b ].State;
IF c=1 THEN
TPYB2:=1;
END_IF;
END_WHILE;
END_FUNCTION

判读某数据块的某几个字是的值是否有为1 的 如果为1 则TPYB2 为1 并跳出执行 编译通过但是监控感觉没有执行

如果用stl写怎么写