用VB编写一个闹钟程序

'在界面添加一个时2113间控件，把代码复制进去，5261运行就可以达到目的4102，在播放铃声1653处添加你想播放铃声的语句即可DimTtime_SAsIntegerPublicTtime_AAsIntegerPrivateSubForm_Load()Ttime_A=60*60'初始为1个小时EndSubPrivateSubTimer1_Timer()IfMe.Timer1.Enabled=TrueThenTtime_S=Ttime_S+1IfTtime_S=Ttime_AThen'播放铃声IfTtime_A=60*60Then'一小时Ttime_A=15*60ElseIfTtime_A=15*60Then'15分钟Ttime_A=60*60EndIfTtime_S=0EndIfEndSub

用Timer控件，因为他的计时不是很准，可以记录起始的时间，然后，在事件中判断当前时间与起始时间的间隔，来决定是否响铃。另一个变量决定是间隔是15分钟，还是一个时，一个时响铃后，更新起始时间。

DimT1AsInteger,T2AsInteger,FAsBooleanPrivateSubForm_Load()Timer1.Interval=60000Timer2.Interval=1000Timer3.Interval=60000Timer2.Enabled=FalseTimer3.Enabled=FalseT2=60EndSubPrivateSubTimer1_Timer()T1=T1+1IfT1>=T2ThenF=NotFIfFThenT2=15ElseT2=60T1=0Timer2.Enabled=TrueTimer3.Enabled=TrueEndIfEndSubPrivateSubTimer2_Timer()BeepEndSubPrivateSubTimer3_Timer()Timer2.Enabled=FalseTimer3.Enabled=FalseEndSub

读取时间检测

vb常用控件中有时间控件，可以解决时间间隔问题

- END -