求个定时器程序，很简单的就可以

Question

很久没碰这个了，上学的时候还学了的，呵呵，一直做数据库开发，忘记TIMER怎么用了。时间紧迫希望各位大侠帮忙写下
要求：定时（这个时间间隔在1秒以内）监控执行
int checkstat (void)
该函数值为1时执行
readdate()函数

Answer 1

也就是说每秒内执行 checkstat
并判断值，如为1执行readdata

Answer 2

Private Sub Form_Load()
Timer1.Interval = 1000
End SubPrivate Sub Timer1_Timer()
Dim re
re = checkstat(void)
If re = 1 Then
Call readdate
End If
End Sub

Answer 3

我这里有个问题，我是串口设备，是不断监控的，如果东西放上去就读，那么还有获取数据，保存这个功能
那么定时器每秒扫描状态，一旦状态为1，应该开始读数据，保存，这个READATA我设置了5秒等待延迟的需要5秒左右，在这5秒里面，定时器是否要置为FALSE，否则，假设每1秒读1次状态的话，5秒不就保存了5次数据，