求个定时器程序，很简单的就可以
很久没碰这个了，上学的时候还学了的，呵呵，一直做数据库开发，忘记TIMER怎么用了。时间紧迫希望各位大侠帮忙写下要求：定时（这个时间间隔在1秒以内）监控执行
int checkstat (void)
该函数值为1时执行
readdate()函数
--------------------编程问答-------------------- 看的不是很懂
是不是要1秒后执行readdate()函数
还是当int checkstat (void)
的值为1是执行 readdate()函数
。。。。 --------------------编程问答-------------------- Timer控件的 .Interval属性 就是设置触发周期的，单位是 ms ，把它设置成1000就可以了。
在它的 Timer() 事件中写处理代码：
Private Sub Timer1_Timer()
If (checkstat(void) = 1) Then readdate
End Sub
--------------------编程问答-------------------- Private Sub Form_Load()
Timer1.Interval = 1000
End Sub
Private Sub Timer1_Timer()
if ... then ...
End Sub
--------------------编程问答-------------------- Timer1.Interval = 1000'表示每秒执行
然后使用if then 判断是否达到条件
补充：VB , 控件
