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

[cfm008]

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

[treey_jm]

Timer1.Interval = 1000'表示每秒执行
然后使用if then 判断是否达到条件

[luofenghen]

看的不是很懂
是不是要1秒后执行readdate()函数
还是当int checkstat (void)
的值为1是执行 readdate()函数
。。。。

[舉杯邀明月]

Timer控件的 .Interval属性 就是设置触发周期的，单位是 ms ，把它设置成1000就可以了。

在它的 Timer() 事件中写处理代码：

Private Sub Timer1_Timer()
    If (checkstat(void) = 1) Then readdate
End Sub

[chinaboyzyq]

Private Sub Form_Load()
Timer1.Interval = 1000
End Sub

Private Sub Timer1_Timer()
if ... then ...

End Sub