我画图,一秒钟画一个点,然后有一个文本框,实时显示时间。画点的程序是用定时器中断方式(Private Sub Timer1_Timer())
那个文本框显示的时间是准的,可是用的是查询方式,代码如下:
second2 = timeGetTime
second = second2 - second1
second = second / 1000
可是画图需要用中断方式画,否则一直查询干不了别的事。
请问高手,如何解决?谢谢!
采集用的网口中断,有数据过来就触发中断。
Private Sub SckServer_DataArrival(ByVal bytesTotal As Long)
Dim MyStr As String
Dim a As Long
Dim Encoder(10) As Single
'Dim Encoder(10) As String
Dim Charnum As Integer
Dim i As Integer
'得到数据
SckServer.GetData MyStr
Charnum = Len(MyStr)
画图用定时器
Private Sub Timer1_Timer()
NWindow = N - intXMin '计算当前点位置
精度只要求到秒的话,你直接用系统时间就可以了,定时器的定时时间设置一个小于500的数字
private sub Timer1_Timer()
static s as integer
if s<>second(now)then
s=secnod(now)
'================
'等号区里的代码就是一秒钟触发一次的。
'需要注意的就是这个Timer定时器的Interval需要小于500,时间精度要求越高,数字用的越小
'================
end if
end sub