鍩轰簬CODESYS骞冲彴鐨勫簱CAA_BehaviourModel.library涔婨TrigA璇﹁В

鏃犲績椋炴壃

涓婂崌娌垮紑濮嬪姩浣滐紝鍦ㄥ姩浣滃畬鎴愭垨鍐呴儴鍙戠敓閿欒��鎴栧�栭儴涓�姝�涔嬪墠涓嬮檷娌�,杈撳嚭鍊间粎鍙樺寲1涓�鍛ㄦ湡锛屽湪鍔ㄤ綔瀹屾垚鎴栧唴閮ㄥ彂鐢熼敊璇�鎴栧�栭儴涓�姝�涔嬪悗涓嬮檷娌匡紝杈撳嚭鍊间繚鐣欏埌涓嬮檷娌裤�傚�栭儴涓�姝�, 鍔ㄤ綔绔嬪嵆鍋滄�㈠苟涓旇緭鍑哄�嶄綅鍒板垵濮嬬姸鎬併��

1. FUNCTION_BLOCK ETrigA IMPLEMENTS IFBCommand
2. VAR_INPUT
3.         xInExecute: BOOL;       
4.         xInAbort: BOOL;
6. END_VAR
7. VAR_OUTPUT
8.         xOutDone: BOOL;                    //瀹屾垚
9.         xOutBusy: BOOL;                    //鎵ц�屼腑
10.         xOutError: BOOL;                //鍑洪敊
11.         xOutAborted : BOOL;            //琚�鐢ㄦ埛涓�姝�
12. END_VAR
13. VAR
14.         xPreviousAbortInProgress: BOOL;        //涓婁竴鍛ㄦ湡xAbortInProgress鐨勫��
15.         xPreviousExecute: BOOL;                        //涓婁竴鍛ㄦ湡xExecute鐨勫��
16.         xAbortInProgress: BOOL;                        //涓�姝㈠�勭悊涓�
17.         iError: INT;                                        //閿欒��浠ｇ爜
18. END_VAR
20. IF xInAbort AND xOutBusy AND NOT xAbortInProgress THEN  //鍦ㄥ姛鑳芥墽琛屼腑涓斿唴閮ㄦ湭鍑虹幇涓�姝㈡椂鐢ㄦ埛涓�姝�
21.    xAbortInProgress:= TRUE;
22. END_IF;
24. IF NOT (xAbortInProgress OR xInAbort) THEN        //涓�姝㈡湭璇锋眰
25.    IF NOT xOutBusy THEN
26.           IF NOT xInExecute AND xPreviousExecute THEN            //涓嬮檷娌垮�嶄綅杈撳嚭
27.                  prvResetOutputs();
28.           ELSIF xInExecute AND NOT xPreviousExecute THEN        //涓婂崌娌垮紑濮嬪姩浣�
29.                  xOutBusy:= TRUE;
30.                  xPreviousExecute := TRUE;
31.                  prvStart();
32.            END_IF;
33.         END_IF;
35.         IF xOutBusy THEN
36.            prvCyclicAction();
37.            IF xOutDone THEN
38.                   xOutBusy:= FALSE;
39.            END_IF;
40.         END_IF;
42.         IF xOutBusy THEN
43.            IF iError <> 0 AND NOT xPreviousAbortInProgress THEN
44.                   xAbortInProgress:= TRUE;
45.            END_IF;
46.         END_IF;
47. END_IF;
49. IF NOT xInExecute AND xInAbort AND NOT xAbortInProgress AND xOutAborted THEN        //鎵ц�屼腑鍑虹幇閿欒�� 鎴栬��鐢ㄦ埛涓�姝�
50.    prvResetOutputs();
51. END_IF;
53. IF xAbortInProgress THEN
54.    prvAbort();
55.    IF NOT xAbortInProgress THEN        //涓�姝㈠畬鎴�
56.           xOutBusy:= FALSE;
57.           IF iError <> 0 THEN
58.                  xOutError:= TRUE;
59.           END_IF;
60.           IF xInAbort THEN
61.                  xOutAborted:= TRUE;
62.           END_IF;
63.    END_IF;
64. END_IF;
66. xPreviousAbortInProgress:= xAbortInProgress;

澶嶅埗浠ｇ爜

prvAbort()锛宲rvCyclicAction()锛宲rvResetOutputs()锛宲rvStart()涓烘爣鍑嗘帴鍙�IFBCommand涓�鐨�4涓�鏂规硶銆�