8.4计时器（课件）-《程序设计基础（Visual Basic）》同步教学（电子工业出版社）

项目8 Visual Basic常用内部控件 项目导入 控件是组成程序外部表象的基本元素，通过合理整齐地布置控件，可以方便地使用程序，使程序的易用性大大提高。 项目8通过4个任务介绍 Visual Basic 工具箱中提供的另外一组常用控件，这些控件有单选按钮、复选框、框架、列表框、组合框、图像框、图片框和计时器，介绍每类控件的常用属性、事件和方法。 2 项目目标 掌握单选按钮、复选框、框架、图像框、图片框，以及计时器等控件的常用属性和使用方法。 3 任务4 计时器 任务目标 掌握计时器控件的常用属性和事件。 会用计时器控件控制事件的触发。 任务实施 计时器（也称定时器）控件借用计算机内部的时钟，实现了由计算机控制、每隔一个时间段自动触发其Timer事件，从而完成指定的操作。利用计时器可完成一些周期性的工作，它在运行时是不可见的，所以在设计阶段可以放置在窗体的任意位置。 计时器控件默认的控件名称为Timer1、Timer2、…。 4 属 性 名 类 型 说 明 Interval 数值 设置时钟控件的计时事件的时间间隔数。单位为ms(0.001s)，取值范围(0～64767)，即最大时间间隔不超过65s。如: 间隔时间为0.5s时，则Interval=500。间隔时间为1s时，则Interval=1000。Interval=0时，时钟控件失效 Enabled 布尔型 True：有效计时 False：停止时钟工作 5 1．计时器的常用属性 表8-9 计时器的常用属性 2．计时器的Timer事件 计时器控件只能响应一个事件，即该控件的 Timer 事件。当控件的 Enabled 属性值为True时，Interval 属性值的设定决定了间隔多少时间调用一次 Timer 事件。 6 【例8.8】 设计一个电子时钟程序 7 图8-16 程序运行结果 8 （1）设计界面，如图8-17所示。 图8-17 设计界面 （2）设置属性，如表8-10所示。 对 象 名 称 对象属性及属性值 Command1 Caption 为“24 小时制”，它用来切换制式：12 小时制和 24 小时制 Command2 Caption 为“退出” Label1 Caption 为“电子时钟” Label2 空，运行时显示从系统内提取时间的“时” Label3 Caption 为“时” Label4 空，运行时显示从系统内提取时间的“分” Label5 Caption 为“分” Label6 空，运行时显示从系统内提取时间的“秒” Label7 Caption 为“秒” Timer1 Interval=1000 9 表8-10 控件的属性设置 （3）编写事件代码。 编写“24 小时制”按钮的Click 事件代码： Private Sub Command1_Click( ) ' 设定活动按钮 Command1 使它可以在制式之间转换 Static flag As Boolean If flag=False Then Command1.Caption="12 小时制" flag=True Else Command1.Caption="24 小时制" flag=False End If End Sub 10 （3）编写事件代码。 编写“退出”按钮的Click 事件代码： Private Sub Command2_Click( ) '退出按钮 End End Sub 编写Timer1 计时器的Timer 事件代码： Private Sub Timer1_Timer() Form1.Caption=Time If Command1.Caption="12 小时制" Then Label2.Caption=Hour(Now) Mod 12 Else Label2.Caption=Hour(Now) End If Label4.Caption=Minute(Now) Label6.Caption=Second(Now) End Sub 11 该程序显示的是计算机系统的时间，只是每隔 1 秒钟将显示结果刷新 1 次 12 运行程序，结果如图8-16所示 利用计时器控件来修改窗体标题栏上显示的内容，要求窗体标题栏上显示系统的当前时间。 13 课堂反馈： 项目小结 控件是在图形用户界面上输入、输出信息、启动事件程序等交互操作的图形对象，是进行可视化程序设计的基础和重要工具。 通过本项目的学习，要求学生掌握单选按钮控件、复选框控件、列表框控件、组合框控件、图片框、图像框控件、计时器控件的属性、事件和方法。会运用所学控件完成简单的程序设计。 14 $$