Visual Basic程序设计 龚为琨 第6章 计时器和图形处理.pptVIP

第6章 计时器和图形处理 6.1 计时器应用举例 6.2 图片框属性及应用举例 6.3 图像框属性及应用举例 6.4 绘图控件的常用属性及应用举例 6.5 绘图命令及应用举例 6.6 小结 6.7 练习题 6.8 上机实习题 6.1 计时器应用举例 计时器是VB中由Windows系统内部产生的激发计时器事件的控件。计时器事件是VB中常用的一种事件，它的动作类似一个闹钟，指定一定的时间间隔，当这个时间间隔到达时控件产生一个Timer事件。可以通过控制计时器的时间间隔来控制触发频度。计时器控件通常用于给窗体设置一个时钟，也可以把它设计成秒表形式。 只要双击工具箱中的计时器(Timer)，计时器就会被设置在窗体的正中央，但它是一个无法调整大小的控件，且它在后台工作，程序执行时，在屏幕上是看不到它的。 如果需要，用户可以同时使用两个或更多的计时器。Windows把计时器控件的数目限制为10个，但一般用户很少用一个以上的计时器。 下面我们先让大家看一个简易的时钟。 【例6.1】 一个简易的时钟。 (1) 在控件菜单选项中选择计时器控件，如图6-1所示。 (2) 按照下列语句书写计时事件过程。 Private Sub Timer1_Timer() Cls 清除屏幕 Print Time$ 显示时间 End Sub (3) 修改计时器控件的Interval属性，设置值为500，执行效果如图6-2所示。 如果要关掉时钟，只要将计时器控件的Interval属性设置为0，或设置计时器控件的Enabled属性为False即可。 计时器控件的属性有多种，其中非常重要的是Interval(时间间隔)属性，它控制系统两个计时器事件的发生间隔，其值在0～65 535 ms (毫秒)之间，Interval=1000相当于1秒，0表示屏蔽计时器，不产生计时事件。设置好Interval属性之后，只要时间一到，系统就会产生一个“计时器事件”，使计时器控件开始运行。 6.1.1 设计一个实用的数字钟 设计步骤如下： (1) 在窗体上设置计时器控件Timer1和标签控件Label1，其中计时器控件是不可视的，可以放在窗体的任何位置，见图6-3。 (2) 按表6-1设置窗体的属性。 (3) 按表6-2设置计时器与标签的属性。 (4) 在计时器控件事件过程中书写程序行。 Private Sub Timer1_Timer() Label1.Caption = Time$ End Sub 此外，还需要对窗体、标签控件位置和大小进行一些细 致的调节，以得到如图6-4所示的效果。 6.1.2 设计一个计时器 设计步骤如下： (1) 在窗体上设置框架控件Frame1、计时器控件Timer1、文本框控件Text1、文本框控件Text2和命令控件Command1，其中，Text1在Frame1中。调整各控件的相对位置，使之如图6-5所示。 (2) 按表6-3设置各个控件属性。 (3) 编写事件过程代码。 Private Sub Command1_Click() Timer1.Enabled = True 打开计时器 Timer1.Tag = Text1.Text * 60 转换成秒 Frame1.Caption = 开始计时 显示 End Sub Private Sub Timer1_Timer() Timer1.Tag = Timer1.Tag - 1 倒计时 m = Timer1.Tag If m 0 Then Timer1.Enabled = False 关闭计时器 Beep 鸣叫 Text1.Text = Exit Sub End If ms = Format(m Mod 60, 00) 秒 fzs = Format((m \ 60