找答案的高端用户(找答案钻石及双钻级别的用户)将尽可能从此问题下的所有回
答中,为您推荐最佳答案。届时您可以根据推荐数采纳答案。
如果自提问时间起7天内您仍无法选出最佳答案,您可以选择“无满意答案”关闭此问题。
1、给水泵编号1~4,
2、全局脚本编程:
vbs,周期30min:
dim run(4),pump(4),runtime(4),max
run(0)=hmiruntime.tags("pump1.run").read
run(1)=hmiruntime.tags("pump2.run").read
run(2)=hmiruntime.tags("pump3.run").read
run(3)=hmiruntime.tags("pump4.run").read
pump(0)=1
pump(1)=2
pump(2)=3
pump(3)=4
if (run(0)) then
runtime(0)=无穷大
else
runtime(0)=hmiruntime.tags("pump1.runtime").read
end if
if (run(1)) then
runtime(1)=无穷大
else
runtime(1)=hmiruntime.tags("pump2.runtime").read
end if
if (run(2)) then
runtime(2)=无穷大
else
runtime(2)=hmiruntime.tags("pump3.runtime").read
end if
if (run(3)) then
runtime(3)=无穷大
else
runtime(3)=hmiruntime.tags("pump4.runtime").read
end if
''以上如果当前泵在运行,则runtime赋值无穷大,否则就是当前实际运行时间
for i=0 to 3
for j=i to 3
if runtime(i)>runtime(j) then
max=runtime(i)
runtime(i)=runitme(j)
runtime(j)=max’运行时间交换
max=pump(i)
pump(i)=pump(j)
pump(j)=max''泵需要交换
end if
next
next
交换完成后pump()数组保存的就是应该启动泵的顺序,所以只要启动pump(0)的数值对应的泵就行了。
首次回答问题,获得
双倍西币积分!
立即成为技术知识分享的一员!
找答案微信小程序
提问
搜索
欢迎您访问支持中心!
丰富的视频,全方位的文档,大量的网友交流精华……
为了更好的完善这些内容,我们诚邀您在浏览结束后,花20秒左右的时间,完成一个用户在线调查!
感谢您的支持!