利用1500+SCL+wincc unified编写冒泡排序程序

已锁定

恋忆

  • 帖子

    15
  • 精华

    1
  • 被关注

    13

论坛等级:游侠

注册时间:2017-07-23

普通 普通 如何晋级?

利用1500+SCL+wincc unified编写冒泡排序程序

9321

18

2020-02-27 09:33:17

star star star

要求:

  1. 需要博图V16版本

  2. 需要计算机配置并安装wincc unified,需要安装步骤的可以查看我历史帖

  3. 因画面程序被删,懒得原因,画面程序需要自己动手去做

  4. 附件是程序源文件和画面视频

  5. 运算块中是程序源文件,下载后将TXT格式更改为scl格式,导入到博图中

  6. 冒泡排序.avi

  7. 运算块.txt

  8. DATA_BLOCK "DB1"

  9. { S7_Optimized_Access := 'TRUE' }

  10. VERSION : 0.1

  11. NON_RETAIN

  12.    VAR 

  13.       开始运算 : Bool;

  14.       tst2 : Bool;

  15.       tst3 : Bool;

  16.       tst4 : Bool;

  17.    END_VAR



  18. BEGIN


  19. END_DATA_BLOCK


  20. FUNCTION_BLOCK "运算块"

  21. { S7_Optimized_Access := 'TRUE' }

  22. VERSION : 0.1

  23.    VAR_INPUT 

  24.       in : Array[1..20] of Int;  //创建需要排序的数据

  25.    END_VAR


  26.    VAR_OUTPUT 

  27.       out : Array[1..20] of Int;   //排序后结果数据

  28.    END_VAR


  29.    VAR 

  30.       num : Array[1..20] of Int;

  31.       i : Int;

  32.       j : Int;

  33.       k : Int;

  34.       m : Int;

  35.       temp : Int;

  36.       buzhixing : Bool;

  37.       运算使能边沿 : Bool;

  38.    END_VAR



  39. BEGIN

  40. REGION 开始运算

  41.     IF  "DB1".开始运算 AND NOT #运算使能边沿 THEN

  42.         FOR #k := 1 TO 20 BY 1 DO

  43.             #num[#k] := #in[#k];

  44.         END_FOR;

  45.     ELSE

  46.         GOTO tiaochu;

  47.     END_IF;

  48. END_REGION

  49. REGION 排序算法

  50.     FOR #j := 0 TO 18 BY 1 DO

  51.         FOR #i := 1 TO 19 - #j BY 1 DO

  52.             IF #num[#i] > #num[#i + 1] THEN

  53.                 #temp := #num[#i + 1];

  54.                 #num[#i + 1] := #num[#i];

  55.                 #num[#i] := #temp;

  56.             END_IF;

  57.         END_FOR;

  58.     END_FOR;

  59.     FOR #m := 1 TO 20 BY 1 DO

  60.         #out[#m] := #num[#m];

  61.     END_FOR;

  62.     "DB1".开始运算 := 0;

  63. END_REGION

  64. tiaochu:

  65. #buzhixing := 0;

  66. END_FUNCTION_BLOCK

利用1500+SCL+wincc unified编写冒泡排序程序 已锁定
编辑推荐: 关闭

请填写推广理由:

本版热门话题

SIMATIC S7-1500系列

共有8582条技术帖

相关推荐

热门标签

相关帖子推荐

guzhang

恭喜,你发布的帖子

评为精华帖!

快扫描右侧二维码晒一晒吧!

再发帖或跟帖交流2条,就能晋升VIP啦!开启更多专属权限!

top
您收到0封站内信:
×
×
信息提示
很抱歉!您所访问的页面不存在,或网址发生了变化,请稍后再试。