签到有奖
消息提醒
运维工程师专区
官方商城
点击复制链接
关注该帖后,有多人参加探讨会对您通知与提示!
帖子
精华
被关注
论坛等级:游侠
注册时间:2017-07-23
普通 如何晋级?
9692
18
2020-02-27 09:33:17
要求:
需要博图V16版本
需要计算机配置并安装wincc unified,需要安装步骤的可以查看我历史帖
因画面程序被删,懒得原因,画面程序需要自己动手去做
附件是程序源文件和画面视频
运算块中是程序源文件,下载后将TXT格式更改为scl格式,导入到博图中
冒泡排序.avi
运算块.txt
DATA_BLOCK "DB1"
{ S7_Optimized_Access := 'TRUE' }
VERSION : 0.1
NON_RETAIN
VAR
开始运算 : Bool;
tst2 : Bool;
tst3 : Bool;
tst4 : Bool;
END_VAR
BEGIN
END_DATA_BLOCK
FUNCTION_BLOCK "运算块"
VAR_INPUT
in : Array[1..20] of Int; //创建需要排序的数据
VAR_OUTPUT
out : Array[1..20] of Int; //排序后结果数据
num : Array[1..20] of Int;
i : Int;
j : Int;
k : Int;
m : Int;
temp : Int;
buzhixing : Bool;
运算使能边沿 : Bool;
REGION 开始运算
IF "DB1".开始运算 AND NOT #运算使能边沿 THEN
FOR #k := 1 TO 20 BY 1 DO
#num[#k] := #in[#k];
END_FOR;
ELSE
GOTO tiaochu;
END_IF;
END_REGION
REGION 排序算法
FOR #j := 0 TO 18 BY 1 DO
FOR #i := 1 TO 19 - #j BY 1 DO
IF #num[#i] > #num[#i + 1] THEN
#temp := #num[#i + 1];
#num[#i + 1] := #num[#i];
#num[#i] := #temp;
FOR #m := 1 TO 20 BY 1 DO
#out[#m] := #num[#m];
"DB1".开始运算 := 0;
tiaochu:
#buzhixing := 0;
END_FUNCTION_BLOCK
剩余80%未阅读, 请登录阅读
请填写推广理由:
什么时候考证都不晚!来1847学习+认证,带你在职场破局出圈!
助你技有所长,论有所获
首次发帖探讨工控技术话题 立获新人礼包,100中奖哦! (包含周边、书籍、兑奖西币)
共有9206条技术帖
恭喜,你发布的帖子
快扫描右侧二维码晒一晒吧!
再发帖或跟帖交流2条,就能晋升VIP啦!开启更多专属权限!
分享
只看 楼主
欢迎您访问支持中心!
丰富的视频,全方位的文档,大量的网友交流精华……
为了更好的完善这些内容,我们诚邀您在浏览结束后,花20秒左右的时间,完成一个用户在线调查!
感谢您的支持!
密码至少8位,包含大、小写字母,数字和符号至少三种。
允许邮箱和手机接收来自支持中心网站的信息
我已同意《支持中心网站注册协议和隐私政策》
微信登录扫码一键登录
验证码登录
密码登录
二维码失效点击重试
打开微信扫一扫,快速登录/注册
未注册手机验证后自动登录,注册即代表同意《支持中心网站注册协议和隐私政策》
三日内免验证登录
短信登录
登录