VB电子计时器的制作

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