1.2 Codesys鍏�杩涘埗鏁板瓧瀛楃�︿覆涓庡瓧鑺備簰杞�

钃濊壊娓�婀�

1銆佸叓杩涘埗鏁板瓧瀛楃�︿覆杞�鎹㈡垚瀛楄妭锛屼笉鍖呭惈鍓嶇紑'8#',渚嬪�傚瓧绗�'177'锛岃浆鎹㈠悗寰楁暟瀛�8#177(10杩涘埗鏄剧ず涓�127锛夛紝鍏蜂綋鍔熻兘浠ｇ爜濡備笅锛�

1. FUNCTION StrOct_To_Byte : BYTE
2. VAR_INPUT
3.         InString_Octal : STRING(3);
4. END_VAR
5. VAR
6.         pbyTemp : POINTER TO BYTE;
7.         i: INT;
8. END_VAR
10. //8杩涘埗鏁板瓧瀛楃�︿覆杞�鎹㈡垚瀛楄妭锛屼笉鍖呭惈鍓嶇紑'8#'
11. pbyTemp := ADR(InString_Octal);
12. FOR I := 1 TO Standard.LEN(InString_Octal) BY 1 DO
13.         IF pbyTemp^ >= 48 AND pbyTemp^ <= 55 THEN
14.                 StrOct_To_Byte := SHL(StrOct_To_Byte,3) + (pbyTemp^ - 48);
15.         END_IF;
16.         pbyTemp := pbyTemp + 1;
17. END_FOR;

澶嶅埗浠ｇ爜

娴嬭瘯缁撴灉濡備笅

2銆佸瓧鑺傝浆鎹㈡垚鍏�杩涘埗鏁板瓧瀛楃�︿覆锛屼緥濡傛暟瀛�8#177(10杩涘埗鏄剧ず涓�127锛夎浆鎹㈠悗涓�'177'锛屽叿浣撳姛鑳戒唬鐮佸�備笅锛�

1. FUNCTION Byte_To_strOct : STRING(3)
2. VAR_INPUT
3.         InByte      : BYTE;
4. END_VAR
5. VAR
6.         xFlag       :BOOL;
7.         byTemp      : BYTE;
8.     iIndex      : INT;               
9.         pbyTemp     : POINTER TO BYTE;
10. END_VAR
12. pbyTemp := ADR(Byte_To_strOct);
13. FOR iIndex := 2 TO 0 BY -1 DO
14.     byTemp := SHR(InByte,3*iIndex) AND 16#07;
15.     IF byTemp>0 THEN
16.           xFlag:=TRUE;       
17.         END_IF;
18.         IF xFlag THEN
19.        byTemp := byTemp + 48;
20.        pbyTemp^ := byTemp;
21.        pbyTemp  := pbyTemp +1;       
22.         END_IF;   
23. END_FOR;
24. pbyTemp^:= 0;

澶嶅埗浠ｇ爜

娴嬭瘯缁撴灉濡備笅锛�

缁忚繃瀛︿範锛屽彲浠ュ緢蹇�杞绘澗瀹屾垚鍏�杩涘埗鏁板瓧瀛楃�︿覆涓庡瓧锛屽弻瀛楁暟瀛楃殑浜掕浆鍔熻兘銆�