1.3 Codesys鍗佸叚杩涘埗鏁板瓧瀛楃�︿覆涓庡瓧鑺備簰杞�

tt99166

1銆佸崄鍏�杩涘埗鏁板瓧瀛楃�︿覆杞�鎹㈡垚瀛楄妭锛屼笉鍖呭惈鍓嶇紑'16#',渚嬪�傚瓧绗︿覆'EE'锛岃浆鎹㈠悗寰楁暟瀛�16#EE(鍗佽繘鍒舵樉绀轰负238锛夛紝鍏蜂綋鍔熻兘浠ｇ爜濡備笅锛�

1. FUNCTION strHex_To_Byte : BYTE
2. VAR_INPUT
3.         InString_Hex : STRING(2);
4. END_VAR
5. VAR
6.         byTemp      : BYTE;
7.     iIndex      : INT;               
8.         pbyTemp     : POINTER TO BYTE;
9. END_VAR
12. pbyTemp := ADR(InString_Hex);
13. FOR iIndex := 0 TO 1 BY 1 DO
14.     //0-9鏁板瓧
15.     IF pbyTemp^>=48 AND pbyTemp^<=57 THEN;
16.        byTemp:=pbyTemp^-48;
17.         END_IF;
18.     //澶у啓瀛楁瘝A-E
19.     IF pbyTemp^>=65 AND pbyTemp^<=70 THEN;
20.        byTemp:=pbyTemp^-55;
21.         END_IF;
22.     //灏忓啓瀛楁瘝
23.     IF pbyTemp^>=97 AND pbyTemp^<=102 THEN;
24.        byTemp:=pbyTemp^-87;
25.         END_IF;
26.         pbyTemp:=pbyTemp+1;
27.         strHex_To_Byte:=SHL(strHex_To_Byte,4)+byTemp;
28. END_FOR;

澶嶅埗浠ｇ爜

娴嬭瘯缁撴灉濡備笅

2銆佸瓧鑺傝浆鎹㈡垚鍗佸叚杩涘埗鏁板瓧瀛楃�︿覆锛屾暟瀛�16#EE(鍗佽繘鍒舵樉绀轰负238锛夎浆鎹㈠悗寰楀瓧绗︿覆'EE'锛屽叿浣撳姛鑳戒唬鐮佸�備笅锛�

1. FUNCTION Byte_To_strHex : STRING(2)
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_strHex);
13. FOR iIndex := 1 TO 0 BY -1 DO
14.     byTemp := SHR(InByte,4*iIndex) AND 16#0F;
15.     IF byTemp>0 THEN
16.           xFlag:=TRUE;       
17.         END_IF;
18.         IF xFlag THEN
19.        IF byTemp <= 9 THEN
20.           byTemp := byTemp + 48;
21.        ELSE
22.           byTemp := byTemp + 55; //澶у啓瀛楁瘝
23.        END_IF;
24.        pbyTemp^ := byTemp;
25.        pbyTemp := pbyTemp +1;       
26.         END_IF;   
27. END_FOR;
28. pbyTemp^:= 0;

澶嶅埗浠ｇ爜

娴嬭瘯缁撴灉濡備笅锛�

缁忚繃瀛︿範锛屽彲浠ュ緢蹇�杞绘澗瀹屾垚鍗佸叚杩涘埗鏁板瓧瀛楃�︿覆涓庡瓧锛屽弻瀛楁暟瀛楃殑浜掕浆鍔熻兘銆傚叾浠栨暟瀛楀瓧绗︿覆浜掕浆閾炬帴銆�
1.1鍩轰簬Codesys骞冲彴鐨勪簩杩涘埗鏁板瓧瀛楃�︿覆涓庡瓧鑺備簰杞�
1.2鍩轰簬Codesys骞冲彴鐨勫叓杩涘埗鏁板瓧瀛楃�︿覆涓庡瓧鑺備簰杞�