要求：

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. 
    

19. 
    

20. BEGIN

21. 
    

22. END_DATA_BLOCK

23. 
    

24. FUNCTION_BLOCK "运算块"

25. { S7_Optimized_Access := 'TRUE' }

26. VERSION : 0.1

27.    VAR_INPUT 

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

29.    END_VAR

30. 
    

31.    VAR_OUTPUT 

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

33.    END_VAR

34. 
    

35.    VAR 

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

37.       i : Int;

38.       j : Int;

39.       k : Int;

40.       m : Int;

41.       temp : Int;

42.       buzhixing : Bool;

43.       运算使能边沿 : Bool;

44.    END_VAR

45. 
    

46. 
    

47. BEGIN

48. REGION 开始运算

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

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

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

52.         END_FOR;

53.     ELSE

54.         GOTO tiaochu;

55.     END_IF;

56. END_REGION

59. REGION 排序算法

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

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

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

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

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

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

66.             END_IF;

67.         END_FOR;

68.     END_FOR;

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

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

71.     END_FOR;

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

73. END_REGION

74. tiaochu:

75. #buzhixing := 0;

77. END_FUNCTION_BLOCK