《项目10制作简单时钟剖析》由会员分享，可在线阅读，更多相关《项目10制作简单时钟剖析（19页珍藏版）》请在金锄头文库上搜索。
1、VB程序设计项目化教程 Visual Basic 程序设计 项目化教程 n主编 管小清 郭贺彬 VB程序设计项目化教程 中国水利水电出版社 项目十 制作简单时钟 n项目目标： n本项目是制作一个带有时针、分针和秒针功能的简单时钟；利用计时器 Timer控件控制时针、分针和秒针的转动；实现时钟的基本功能。掌握 Timer控件的使用；掌握Now（）函数的使用；掌握VB的图形画法等。 n项目主要知识点： n1、Shape控件的使用方法 n基本属性 n特有属性 n2、Line控件的使用方法 n3、Timer控件的使用 n重要属性 n重要事件 VB程序设计项目化教程 中国水利水电出版社 项目十 制作简单
2、时钟 n4、日期、时间函数的使用 n5、VB的图形画法 nCircle方法 nPSet方法 n6、程序的模块化设计 n项目实施步骤： n掌握相关基础知识 n界面设计 o 窗体设计 o 控件属性设置 n程序设计 o 编程初步 o 程序代码 n程序调试，功能完善 n保存项目工程 VB程序设计项目化教程 中国水利水电出版社 10.1 第1步：基础知识 n10.1.1 Shape控件的使用方法 n使用形状控件(Shape)可在窗体或其他控件容器中画出矩形、正方形、圆、椭圆、 圆角矩形或圆角正方形。形状控件的Shape属性决定了它的图形样式，这个属性 的所有可能取值都有对应的形状样式。 n1、形状控件的
3、常用属性 nLeft、Top、Width、Height、BorderWidth、BorderColor、BackColor、 FillColor、BorderStyle。 nLeft、Top、Width和Height属性决定形状控件的位置和大小，也可以用Move 方法改变它的大小和位置。 nBorderWidth属性设置图形边界宽度。它的值是以像素为单位的边线宽度。 nBorderColor属性设置图形边界颜色。 nBorderStyle属性设置边界线的类型。 nFillColor属性设置图形的前景颜色。 n如果要为图形填充颜色(背景)时,首先应该将属性FillStyle(填充方式)设置成1(
4、透明 ),否则FillColor(前景色)的颜色会遮盖了背景色,达不到预期的目的。 VB程序设计项目化教程 中国水利水电出版社 10.1 第1步：基础知识 n2、形状控件的特有属性 nShape属性 n该属性用来设置图形的形状。 n 0Rectangle 矩形 n 1Square 正方形 n 2Oval 椭圆形 n 3Circle 圆形 n 4Rounded Rectangle 圆角矩形 n 5Rounded Square 圆角正方形 nShape属性的缺省值为0(矩形)。若选择3,则用Shape控件画出的矩形中画出一个圆(圆的直径 是矩形的短边)。 nBackStyle属性 n该属性用来设置
5、图形背景的风格 n 0Transparent(透明) n 1Opaque(不透明) n缺省值为0。如果着色,显然要将BackStyle属性设置为“不透明”。 nFillStyle属性 n该属性用来设置图形填充的线形(风格或样式)。 VB程序设计项目化教程 中国水利水电出版社 10.1.2 Line控件的使用方法 n格式:对象.LineStep(x1,y1)-Step(x2,y2),颜色，B F n功能:在窗体或图片框上画出一条直线或一个矩形。对象缺省时,为窗体。 n说明: n(1)Step:可选项,第一个Step表示它后面的一对坐标是相对于当前坐标的 偏移量,第二个Step表示它后面的一对坐标
6、是相对于第一对坐标的偏移量 。 n(2)如果没有参数B，则是画一条直线。(x1,y1)与(x2,y2)是所画直线的左 上角和右下角的坐标。 n(3)如果有参数B，画一个矩形，指定参数F，表示要画的是一个实心的矩 形。(x1,y1)与(x2,y2)是所画矩形的左上角和右下角的坐标。 n10.1.3 Timer控件的使用 VB程序设计项目化教程 中国水利水电出版社 10.1.2 Line控件的使用方法 n1、重要属性 nInterval属性：该属性用来设置计时器事件之间的间隔，以毫秒为单位，其取值范 围为065536毫秒，因此最大的时间间隔不能超过65秒。60000毫秒为1分钟。如 果把Inter
7、val属性值设为1000，则表明每秒钟发生一个计时器事件；如果希望每秒 产生n个事件，则Interval属性的值设置为1000n。 n计时器使用Interval属性以外，还可以使用Name属性和Enabled属性。 n2、重要事件 nTimer事件：是VB模拟实时计时器的事件。 n使用计时器控件的操作步骤： n设置Timer控件的Interval属性值，这个属性决定了产生定时事件的时间间隔。 该属性的单位是千分之一秒。例如，把Interval属性设置为500，则计时器将每隔 0.5秒将产生一次Timer事件。 n编写响应计时器的Timer事件的事件过程，即在事件过程中编写需要定时执行的 代码，
8、完成各种定时任务。 n通过设置计时器控件的Enabled属性为True或False来打开或关闭Timer事件的 产生 VB程序设计项目化教程 中国水利水电出版社 10.1.4 日期、时间函数的使用 n1、Now（）函数 nNow 返回代表当前日期和时间编码值该经常用作其它系统时钟函数的参数。 n2、Day(Now) 返回当前的日期 n3、WeekDay(Now) 返回当前的星期 n4、Month(Now) 返回当前的月份 n5、Year(Now) 返回当前的年份 n6、Hour(Now) 返回小时(023) n7、Minute(Now) 返回分钟(059) n8、Second(Now) 返回秒
9、(059) n10.1.5 VB的图形画法 n1、Circle方法 n（1）、用Circle方法画圆 n格式:对象名.CircleStep(x,y),半径,颜色 n功能:在窗体或图片框上画圆。 n说明:Step后面的数字表示相对于当前坐标的位移量。 VB程序设计项目化教程 中国水利水电出版社 10.1.4 日期、时间函数的使用 n例如: n Circle(2000,1000),500 n Picture1.Circle(1000,400),500,QBColor(12) n Circle Setp(200,300),800 n第三行相对坐标的位移量,如果当前的坐标为(100,100),则圆心的
10、 坐标为(100+200,100+300),即(300,400)。以此为圆心,以800为半 径,画一个圆。 n（2）、用Circle方法画椭圆 n格式:对象名.CircleStep(x,y),半径,颜色,纵横比 n功能:在窗体或图片框上画椭圆。 n说明:纵横比是椭圆两个轴长之比。 VB程序设计项目化教程 中国水利水电出版社 10.1.4 日期、时间函数的使用 n例如: nCircle(2000,1000),500,2 nPicture1.Circle(1000,400),500,QBColor(12),0.5 n（3）、用Circle方法画圆弧及扇形 n格式：对象名.CircleStep(x,
11、y),半径,颜色,起始角,终 止角 n功能：在窗体或图片框上画圆弧及扇形。 n说明： n起始角与终止角:为所画圆或椭圆的起始角度与终止角度,单位为弧度,取 值为-22，缺省时,起始角为0,终止角为2。弧度增大方向是逆时针 方向。 n起始角、终止角均为正时,则只画圆弧;如果两者之一为负值时,不仅画圆 弧,而且还会从圆心到负值的点画一条直线。 VB程序设计项目化教程 中国水利水电出版社 10.1.4 日期、时间函数的使用 n2、PSet方法 n格式(1):对象名.PSetStep(x,y),颜色 n格式(2):对象名.PRsetStep(x,y),颜色 n功能:在窗体或图片框上画出一个点。对象缺省
12、时,为窗体。 n说明: nStep:可选项,选择该坐标(x,y)是相对坐标,否则是绝对坐标。 n颜色:是指要画点的颜色。缺省时,PSet用“前景色”画点,而 PRset用“背景色”画点”,这是二者惟一区别。因此用PSet画点后 可以用 PRset擦除。 n例如: nPicture1.PSet(1500,1000),RGB(255,0,255) n在图片框Picture1中(1500,1000)处画一个紫红色的点。 VB程序设计项目化教程 中国水利水电出版社 10.2 第2步：设计用户应用界面 n1、任务一、在窗体上添加两个形状控件Shape1和Shape2， Shape1用来做表盘，Shape
13、2用来做表盘的中心。将两控件分别 如表10-1属性修改： 控件名称属性 Shape1Shape:2 BackStyle:1 Width:3380 Height:2700,BorderWidth:2 Shape2Shape:3 BackStyle:1 Width:100 Height:100 BackColor:黑 色 注意：尽量让Shape2位于Shape1的中心位置 VB程序设计项目化教程 中国水利水电出版社 10.2 第2步：设计用户应用界面 n2、任务二、在表盘上添加四个标签Caption属性中分别输入：IX，XII，III ，VI并调整合适大小。 n3、任务三、在窗体上添加Timer控
14、件，并将Interval属性设置为：100 n4、任务四、使用Line控件分别画三条线，Line1作为秒针、Line2作为分 针、Line3作为时针。属性如表10-2所示： 表10-2 三条线的属性 控件名称属性 Line1BorderWidth:1 BorderColor:红色 Line2BorderWidth:2 BorderColor:黑色 长度小于Line1 Line3BorderWidth:3 BorderColor:黑色 长度小于Line2 注：画线的时候要将三条线的圆心设为（X2,Y2），也即由外向内画。可以将三条线的坐标（X2,Y2） 调整为相同的值。这样就与圆心重合了 VB程
15、序设计项目化教程 中国水利水电出版社 10.2 第2步：设计用户应用界面 n任务五、在窗体上添加标签用来显示系统时间。 n界面设计完后如图10-1所示： 图10-1 界面设计图 VB程序设计项目化教程 中国水利水电出版社 10.3 第3步：程序设计 n10.3.1 任务一：编写窗体的Load事件 n在“通用”过程中定义全局变量： nConst pi=3.1415926 n其他程序如下： nPrivate Sub Form_Load() n Line1.Tag = Line1.Y2 - Line1.Y1 n Line2.Tag = Line2.Y2 - Line2.Y1 n Line3.Tag = Line3.Y2 - Line3.Y1 n Form1.Caption = Format(Time, Medium Time) 获取系统时间 n t = Second(Time) 取系统时间中的秒数 n Line1.X1 = Line1.X2 + Line1.Tag * Sin(pi * t / 30) n Line1.Y1 = Line1.Y2 - Line1.Tag * Cos(pi * t / 30) n u = Minute(Time) 取系统时间中的分钟数 VB程序设计项目化教程 中国水利水电出版社 10.3 第3步：程序设计 n Line2.
