请教VB程序

现在在编程,遇到一个功能,不知道用VB怎么编出来,希望高手们赐教!谢谢!
dim tag1,tag2tag3,tag4...
if (条件成立时)then
tag1=指定的变量的值(例A1)
当过半小时后,tag2=A1的值
再过半小时,tag3=A1的值
...
就这样循环,这个过半小时怎么用VB表达出来呢,还是可以用全局脚本中的定时器啊?如果是用定时器,那么请给个阅读文件学习一下。。。

最佳答案

那你肯定要用全局脚本来做了,因为你要时时监测时间差的,可以这样做;
dim tag1,tag2,tag3,tag4
dim temptime
dim num
dim 
if (条件成立)
   temptime=now     ''记录下当前的时间
  num=DateDiff("n", temptime, now)    ''''取当前时间于条件满足时刻的时间差
  select case num
        case 0                                 ''条件刚满足时时间差为0
                 tag1=A1
              case 30
                 tag2=A1                            ''条件满足半小时以后
              case 60
                 tag3=A1
              case 90
                 tag4=A1
              case else
     end select
end if
 这样给全局脚本添加一个定时器,比如十分钟一次,这样当条件满足时,每隔半小时tag1-tag4的变量会依次赋值了。

提问者对于答案的评价:
谢谢

原创文章,作者:more0621,如若转载,请注明出处:https://www.zhaoplc.com/plc263989.html

(0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2019年6月11日
下一篇 2019年6月11日

相关推荐