VB电子计时器的制作.ppt

电子计时器的制作 一：教学目标 二、制作过程 计时器的使用 课堂作业： 1、仿照老师的例子自己设计一个正计时或是倒计时的时钟。 2、自己参考老师POWERPOINT中几个按钮代码，完善程序，使按钮能够起作用。 3、最后提交编译的可执行文件。 总结： 1、不是在计时器事件里编写代码。 2、没有设定计进器的Interval属性。 3、没有说明全局变量。 清零按钮代码： 开始计时按钮代码： 暂停按钮代码： * * 制作计时程序 欣赏时钟程序1 制作时钟程序2 （一）算法分析 1、让一个变量在1秒钟加1，同时将这个变量的值显 示在秒数所在的标签中。 2、当秒数等于60时，秒数应变为0，分钟数应加1， 同时分钟数应显示在分钟数所在的标签中。 　　计时器（timer)控件可以每隔一个时间间隔（Interval)触发一个 计时器事件（timer)。该控件在设计时显示该图标，在运行时它是 不可见。所谓时间间隔，指的是各个计时器事件之间的时间，以毫 秒为基本单位。也就是在一个间隔的时间里，该事件下的语句都要 执行一次，不停止的话不断的被执行，这就形成了循环。 　　计时器有两个重要的属性： （1）Enabled属性：决定计时器是否开始计时。 　　　为True时（默认值），计时器开始工作。 　　　为False时暂停工作。 （2）Interval属性：设置两个计时器事件之间的时间间隔。 　　　为 0 时（默认值），计时器无效。 （二）界面制作 0 Labsec : Labcolon 0 Labmin Enabled为False Interval为1000 timer1 清 零 cmdclear 暂 停 cmdpause 开始计时 cmdstart 控件标题 控件名称 Private Sub Cmdclear_Click() Timer1.Enabled = False sec = 0 Labsec.Caption = 0 Labmin.Caption = 0 Cmdclear.Enabled = False Labcolon.Visible = True End Sub Private Sub Cmdstart_Click() Timer1.Enabled = True Cmdpause.Enabled = True Cmdclear.Enabled = True End Sub Private Sub Cmdpause_Click() Timer1.Enabled = False Cmdpause.Enabled = False Labcolon.Visible = True End Sub