• «
  • 1
  • 2
  • 3
  • »
  • Pages: 3/3     Go
hzy1818
级别: 家园常客
精华主题: 0
发帖数量: 400 个
工控威望: 568 点
下载积分: 1044 分
在线时间: 256(小时)
注册时间: 2007-08-30
最后登录: 2024-04-18
查看hzy1818的 主题 / 回贴
24楼  发表于: 2023-06-03 15:17
只看该作者 | 小 中 大
ASDFG
385385
级别: 论坛先锋
精华主题: 0
发帖数量: 499 个
工控威望: 1219 点
下载积分: 38136 分
在线时间: 329(小时)
注册时间: 2017-01-21
最后登录: 2024-04-21
查看385385的 主题 / 回贴
25楼  发表于: 2023-06-08 15:51
只看该作者 | 小 中 大
谢谢分享
zl128828
级别: 略有小成
精华主题: 0
发帖数量: 350 个
工控威望: 443 点
下载积分: 1181 分
在线时间: 202(小时)
注册时间: 2018-02-01
最后登录: 2024-04-11
查看zl128828的 主题 / 回贴
26楼  发表于: 2023-09-05 23:23
只看该作者 | 小 中 大
精华精华
source08
级别: 网络英雄
精华主题: 0
发帖数量: 526 个
工控威望: 6257 点
下载积分: 5450 分
在线时间: 200(小时)
注册时间: 2011-03-01
最后登录: 2024-04-26
查看source08的 主题 / 回贴
27楼  发表于: 2023-09-07 11:28
只看该作者 | 小 中 大
嵌套二层循环就可以了。
qq910877460
这操蛋的工控行业
级别: 略有小成
精华主题: 0
发帖数量: 90 个
工控威望: 244 点
下载积分: 3303 分
在线时间: 57(小时)
注册时间: 2014-05-20
最后登录: 2023-09-11
查看qq910877460的 主题 / 回贴
28楼  发表于: 2023-09-11 15:19
只看该作者 | 小 中 大
牛逼牛逼，马克了
操蛋的工控行业，为了碎银几两，又不得不搞它
发照片
问题少年
级别: 略有小成
精华主题: 0
发帖数量: 213 个
工控威望: 304 点
下载积分: 1533 分
在线时间: 68(小时)
注册时间: 2020-07-12
最后登录: 2024-04-20
查看发照片的 主题 / 回贴
29楼  发表于: 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
发帖数量: 107 个
工控威望: 135 点
下载积分: 1111 分
在线时间: 49(小时)
注册时间: 2021-02-19
最后登录: 2024-04-12
查看chzhuhai的 主题 / 回贴
30楼  发表于: 2023-09-22 08:27
只看该作者 | 小 中 大
谢谢分享
maxmmx
maxmmx
级别: 探索解密
精华主题: 0
发帖数量: 18 个
工控威望: 183 点
下载积分: 313 分
在线时间: 17(小时)
注册时间: 2007-11-20
最后登录: 2024-03-26
查看maxmmx的 主题 / 回贴
31楼  发表于: 2023-10-04 12:18
只看该作者 | 小 中 大
搜尋最大或最小值加上便址傳送並不難這種表格資料並不難,難的是你要如何將表格方式演化進去機械流程又不會異常
wu1111bin
12345
级别: 略有小成
精华主题: 0
发帖数量: 58 个
工控威望: 357 点
下载积分: 2727 分
在线时间: 36(小时)
注册时间: 2023-04-03
最后登录: 2024-04-25
查看wu1111bin的 主题 / 回贴
32楼  发表于: 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
发帖数量: 134 个
工控威望: 275 点
下载积分: 310 分
在线时间: 89(小时)
注册时间: 2008-03-04
最后登录: 2024-04-24
查看233708757的 主题 / 回贴
33楼  发表于: 2024-01-20 21:23
只看该作者 | 小 中 大
谢谢分享。。。。。。。
huzhouyang
级别: 正式会员
精华主题: 0
发帖数量: 41 个
工控威望: 64 点
下载积分: 1408 分
在线时间: 27(小时)
注册时间: 2021-09-02
最后登录: 2024-04-10
查看huzhouyang的 主题 / 回贴
34楼  发表于: 2024-01-23 19:43
只看该作者 | 小 中 大
感谢分享
  • «
  • 1
  • 2
  • 3
  • »
  • Pages: 3/3     Go