技术论坛

 • 产品分类
 • 咱工程师的故事
 • 培训与认证答疑专区
 • 服务合作伙伴专区
本版精华和精编 本版高端推荐 本版热门 本版最高收藏

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

作者 主题
至圣

经验值: 24906
发帖数: 4536
精华帖: 10
回复：VB脚本怎么计时5秒输出


只看楼主 2020-01-26 09:16:32

在全局脚本中，创建动作，触发周期设置为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 



别人在休息的时候，我往前走。
以下网友喜欢您的帖子：
更多

  
重要声明：

著作权归作者所有。商业转载请联系作者获得授权，非商业转载请注明出处。

帖子链接：https://www.ad.siemens.com.cn/club/bbs/post.aspx?a_id=1606605&b_id=5&s_id=0&num=0
  • 上一页
  • 1
  • 下一页
收起
回复：VB脚本怎么计时5秒输出
您收到0封站内信：
×
×
信息提示
很抱歉！您所访问的页面不存在，或网址发生了变化，请稍后再试。