回复:WINCC 里 VB脚本循环执行采集一遍就要暂停 3S 送到EXCEL

已锁定

西门龍霆

  • 帖子

    35
  • 精华

    0
  • 被关注

    3

论坛等级:侠客

注册时间:2016-11-28

白金 白金 如何晋级?

发布于 2021-09-23 17:03:23

13楼

Option Explicit

Private Declare Function timeGetTime Lib "winmm.dll" () As Long


Private Sub CommandButton1_Click()

Dim Savetime As Double

Savetime = timeGetTime '记下开始时的时间

While timeGetTime < Savetime + 3000 '循环等待毫秒

DoEvents '转让控制权,以便让操作系统处理其它的事件

Wend

openpicture "AA3" '需要处理的事件

End Sub


2021新年新“西”望!!!
评论
编辑推荐: 关闭

请填写推广理由:

本版热门话题

SIMATIC WinCC / Panel

共有32574条技术帖

相关推荐

热门标签

相关帖子推荐

guzhang

恭喜,你发布的帖子

评为精华帖!

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

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

  • 分享

  • 只看
    楼主

top
您收到0封站内信:
×
×
信息提示
很抱歉!您所访问的页面不存在,或网址发生了变化,请稍后再试。