hzy1818
級別: 家園常客
精華主題: 0
發(fā)帖數(shù)量: 440 個(gè)
工控威望: 628 點(diǎn)
下載積分: 1131 分
在線時(shí)間: 275(小時(shí))
注冊時(shí)間: 2007-08-30
最后登錄: 2024-12-22
查看hzy1818的 主題 / 回貼
24樓  發(fā)表于: 2023-06-03 15:17
ASDFG
385385
級別: 論壇先鋒
精華主題: 0
發(fā)帖數(shù)量: 496 個(gè)
工控威望: 1219 點(diǎn)
下載積分: 38246 分
在線時(shí)間: 330(小時(shí))
注冊時(shí)間: 2017-01-21
最后登錄: 2024-12-05
查看385385的 主題 / 回貼
25樓  發(fā)表于: 2023-06-08 15:51
謝謝分享
zl128828
級別: 略有小成
精華主題: 0
發(fā)帖數(shù)量: 351 個(gè)
工控威望: 445 點(diǎn)
下載積分: 1185 分
在線時(shí)間: 203(小時(shí))
注冊時(shí)間: 2018-02-01
最后登錄: 2024-11-16
查看zl128828的 主題 / 回貼
26樓  發(fā)表于: 2023-09-05 23:23
精華精華
source08
級別: 網(wǎng)絡(luò)英雄
精華主題: 0
發(fā)帖數(shù)量: 542 個(gè)
工控威望: 6774 點(diǎn)
下載積分: 7964 分
在線時(shí)間: 211(小時(shí))
注冊時(shí)間: 2011-03-01
最后登錄: 2024-12-22
查看source08的 主題 / 回貼
27樓  發(fā)表于: 2023-09-07 11:28
嵌套二層循環(huán)就可以了。
qq910877460
這操蛋的工控行業(yè)
級別: 略有小成
精華主題: 0
發(fā)帖數(shù)量: 90 個(gè)
工控威望: 244 點(diǎn)
下載積分: 3303 分
在線時(shí)間: 57(小時(shí))
注冊時(shí)間: 2014-05-20
最后登錄: 2024-11-04
查看qq910877460的 主題 / 回貼
28樓  發(fā)表于: 2023-09-11 15:19
牛逼牛逼,馬克了
操蛋的工控行業(yè),為了碎銀幾兩,又不得不搞它
發(fā)照片
問題少年
級別: 略有小成
精華主題: 0
發(fā)帖數(shù)量: 213 個(gè)
工控威望: 305 點(diǎn)
下載積分: 1534 分
在線時(shí)間: 71(小時(shí))
注冊時(shí)間: 2020-07-12
最后登錄: 2024-12-20
查看發(fā)照片的 主題 / 回貼
29樓  發(fā)表于: 2023-09-15 15:08
IF Enable THEN
    IF LDP(TRUE,ContentStart) THEN
        SortEnd:=FALSE;
        ZRST(TRUE,DataOut1[0],DataOut1[29]);
        ZRST(TRUE,DataOut2[0],DataOut2[29]);
        ZRST(TRUE,DataContent_Min[0],DataContent_Min[29]);
        ZRST(TRUE,DataContent_Max[0],DataContent_Max[29]);
        Data_i:=0;
        MoveEnd:=TRUE;
    END_IF;
    IF MoveEnd THEN
        FOR Data_i:=0 TO DataNumber-1 BY 1 DO
            DataContent_Min[Data_i]:=DataContent[Data_i];  
            DataContent_Max[Data_i]:=DataContent[Data_i];
        END_FOR;    
        SortStart:=TRUE;
        MoveEnd:=FALSE;
    END_IF;
    IF SortStart THEN
        DataNumber_i:=0;
        FOR DataNumber_i:=0 TO DataNumber-2 BY 1 DO  
            DataSort:=DataNumber-(DataNumber_i+1);
            FOR DataSort_i:=0 TO DataSort-1 BY 1 DO
                IF DataContent_Min[DataNumber_i+DataSort_i+1]<=DataContent_Min[DataNumber_i] THEN
                    DataContent_N_E_Min:=DataContent_Min[DataNumber_i];
                    DataContent_S_E_Min:=DataContent_Min[DataNumber_i+DataSort_i+1];
                    DataContent_Min[DataNumber_i]:=DataContent_S_E_Min;
                    DataContent_Min[DataNumber_i+DataSort_i+1]:=DataContent_N_E_Min;
                    DataOut2[DataNumber_i]:=DataContent_S_E_Min;
                    DataOut2[DataNumber-1]:=DataContent_N_E_Min;
                END_IF;    
                IF DataContent_Max[DataNumber_i+DataSort_i+1]>=DataContent_Max[DataNumber_i] THEN
                    DataContent_N_E_Max:=DataContent_Max[DataNumber_i];
                    DataContent_S_E_Max:=DataContent_Max[DataNumber_i+DataSort_i+1];
                    DataContent_Max[DataNumber_i]:=DataContent_S_E_Max;
                    DataContent_Max[DataNumber_i+DataSort_i+1]:=DataContent_N_E_Max;
                    DataOut1[DataNumber_i]:=DataContent_S_E_Max;
                    DataOut1[DataNumber-1]:=DataContent_N_E_Max;
                END_IF;    
            END_FOR;    
        END_FOR;
        SortStart:=FALSE;
        SortEnd:=TRUE;
    END_IF;
END_IF;
chzhuhai
級別: 探索解密
精華主題: 0
發(fā)帖數(shù)量: 115 個(gè)
工控威望: 145 點(diǎn)
下載積分: 1131 分
在線時(shí)間: 53(小時(shí))
注冊時(shí)間: 2021-02-19
最后登錄: 2024-12-16
查看chzhuhai的 主題 / 回貼
30樓  發(fā)表于: 2023-09-22 08:27
謝謝分享
maxmmx
maxmmx
級別: 探索解密
精華主題: 0
發(fā)帖數(shù)量: 18 個(gè)
工控威望: 183 點(diǎn)
下載積分: 313 分
在線時(shí)間: 17(小時(shí))
注冊時(shí)間: 2007-11-20
最后登錄: 2024-09-16
查看maxmmx的 主題 / 回貼
31樓  發(fā)表于: 2023-10-04 12:18
搜尋最大或最小值加上便址傳送並不難這種表格資料並不難,難的是你要如何將表格方式演化進(jìn)去機(jī)械流程又不會(huì)異常
wu1111bin
12345
級別: 略有小成
精華主題: 0
發(fā)帖數(shù)量: 64 個(gè)
工控威望: 364 點(diǎn)
下載積分: 3752 分
在線時(shí)間: 42(小時(shí))
注冊時(shí)間: 2023-04-03
最后登錄: 2024-12-20
查看wu1111bin的 主題 / 回貼
32樓  發(fā)表于: 2023-10-06 15:41
BMOV(TRUE,D100,K20,D200);
D0:=K20;
  
FOR D2 := 0 TO 19 BY 1 DO
    Z0:=K0;
    Z1:=K1;
    SUBP(TRUE,D0, K1, D1);
    FOR D3 := 1 TO D1 BY 1 DO
        IF   D200Z0>D200Z1  THEN
            XCH(TRUE,D200Z0,D200Z1);
        END_IF;
        INC(TRUE,Z0);
        INC(TRUE,Z1);
    END_FOR;
    DEC(TRUE,D0);
END_FOR;
;;
233708757
級別: 略有小成
精華主題: 0
發(fā)帖數(shù)量: 145 個(gè)
工控威望: 291 點(diǎn)
下載積分: 346 分
在線時(shí)間: 96(小時(shí))
注冊時(shí)間: 2008-03-04
最后登錄: 2024-11-27
查看233708757的 主題 / 回貼
33樓  發(fā)表于: 2024-01-20 21:23
謝謝分享。。。。。。。
huzhouyang
級別: 正式會(huì)員
精華主題: 0
發(fā)帖數(shù)量: 41 個(gè)
工控威望: 64 點(diǎn)
下載積分: 1428 分
在線時(shí)間: 28(小時(shí))
注冊時(shí)間: 2021-09-02
最后登錄: 2024-12-10
查看huzhouyang的 主題 / 回貼
34樓  發(fā)表于: 2024-01-23 19:43
感謝分享
deamli
爭做毛主席的好學(xué)生!
級別: 家園?
精華主題: 0
發(fā)帖數(shù)量: 225 個(gè)
工控威望: 665 點(diǎn)
下載積分: 2559 分
在線時(shí)間: 121(小時(shí))
注冊時(shí)間: 2023-03-28
最后登錄: 2024-12-21
查看deamli的 主題 / 回貼
35樓  發(fā)表于: 2024-07-25 12:22
牛逼,超贊!
沒有一天不想努力破圈,然.........