Question

vb的问题，我用的mscomm控件，需要用一个timer控件，间隔时间1s，在timer控件中循环执行下面代码六次。

我发现循环执行六次然后我的cpu就特别高达到100%了，这是为什么啊？
这是循环执行六次程序代码
Dim inbyte8() As Byte
Dim yanzheng12 As String
Dim com(7) As Byte
com(0) = 136
com(1) = com(0)
com(2) = 82
com(3) = 1
com(4) = 0
com(5) = 0
com(6) = 90
com(7) = 1
MSComm1.CommPort = 1
MSComm1.PortOpen = True
MSComm1.Settings = "4800,n,8,2"
MSComm1.InputMode = comInputModeBinary
MSComm1.Output = com
Dim t As Single
t = Timer
While Timer < t + 0.2
DoEvents
Wend
inbyte8 = Form1.MSComm1.Input
yanzheng12 = inbyte8

Answer 1

我怎么没看出来是循环6次?
Dim t As Single
t = Timer
While Timer < t + 0.2
DoEvents
Wend

这里死循环啊
cpu不100%就怪了

追问

我说的循环执行六次是另外有代码，就是我会调用这段程序六次，还有这怎么会死循环呢大哥？明明是延时0.2秒程序啊。。。。

追答

timer怎么变化的？
timer永远小于t+0.2

追问

t=timer '把当前时间赋给t
while timer<t+0.2 '当当前时间小于之前赋给t的时间加0.2秒时
doevents '释放
Wend
这不是当0.2秒之后跳出while？我已经测试过了啊没问题啊，就是cpu高

追答

绝对不会跳，

Answer 2

MSComm1.CommPort = 1
MSComm1.PortOpen = True
MSComm1.Settings = "4800,n,8,2"
MSComm1.InputMode = comInputModeBinary
把这些移到form_load()里面去再测试一下。

追问

额，还是不行。。。不运行到这个timer控件的时候还没事，一到这个timer事件就到100%。。。。

追答

timer运行完毕需要关闭，即timer1.enabled=false

追问

额，我这个程序需要持续好长时间运行。。。如果timer1.enabled=false就获得不了数据了，我这个程序是不是没什么占cpu的程序？我也没找到啊

追答

如果你的timer1常开，并且timer内部有循环，那么它就是死循环。

改变方法以：删除timer1内部的循环，改timer1.Interval=200,把timer1内所以不需要的东西都移的外部进行初始化。

Answer 3

循环那里没问题，确实可以跳出来。但是不清楚你既然用了Timer控件，为什么要这个延时循环？这不是互相冲突吗？

追问

是这样，下位机需要有一个响应时间，最大响应时间为0.2秒，所以我才会在timer事件中加入延时等待下位机发送回来的数据。

Answer 4

好像timer的时间单位是微妙

追问

对，我设置的是1000

追答

那你t+0.2 0.2是微妙吧

追问

刚才错了。。。timer的时间单位是毫秒不是微秒。。。还有那个timer<t+0.2中的0.2单位应该就是秒。。。

追答

一般timer控件有事件timer，这个事件是每隔Interval时间执行一次，你这种写法就有错误

追问

你好像弄混了，这个timer<t+0.2是timer()函数，和timer控件是不一样的，我是在timer时间中需要加延时，所以弄了一个这个timer函数