技术论坛

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

博途VBS代码运行差别

作者 主题
游侠

经验值: 395
发帖数: 41
精华帖: 0
主题：【探讨】博途VBS代码运行差别


只看楼主 楼主 2022-04-21 09:55:01

代码1：执行没有问题

Dim ASD 

SmartTags("intt")=0

ASD = Timer()

Do Until Timer() >= ASD + 12    

SmartTags("D20_Filename_of_Auto_Save")=Now() 

SmartTags("intt")=SmartTags("intt")+1

If Timer()< ASD Then 

ASD=Timer()

     End If

Loop

 ActivateScreen "Start", 0

 SetTag "D12_Technology_Model", 0

代码2：LOOP后面的语句不执行

Dim ASD 


ASD = Timer()

Do Until Timer() >= ASD + 12    

SmartTags("D20_Filename_of_Auto_Save")=Now() 


If Timer()< ASD Then 

ASD=Timer()

     End If

Loop

 ActivateScreen "Start", 0

 SetTag "D12_Technology_Model", 0


以上2代码运行环境是博图V15.1,TP1200触摸屏。两段代码唯一去区别是：在DO UNTIL 语句中增加了SmartTags("intt")=SmartTags("intt")+1一段语句。请高手解惑，谢谢！



 
以下网友喜欢您的帖子：
更多

  
重要声明：

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

帖子链接：https://www.ad.siemens.com.cn/club/bbs/post.aspx?a_id=1758859&b_id=5&s_id=0&num=1
至圣

经验值: 16430
发帖数: 2402
精华帖: 0
回复：博途VBS代码运行差别


只看楼主 1楼 2022-04-21 10:03:38

是条件不满足吧


开心每一天，懂得包容、感恩！
以下网友喜欢您的帖子：
更多

  
  • 上一页
  • 1
  • 下一页
收起
博途VBS代码运行差别
您收到0封站内信：
×
×
信息提示
很抱歉！您所访问的页面不存在，或网址发生了变化，请稍后再试。