回复：VB脚本怎么计时5秒输出-技术论坛-工业支持中心-西门子中国

回复：VB脚本怎么计时5秒输出

已锁定

你以为你是谁

帖子

4534
精华

10
被关注

305

论坛等级：至圣

注册时间：2007-08-02

钻石如何晋级?

发布于 2020-01-26 09:16:32

4楼

在全局脚本中，创建动作，触发周期设置为250ms，脚本如下：

Dim BOOL_A

Dim BOOL_B

Dim BOOL_C

Dim BOOL_D

Dim dStart

Dim b

Dim dNow

Set BOOL_A = HMIRuntime.Tags("A")

BOOL_A.Read

Set BOOL_B = HMIRuntime.Tags("B")

BOOL_B.Read

Set BOOL_C = HMIRuntime.Tags("C")

BOOL_C.Read

Set BOOL_D = HMIRuntime.Tags("D")

BOOL_D.Read

dStart = Now

b = True

Do While b

dNow = Now

If DateDiff("s", dStart, dNow) <= 5 Then

b = False

If BOOL_B.Value = 1 Then

BOOL_C.Write 1

Else

BOOL_C.Write 0

End If

Else

b = True

End If

Loop

If BOOL_d.Value = 1 Then

BOOL_C.Write 0

End If

别人在休息的时候，我往前走。

评论

编辑推荐：关闭

请填写推广理由：

活动公告查看全部公告>

【仅剩99份】学PLC得PLC限量学习笔记，下单立减50元享加赠

热门视频，猜你喜欢

本版热门话题

SIMATIC WinCC / Panel

共有31079条技术帖

相关推荐

热门标签

相关帖子推荐

guzhang

恭喜，你发布的帖子

被评为精华帖！

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

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

分享
只看
楼主

您收到0封站内信：

×

×

信息提示

很抱歉！您所访问的页面不存在，或网址发生了变化，请稍后再试。