Codesys2.3渚嬪瓙绋嬪簭锛圖I杈撳叆锛�: DI_Routine.pro

娆㈣繋涓嬭浇璇曠敤锛侊紒
[hide]
                               
                                [/hide]

杩欒�佺悊  姊伴《鏇� 宸ュ伐  

8888888888888888888888888888888888888888888888888888888888888888

璇锋暀妤间富锛氬簱鏂囦欢c310.lib鑳藉叡浜�鍑烘潵鍚楋紵绋嬪簭浣跨敤鍝�涓�鐗堟湰鍐欑殑鍟婏紵

妤间富鏈夋病鏈夌浉鍏崇殑瑙嗛�戞暀瀛�

瀛︿範瀛︿範锛佽阿璋㈠垎浜�锛�

鏄�涓嶆槸鑳藉�熸湁鏁翠綋鐨勭▼搴忔�佃惤

鍗佸垎鎰熻阿鏉ヨ嚜鏃犵�佸�夌尞

涓嬭浇涓嬫潵 瀛﹀�︺�傘�傘�傘�傘��

瀛︿範涓�鏈熷緟銆傘�傘�傘�傘�傘�傘��

澹版槑
FUNCTION_BLOCK FB_BubbleSortMethod_1
VAR_INPUT
聽 聽 聽 聽 EN:BOOL;//ENABLE聽 聽 聽 聽
聽 聽 moderder_mode;
聽 聽 聽 聽 data_IN:ARRAY[0..9] OF INT;
END_VAR
VAR_OUTPUT
聽 聽 聽 聽 ENO:BOOL;//out
聽 聽 聽 聽 data_OUT:ARRAY[0..9] OF INT;
END_VAR
VAR
聽 聽 聽 聽 ARR:ARRAY[0..9] OF INT;
聽 聽 聽 聽 N: INT;
聽 聽 聽 聽 I: INT;
聽 聽 聽 聽 M: INT;
聽 聽 聽 聽 J: INT;
聽 聽 聽 聽 T: int;
END_VAR

绋嬪簭
ENO:=EN;
ARR:=data_IN;
IF EN THEN聽 聽 聽 聽
聽 聽 聽 聽 IF MODE=InvertedSequence THEN
聽 聽 聽 聽 FOR聽聽N:=0 TO 9 BY 1 DO
聽 聽 聽 聽 聽 聽 IF I<9-N THEN I:=9-N; END_IF聽 聽 聽 聽
聽 聽 聽 聽 聽 聽 聽 聽 FOR M:=0 TO i-1 BY 1 DO
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 J:=M+1;聽 聽 聽 聽 聽 聽 聽 聽聽聽
聽 聽聽 聽聽 聽聽聽IF聽聽ARR[M]>ARR[J] THEN
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 T:=ARR[M];
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 ARR[M]:=ARR[J];
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 ARR[J]:=T;
聽 聽 聽 聽 聽 聽 聽 聽聽 聽 END_IF聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽
聽 聽 聽 聽 聽 聽 聽 聽 END_FOR
聽 聽 聽 聽 END_FOR
聽 聽 聽 聽 ELSIF MODE=seriation THEN
聽 聽 聽 聽 FOR聽聽N:=0 TO 9 BY 1 DO
聽 聽 聽 聽 聽 聽 IF I<9-N THEN I:=9-N; END_IF聽 聽 聽 聽
聽 聽 聽 聽 聽 聽 聽 聽 FOR M:=0 TO i-1 BY 1 DO
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 J:=M+1;聽 聽 聽 聽 聽 聽 聽 聽聽聽
聽 聽聽 聽聽 聽聽聽IF聽聽ARR[M]<ARR[J] THEN
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 T:=ARR[M];
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 ARR[M]:=ARR[J];
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 ARR[J]:=T;
聽 聽 聽 聽 聽 聽 聽 聽聽 聽 END_IF聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽
聽 聽 聽 聽 聽 聽 聽 聽 END_FOR
聽 聽 聽 聽 END_FOR
聽 聽 聽 聽 END_IF
END_IF
IF NOT EN THEN
聽 聽 聽 聽 data_OUT[0]:=
聽 聽 聽 聽 data_OUT[1]:=
聽 聽 聽 聽 data_out[2]:=
聽 聽 聽 聽 data_out[3]:=
聽 聽 聽 聽 data_out[4]:=
聽 聽 data_out[5]:=
聽 聽 聽 聽 data_out[6]:=
聽 聽 聽 聽 data_out[7]:=
聽 聽 聽 聽 data_out[8]:=
聽 聽 聽 聽 data_out[9]:=0;
END_IF
data_OUT:=ARR;澹版槑
FUNCTION_BLOCK FB_BubbleSortMethod_1
VAR_INPUT
聽 聽 聽 聽 EN:BOOL;//ENABLE聽 聽 聽 聽
聽 聽 moderder_mode;
聽 聽 聽 聽 data_IN:ARRAY[0..9] OF INT;
END_VAR
VAR_OUTPUT
聽 聽 聽 聽 ENO:BOOL;//out
聽 聽 聽 聽 data_OUT:ARRAY[0..9] OF INT;
END_VAR
VAR
聽 聽 聽 聽 ARR:ARRAY[0..9] OF INT;
聽 聽 聽 聽 N: INT;
聽 聽 聽 聽 I: INT;
聽 聽 聽 聽 M: INT;
聽 聽 聽 聽 J: INT;
聽 聽 聽 聽 T: int;
END_VAR

绋嬪簭
ENO:=EN;
ARR:=data_IN;
IF EN THEN聽 聽 聽 聽
聽 聽 聽 聽 IF MODE=InvertedSequence THEN
聽 聽 聽 聽 FOR聽聽N:=0 TO 9 BY 1 DO
聽 聽 聽 聽 聽 聽 IF I<9-N THEN I:=9-N; END_IF聽 聽 聽 聽
聽 聽 聽 聽 聽 聽 聽 聽 FOR M:=0 TO i-1 BY 1 DO
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 J:=M+1;聽 聽 聽 聽 聽 聽 聽 聽聽聽
聽 聽聽 聽聽 聽聽聽IF聽聽ARR[M]>ARR[J] THEN
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 T:=ARR[M];
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 ARR[M]:=ARR[J];
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 ARR[J]:=T;
聽 聽 聽 聽 聽 聽 聽 聽聽 聽 END_IF聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽
聽 聽 聽 聽 聽 聽 聽 聽 END_FOR
聽 聽 聽 聽 END_FOR
聽 聽 聽 聽 ELSIF MODE=seriation THEN
聽 聽 聽 聽 FOR聽聽N:=0 TO 9 BY 1 DO
聽 聽 聽 聽 聽 聽 IF I<9-N THEN I:=9-N; END_IF聽 聽 聽 聽
聽 聽 聽 聽 聽 聽 聽 聽 FOR M:=0 TO i-1 BY 1 DO
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 J:=M+1;聽 聽 聽 聽 聽 聽 聽 聽聽聽
聽 聽聽 聽聽 聽聽聽IF聽聽ARR[M]<ARR[J] THEN
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 T:=ARR[M];
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 ARR[M]:=ARR[J];
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 ARR[J]:=T;
聽 聽 聽 聽 聽 聽 聽 聽聽 聽 END_IF聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽
聽 聽 聽 聽 聽 聽 聽 聽 END_FOR
聽 聽 聽 聽 END_FOR
聽 聽 聽 聽 END_IF
END_IF
IF NOT EN THEN
聽 聽 聽 聽 data_OUT[0]:=
聽 聽 聽 聽 data_OUT[1]:=
聽 聽 聽 聽 data_out[2]:=
聽 聽 聽 聽 data_out[3]:=
聽 聽 聽 聽 data_out[4]:=
聽 聽 data_out[5]:=
聽 聽 聽 聽 data_out[6]:=
聽 聽 聽 聽 data_out[7]:=
聽 聽 聽 聽 data_out[8]:=
聽 聽 聽 聽 data_out[9]:=0;
END_IF
data_OUT:=ARR;