1.1 Codesys浜岃繘鍒舵暟瀛楀瓧绗︿覆涓庡瓧鑺備簰杞�

钃濊壊娓�婀�

1銆佷簩杩涘埗鏁板瓧瀛楃�︿覆杞�鎹㈡垚瀛楄妭锛屼笉鍖呭惈鍓嶇紑'2#',渚嬪�傚瓧绗�'11110000'锛岃浆鎹㈠悗寰楁暟瀛�2#11110000锛屽姛鑳戒唬鐮佸�備笅锛�

1. FUNCTION StrBin_To_Byte : BYTE
2. VAR_INPUT
3.         InString_Binary : STRING(8);        //浜岃繘鍒跺瓧绗�
4. END_VAR
5. VAR
6.         pbyTemp         : POINTER TO BYTE;
7.         iIndex          : INT;       
8. END_VAR
10. //2杩涘埗鏁板瓧瀛楃�﹁浆鎹㈡垚瀛楄妭锛屼笉鍖呭惈鍓嶇紑'2#',渚嬪�傚瓧绗�'11110000'锛岃浆鎹㈠悗寰楁暟瀛�2#11110000
11. pbyTemp := ADR(InString_Binary);
12. FOR iIndex := 1 TO 8 BY 1 DO
13.     IF pbyTemp^<48 OR pbyTemp^>49 THEN
14.            EXIT;                     //瀹為檯瀛楃�﹂暱搴﹀皬浜�8
15.         ELSIF pbyTemp^ = 48 THEN     //0瀛楃��
16.                 StrBin_To_Byte := SHL(StrBin_To_Byte,1);
17.         ELSIF pbyTemp^ = 49 THEN     //1瀛楃��
18.                 StrBin_To_Byte := SHL(StrBin_To_Byte,1)+1;
19.         END_IF;
20.         pbyTemp := pbyTemp + 1;
21. END_FOR;

澶嶅埗浠ｇ爜

杩愯�屾祴璇曠粨鏋滃�備笅锛�

2銆佸瓧鑺傝浆鎹㈡垚浜岃繘鍒舵暟瀛楀瓧绗︿覆锛屼笉鍖呭惈鍓嶇紑'2#'渚嬪�傛暟瀛�2#11110000锛岃浆鎹㈠悗寰楀瓧绗�'11110000'锛屽姛鑳戒唬鐮佸�備笅锛�

1. FUNCTION Byte_To_strBin : STRING(8)
2. VAR_INPUT
3.         InByData    : BYTE;
4. END_VAR
5. VAR
6.         iIndex      : INT;       
7.         pbyTemp     : POINTER TO BYTE;
8. END_VAR
10. //渚嬪�傛暟瀛�2#11110000锛岃浆鎹㈠悗寰楀瓧绗�'11110000'
11. pbyTemp := ADR(Byte_To_strBin);
12. FOR iIndex := 7 TO 0 BY -1 DO
13.         pbyTemp^ := (SHR(InByData,iIndex) AND 16#01) + 48;
14.         pbyTemp := pbyTemp + 1;
15. END_FOR;
16. pbyTemp^ := 0;

澶嶅埗浠ｇ爜

杩愯�屾祴璇曠粨鏋滃�備笅锛�

缁忚繃瀛︿範锛屽彲浠ュ緢蹇�杞绘澗瀹屾垚浜岃繘鍒舵暟瀛楀瓧绗︿覆涓庡瓧锛屽弻瀛楁暟瀛楃殑浜掕浆鍔熻兘銆�