一、闹钟的工作原理
通过单击“开始”按钮,将输入到文本框的时间值和系统当前时间作比较,当两者相等时,调用VB内部的API函数,连续播放1分钟提示音。
二、设计闹钟界面
首先运行VB,新建一个EXE工程,在Form上添加三个Label控件,命名为“定时时间:”、“时”和“分”;然后在三个Label控件之间添加两个TextBox控件,一个用来输入小时,另一个用来输入分钟;再添加两个Command控件,命名为“开始”和“结束”;最后添加一个Timmer控件,它的Interval属性设置为3000(提示播放音的时间间隔为3秒)。
三、编写代码
为了节省时间,我已经先写好了,就是下面的代码: