控 件 属 性 设置的值
Label1 Caption ″请输入限定时间(分钟):
″
Text1 Text ″″
Command1 Caption ″确认″
Timer1 Interval 60000
Enabled False
在窗体通用模块General里声明N、T两个变量,N作为计数器,T用来存放限定时间。
DIM N AS Integer
DIM T AS String
Command1- Click ( )
T=Text1.Text
Timer1.Enabled=True……
End Sub
Timer1- Timer( )
N=N+1
if n=val(T) Then
Beep
Timer1.Enabled=False
End if
End Sub
将定时器的Interval属性值设为60000,使得计数器每分钟加1,当然也可以设置为其他的值,如1000,这样就使得计数器每秒钟加1,但这样要浪费较多的系统时间。