技术论坛

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

作者 主题
至圣

经验值: 22438
发帖数: 4202
精华帖: 8
回复: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 



别人在休息的时候,我往前走。
以下网友喜欢您的帖子:

  
重要声明:

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

帖子链接:http://www.ad.siemens.com.cn/club/bbs/post.aspx?a_id=1606605&b_id=5&s_id=0&num=0

  • 上一页
  • 1
  • 下一页
收起
回复:VB脚本怎么计时5秒输出
×
扫描打开手机版
您收到0封站内信:
×
×
信息提示
很抱歉!您所访问的页面不存在,或网址发生了变化,请稍后再试。