ASCII数据检查
检查是否可以使用n_ConversionMethod指定的转换方法和s1_Control指定的4个控制字符而正确转换由s2_AsciiData指定的区域中存储的ASCII代码。
输入
控制字符串
H:转换为十六进制ASCII数据
- 反方向
32:以32位(2字)为单位转换
存储ASCII数据的起始区域
存储转换方法的16位等效常量或16位区域
输出
存储二进制数据的起始区域
如果结果正确,系统变量sys_bIsEqual将打开。
如果结果不正确,系统变量sys_bIsEqual将关闭。
有关s1_Control和F251_ATOB的详细说明,请参阅F251_ATOB ASCII -> 二进制转换。
如果由s1_Control指定的控制字符串中有错误。
当格式为十进制时,在s1_Control中指定通常方向(+)。
当由s1_Control指定十六进制格式时,如果由n_ConversionMethod指定的每个转换单元的ASCII字符数超过4(对于16位数据)或8(对于32位数据)。
如果在n_ConversionMethod中对要转换的16位或32位(1或2个字)单元数指定0。
如果由n_ConversionMethod指定的要转换的16位或32位十进制数的数量超过存储ASCII数据的区域。
如果转换结果超过区域。
如果由s1_Control指定的控制字符串中有错误。
当格式为十进制时,在s1_Control中指定通常方向(+)。
当由s1_Control指定十六进制格式时,如果由n_ConversionMethod指定的每个转换单元的ASCII字符数超过4(对于16位数据)或8(对于32位数据)。
如果在n_ConversionMethod中对要转换的16位或32位(1或2个字)单元数指定0。
如果由n_ConversionMethod指定的要转换的16位或32位十进制数的数量超过存储ASCII数据的区域。
如果转换结果超过区域。
所有用于编程此函数的输入和输出变量已在POU头中声明。 所有编程语言使用相同的POU头。
VAR
bExecute: BOOL:=FALSE;
sString1: STRING[10]:='1234567890';
(*Important: Initialize the string with the desired current length*)
bAsciiDataAreCorrect: BOOL:=FALSE;
END_VAR
如果bExecute设置为TRUE,指令检查是否可以在控制字符串为'D-16'且转换方法为16#214时转换s2_AsciiData连接的数据。
BODY
WORKSPACE
NETWORK_LIST_TYPE := NWTYPELD ;
ACTIVE_NETWORK := 0 ;
END_WORKSPACE
NET_WORK
NETWORK_TYPE := NWTYPELD ;
NETWORK_LABEL := ;
NETWORK_TITLE := ;
NETWORK_HEIGHT := 9 ;
NETWORK_BODY
B(B_VARIN,,'D-16',21,5,23,7,);
B(B_VARIN,,16#214,21,7,23,9,);
B(B_F,F252_ACHK!,Instance,23,3,35,9,,?DEN?Ds1_Control?Ds2_AsciiData?Dn_ConversionMethod?AENO);
B(B_CONTACT,,sys_bIsEQ,36,4,38,6,);
B(B_F,Adr_Of_VarOffs_I!,Instance,10,5,19,9,,?D@'Var'?DOffs?CAdr);
B(B_VARIN,,2,8,7,10,9,);
B(B_VARIN,,sString1,8,6,10,8,);
B(B_COIL,,bAsciiDataAreCorrect,43,4,45,6,S);
B(B_COMMENT,,Result ø^bAsciiDataAreCorrect: TRUE,35,6,48,8,);
B(B_CONTACT,,bExecute,3,4,5,6,R);
B(B_COMMENT,,When bExcecute ist set to TRUE~ the instruction checks whether the data connectd atø^s2_AsciiData can be converted when the control string is 'D-16' and the conversion method 16#214.,2,1,40,3,);
L(19,7,23,7);
L(35,5,36,5);
L(38,5,43,5);
L(1,0,1,9);
L(1,5,3,5);
L(5,5,23,5);
END_NETWORK_BODY
END_NET_WORK
END_BODY
IF DF(bExecute) then
F252_ACHK(s1_Control := 'D-16', s2_AsciiData := Adr_Of_VarOffs(Var := sString1, Offs := 2), n_ConversionMethod := 16#214);
IF (sys_bIsEQ) then
bAsciiDataAreCorrect := TRUE;
end_if;
END_IF;