codesys寮�婧愬簱OSCATBasic.package+浣跨敤璇存槑pdf+ST璇�瑷�婧愮爜鏂囦欢

钃濊壊娓�婀�

涓�銆丱SCATBasic浠嬬粛

OSCATBasic鏄�涓�涓�寮�婧愬簱锛屽寘鍚�涓板瘜鐨勭畻娉曞嚱鏁帮紱鍦–ODESYS璧勬簮搴撻噷鎵撳紑鍚庯紝鍦ㄥ簱绠＄悊鍣ㄩ噷瀹夎�呭悗锛屽嵆鍙�鍦ㄧ▼搴忎腑浣跨敤銆傛湁瀵瑰簲鐨勬簮鐮佹枃浠讹紝鍙�浠ュ�︿範鍏朵紭绉�鐨凷T绠楁硶缂栫▼锛屾彁鍗囪兘鍔涳紱渚嬪�傛枃涓�澶ч噺閲囩敤浜嗘寚閽堟搷浣滐紝鍙�浠ュ姞娣卞�规寚閽堢殑鐞嗚В锛�

浜屻�� 鍐呭�逛粙缁�

鍖呮嫭涓�涓嬩笁涓�鏂囦欢锛�

搴撴枃浠跺簱婧愮爜鏂囦欢浣跨敤鏁欑▼鏂囨。

銆婃暀绋嬫枃妗�.pdf銆�

銆奜SCATBasic搴撴簮鐮併��

渚嬪�傚嚱鏁� _BUFFER_CLEAR锛屽叾浠ｇ爜濡備笅

1. (* @NESTEDCOMMENTS :='Yes'*)(* @PATH :='\/Buffer Management'*)(* @OBJECTFLAGS :='0, 8'*)(* @SYMFILEFLAGS :='2048'*)
2. FUNCTION _BUFFER_CLEAR : BOOL
3. VAR_INPUT
4.         PT : POINTER TO BYTE;
5.         SIZE : UINT;
6. END_VAR
7. VAR
8.         ptw : POINTER TO DWORD;
9.         temp: DWORD;
10.         end, end32 : DWORD;
11. END_VAR
14. (*
15. version 1.231. oct.2008
16. programmer         hugo
17. tested by        oscat
19. this function will initialize a given array of byte with 0.
20. the function needs to be called:_buffer_clear(adr("array"),sizeof("array"));
21. this function will manipulate a given array.
22. the function manipulates the original array, it rerturnes true when finished.
23. because this function works with pointers its very time efficient and it needs no extra memory.*)(* @END_DECLARATION :='0'*)(* this routine uses 32 bit access to gain speed *)(* first access bytes till pointer is aligned for32 bit access *)
24. temp := pt;
25. end := temp +UINT_TO_DWORD(size);
26. end32 := end -3;
27. WHILE (pt < end) AND ((temp AND 16#00000003)>0) DO
28.         pt^:=0;
29.         pt := pt +1;
30.         temp := temp +1;
31. END_WHILE;(* pointer is aligned, now copy 32 bits at a time *)
32. ptw := pt;
33. WHILE ptw < end32 DO (**)
34.         ptw^:=0;
35.         ptw := ptw +4;
36. END_WHILE;(* copy the remaining bytes in byte mode *)
37. pt := ptw;
38. WHILE pt < end DO
39.         pt^:=0;
40.         pt := pt +1;
41. END_WHILE;
43. _BUFFER_CLEAR := TRUE;

澶嶅埗浠ｇ爜

wx_4193162051

鐪嬬湅鏈変粈涔堥噸瑕佹枃浠�

suntech

鏂囦欢鍦ㄥ摢閲屼簡鍛�锛�

Martlet

鐪嬬湅锛屾槸涓嶆槸鐪熺殑

鏉庡畞dd

鏂囦欢鍦ㄥ摢鐪嬩笉鍒�

hqyylove

鍘嬫牴灏辨病涓婁紶鏂囦欢鍚э紒