VisualBasic程序设计项目化教程 项目10 制作简单时钟.ppt

《VisualBasic程序设计项目化教程 项目10 制作简单时钟.ppt》由会员分享，可在线阅读，更多相关《VisualBasic程序设计项目化教程 项目10 制作简单时钟.ppt（20页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、VBVB程序设计项目化教程程序设计项目化教程中国水利水电出版社中国水利水电出版社Visual Basic 程序设计项目化教程n主编主编 管小清管小清 郭贺彬郭贺彬VBVB程序设计项目化教程程序设计项目化教程中国水利水电出版社中国水利水电出版社项目十项目十 制作简单时钟制作简单时钟n4、日期、时间函数的使用、日期、时间函数的使用n5、VB的图形画法的图形画法nCircle方法方法nPSet方法方法n6、程序的模块化设计、程序的模块化设计n项目实施步骤：项目实施步骤：n掌握相关基础知识掌握相关基础知识n界面设计界面设计o窗体设计窗体设计o控件属性设置控件属性设置n程序设计程序设计o编程初步编程初步

2、o程序代码程序代码n程序调试，功能完善程序调试，功能完善n保存项目工程保存项目工程VBVB程序设计项目化教程程序设计项目化教程中国水利水电出版社中国水利水电出版社10.1 第第1步：基础知识步：基础知识n10.1.1 Shape控件的使用方法控件的使用方法n使用形状控件使用形状控件(Shape)可在窗体或其他控件容器中画出矩形、正方形、圆、椭圆、可在窗体或其他控件容器中画出矩形、正方形、圆、椭圆、圆角矩形或圆角正方形。形状控件的圆角矩形或圆角正方形。形状控件的Shape属性决定了它的图形样式，这个属性属性决定了它的图形样式，这个属性的所有可能取值都有对应的形状样式。的所有可能取值都有对应的形状

3、样式。n1、形状控件的常用属性、形状控件的常用属性nLeft、Top、Width、Height、BorderWidth、BorderColor、BackColor、FillColor、BorderStyle。nLeft、Top、Width和和Height属性决定形状控件的位置和大小，也可以用属性决定形状控件的位置和大小，也可以用Move方法改变它的大小和位置。方法改变它的大小和位置。nBorderWidth属性设置图形边界宽度。它的值是以像素为单位的边线宽度。属性设置图形边界宽度。它的值是以像素为单位的边线宽度。nBorderColor属性设置图形边界颜色。属性设置图形边界颜色。nBorder

4、Style属性设置边界线的类型。属性设置边界线的类型。nFillColor属性设置图形的前景颜色。属性设置图形的前景颜色。n如果要为图形填充颜色如果要为图形填充颜色(背景背景)时时,首先应该将属性首先应该将属性FillStyle(填充方式填充方式)设置成设置成1(透明透明),否则否则FillColor(前景色前景色)的颜色会遮盖了背景色的颜色会遮盖了背景色,达不到预期的目的。达不到预期的目的。VBVB程序设计项目化教程程序设计项目化教程中国水利水电出版社中国水利水电出版社10.1 第第1步：基础知识步：基础知识n2、形状控件的特有属性、形状控件的特有属性nShape属性属性n该属性用来设置图形

5、的形状。该属性用来设置图形的形状。n 0Rectangle 矩形矩形n 1Square 正方形正方形n 2Oval 椭圆形椭圆形n 3Circle 圆形圆形n 4Rounded Rectangle 圆角矩形圆角矩形n 5Rounded Square 圆角正方形圆角正方形nShape属性的缺省值为属性的缺省值为0(矩形矩形)。若选择。若选择3,则用则用Shape控件画出的矩形中画出一个圆控件画出的矩形中画出一个圆(圆的直径圆的直径是矩形的短边是矩形的短边)。nBackStyle属性属性n该属性用来设置图形背景的风格该属性用来设置图形背景的风格n 0Transparent(透明透明)n 1Opaq

6、ue(不透明不透明)n缺省值为缺省值为0。如果着色。如果着色,显然要将显然要将BackStyle属性设置为属性设置为“不透明不透明”。nFillStyle属性属性n该属性用来设置图形填充的线形该属性用来设置图形填充的线形(风格或样式风格或样式)。VBVB程序设计项目化教程程序设计项目化教程中国水利水电出版社中国水利水电出版社10.1.2 Line控件的使用方法控件的使用方法n格式格式:对象对象.LineStep(x1,y1)-Step(x2,y2),颜色，颜色，BFn功能功能:在窗体或图片框上画出一条直线或一个矩形。对象缺省时在窗体或图片框上画出一条直线或一个矩形。对象缺省时,为窗体。为窗体。

7、n说明说明:n(1)Step:可选项可选项,第一个第一个Step表示它后面的一对坐标是相对于当前坐标的表示它后面的一对坐标是相对于当前坐标的偏移量偏移量,第二个第二个Step表示它后面的一对坐标是相对于第一对坐标的偏移量。表示它后面的一对坐标是相对于第一对坐标的偏移量。n(2)如果没有参数如果没有参数B，则是画一条直线。，则是画一条直线。(x1,y1)与与(x2,y2)是所画直线的左是所画直线的左上角和右下角的坐标。上角和右下角的坐标。n(3)如果有参数如果有参数B，画一个矩形，指定参数，画一个矩形，指定参数F，表示要画的是一个实心的矩，表示要画的是一个实心的矩形。形。(x1,y1)与与(x2

8、,y2)是所画矩形的左上角和右下角的坐标。是所画矩形的左上角和右下角的坐标。n10.1.3 Timer控件的使用控件的使用VBVB程序设计项目化教程程序设计项目化教程中国水利水电出版社中国水利水电出版社10.1.2 Line控件的使用方法控件的使用方法n1、重要属性、重要属性nInterval属性：该属性用来设置计时器事件之间的间隔，以毫秒为单位，其取值范属性：该属性用来设置计时器事件之间的间隔，以毫秒为单位，其取值范围为围为065536毫秒，因此最大的时间间隔不能超过毫秒，因此最大的时间间隔不能超过65秒。秒。60000毫秒为毫秒为1分钟。如分钟。如果把果把Interval属性值设为属性值设

9、为1000，则表明每秒钟发生一个计时器事件；如果希望每秒，则表明每秒钟发生一个计时器事件；如果希望每秒产生产生n个事件，则个事件，则Interval属性的值设置为属性的值设置为1000n。n计时器使用计时器使用Interval属性以外，还可以使用属性以外，还可以使用Name属性和属性和Enabled属性。属性。n2、重要事件、重要事件nTimer事件：是事件：是VB模拟实时计时器的事件。模拟实时计时器的事件。n使用计时器控件的操作步骤：使用计时器控件的操作步骤：n设置设置Timer控件的控件的Interval属性值，这个属性决定了产生定时事件的时间间隔。属性值，这个属性决定了产生定时事件的时间

10、间隔。该属性的单位是千分之一秒。例如，把该属性的单位是千分之一秒。例如，把Interval属性设置为属性设置为500，则计时器将每隔，则计时器将每隔0.5秒将产生一次秒将产生一次Timer事件。事件。n编写响应计时器的编写响应计时器的Timer事件的事件过程，即在事件过程中编写需要定时执行的事件的事件过程，即在事件过程中编写需要定时执行的代码，完成各种定时任务。代码，完成各种定时任务。n通过设置计时器控件的通过设置计时器控件的Enabled属性为属性为True或或False来打开或关闭来打开或关闭Timer事件的事件的产生产生VBVB程序设计项目化教程程序设计项目化教程中国水利水电出版社中国水

11、利水电出版社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)返回秒返回秒(059)n

12、10.1.5 VB的图形画法的图形画法n1、Circle方法方法n（1）、用）、用Circle方法画圆方法画圆n格式格式:对象名对象名.CircleStep(x,y),半径半径,颜色颜色n功能功能:在窗体或图片框上画圆。在窗体或图片框上画圆。n说明说明:Step后面的数字表示相对于当前坐标的位移量。后面的数字表示相对于当前坐标的位移量。VBVB程序设计项目化教程程序设计项目化教程中国水利水电出版社中国水利水电出版社10.1.4 日期、时间函数的使用日期、时间函数的使用n例如例如:n Circle(2000,1000),500n Picture1.Circle(1000,400),500,QBC

13、olor(12)n Circle Setp(200,300),800n第三行相对坐标的位移量第三行相对坐标的位移量,如果当前的坐标为如果当前的坐标为(100,100),则圆心的则圆心的坐标为坐标为(100+200,100+300),即即(300,400)。以此为圆心。以此为圆心,以以800为半为半径径,画一个圆。画一个圆。n（2）、用）、用Circle方法画椭圆方法画椭圆n格式格式:对象名对象名.CircleStep(x,y),半径半径,颜色颜色,纵横比纵横比n功能功能:在窗体或图片框上画椭圆。在窗体或图片框上画椭圆。n说明说明:纵横比是椭圆两个轴长之比。纵横比是椭圆两个轴长之比。VBVB程序

14、设计项目化教程程序设计项目化教程中国水利水电出版社中国水利水电出版社10.1.4 日期、时间函数的使用日期、时间函数的使用n例如例如:nCircle(2000,1000),500,2nPicture1.Circle(1000,400),500,QBColor(12),0.5n（3）、用）、用Circle方法画圆弧及扇形方法画圆弧及扇形n格式：对象名格式：对象名.CircleStep(x,y),半径半径,颜色颜色,起始角起始角,终终止角止角n功能：在窗体或图片框上画圆弧及扇形。功能：在窗体或图片框上画圆弧及扇形。n说明：说明：n起始角与终止角起始角与终止角:为所画圆或椭圆的起始角度与终止角度为所

15、画圆或椭圆的起始角度与终止角度,单位为弧度单位为弧度,取取值为值为-22，缺省时，缺省时,起始角为起始角为0,终止角为终止角为2。弧度增大方向是逆时针。弧度增大方向是逆时针方向。方向。n起始角、终止角均为正时起始角、终止角均为正时,则只画圆弧则只画圆弧;如果两者之一为负值时如果两者之一为负值时,不仅画圆不仅画圆弧弧,而且还会从圆心到负值的点画一条直线。而且还会从圆心到负值的点画一条直线。VBVB程序设计项目化教程程序设计项目化教程中国水利水电出版社中国水利水电出版社10.1.4 日期、时间函数的使用日期、时间函数的使用n2、PSet方法方法n格式格式(1):对象名对象名.PSetStep(x,

16、y),颜色颜色n格式格式(2):对象名对象名.PRsetStep(x,y),颜色颜色n功能功能:在窗体或图片框上画出一个点。对象缺省时在窗体或图片框上画出一个点。对象缺省时,为窗体。为窗体。n说明说明:nStep:可选项可选项,选择该坐标选择该坐标(x,y)是相对坐标是相对坐标,否则是绝对坐标。否则是绝对坐标。n颜色颜色:是指要画点的颜色。缺省时是指要画点的颜色。缺省时,PSet用用“前景色前景色”画点画点,而而 PRset用用“背景色背景色”画点画点”,这是二者惟一区别。因此用这是二者惟一区别。因此用PSet画点画点后可以用后可以用 PRset擦除。擦除。n例如例如:nPicture1.PS

17、et(1500,1000),RGB(255,0,255)n在图片框在图片框Picture1中中(1500,1000)处画一个紫红色的点。处画一个紫红色的点。VBVB程序设计项目化教程程序设计项目化教程中国水利水电出版社中国水利水电出版社10.2 第第2步：设计用户应用界面步：设计用户应用界面n1、任务一、在窗体上添加两个形状控件、任务一、在窗体上添加两个形状控件Shape1和和Shape2，Shape1用来做表盘，用来做表盘，Shape2用来做表盘的中心。将两控件分别用来做表盘的中心。将两控件分别如表如表10-1属性修改：属性修改：控件名称控件名称属性属性Shape1Shape:2 BackS

18、tyle:1 Width:3380 Height:2700,BorderWidth:2Shape2Shape:3 BackStyle:1 Width:100 Height:100 BackColor:黑色注意：尽量让Shape2位于Shape1的中心位置 VBVB程序设计项目化教程程序设计项目化教程中国水利水电出版社中国水利水电出版社10.2 第第2步：设计用户应用界面步：设计用户应用界面n2、任务二、在表盘上添加四个标签、任务二、在表盘上添加四个标签Caption属性中分别输入：属性中分别输入：IX，XII，III，VI并调整合适大小。并调整合适大小。n3、任务三、在窗体上添加、任务三、在窗

19、体上添加Timer控件，并将控件，并将Interval属性设置为：属性设置为：100n4、任务四、使用、任务四、使用Line控件分别画三条线，控件分别画三条线，Line1作为秒针、作为秒针、Line2作为分作为分针、针、Line3作为时针。属性如表作为时针。属性如表10-2所示：所示：表10-2 三条线的属性控件名称控件名称属性属性Line1BorderWidth:1 BorderColor:红色Line2BorderWidth:2 BorderColor:黑色 长度小于Line1Line3BorderWidth:3 BorderColor:黑色 长度小于Line2注：画线的时候要将三条线的圆

20、心设为（X2,Y2），也即由外向内画。可以将三条线的坐标（X2,Y2）调整为相同的值。这样就与圆心重合了VBVB程序设计项目化教程程序设计项目化教程中国水利水电出版社中国水利水电出版社10.2 第第2步：设计用户应用界面步：设计用户应用界面n任务五、在窗体上添加标签用来显示系统时间。任务五、在窗体上添加标签用来显示系统时间。n界面设计完后如图界面设计完后如图10-1所示：所示：图10-1 界面设计图VBVB程序设计项目化教程程序设计项目化教程中国水利水电出版社中国水利水电出版社10.3 第第3步：程序设计步：程序设计n10.3.1 任务一：编写窗体的任务一：编写窗体的Load事件事件n在在“通

21、用通用”过程中定义全局变量：过程中定义全局变量：nConst pi=3.1415926n其他程序如下：其他程序如下：nPrivate Sub Form_Load()n Line1.Tag=Line1.Y2-Line1.Y1n Line2.Tag=Line2.Y2-Line2.Y1n Line3.Tag=Line3.Y2-Line3.Y1n Form1.Caption=Format(Time,Medium Time)获取系统时间获取系统时间n t=Second(Time)取系统时间中的秒数取系统时间中的秒数n Line1.X1=Line1.X2+Line1.Tag*Sin(pi*t/30)n L

22、ine1.Y1=Line1.Y2-Line1.Tag*Cos(pi*t/30)n u=Minute(Time)取系统时间中的分钟数取系统时间中的分钟数VBVB程序设计项目化教程程序设计项目化教程中国水利水电出版社中国水利水电出版社10.3 第第3步：程序设计步：程序设计n Line2.X1=Line2.X2+Line2.Tag*Sin(pi*u/30)n Line2.Y1=Line2.Y2-Line2.Tag*Cos(pi*u/30)n v=Hour(Time)取系统时间中的小时数取系统时间中的小时数n s=IIf(v=12,v-12,v)+u/60 将将24小时制转化成小时制转化成12小时制

23、小时制n Line3.X1=Line3.X2+Line3.Tag*Sin(pi*s/6)n Line3.Y1=Line3.Y2-Line3.Tag*Cos(pi*s/6)n Label6.Caption=Date 将当前系统日期显示出来将当前系统日期显示出来nEnd Sub说明：以上程序语句是用来对时钟指针以及其他事件进行初始化，要注意线绕某一点转动的语句编写。Line控件的Tag属性的使用方法 VBVB程序设计项目化教程程序设计项目化教程中国水利水电出版社中国水利水电出版社10.3.2 任务二：编写任务二：编写Timer事件事件n 程序代码如下：程序代码如下：n Private Sub Ti

24、mer1_Timer()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 If t=0 Thenn Form1.Caption=Format(Time,Medium Time)n u=Minute(Time)n Line2.X1=Line2.X2+Line2.Tag*Sin(pi*u/30)n Line2.Y1=Line2.Y2-Line2.Tag*Cos(pi*u/30)n v=Hour(Time)n s=IIf(v=12,v-12,v)+

25、u/60n Line3.X1=Line3.X2+Line3.Tag*Sin(pi*s/6)n Line3.Y1=Line3.Y2-Line3.Tag*Cos(pi*s/6)n Label6.Caption=Daten End IfnEnd Sub说明：以上代码是对时钟的指针动态变化的语句，各程序段的功能参照上一事件理解。VBVB程序设计项目化教程程序设计项目化教程中国水利水电出版社中国水利水电出版社10.3.2 任务二：编写任务二：编写Timer事件事件n程序运行情况如图程序运行情况如图10-2所示：所示：图10-2 程序运行结果VBVB程序设计项目化教程程序设计项目化教程中国水利水电出版社中

26、国水利水电出版社10.4 第第4步：完善程序其他功能步：完善程序其他功能n项目总结：项目总结：n全局变量的使用全局变量的使用nLine控件的属性以及使用方法控件的属性以及使用方法nShape控件的属性以及设置控件的属性以及设置n使得使得Line绕某点转动的方法绕某点转动的方法nTimer控件的事件方法控件的事件方法n日期、时间函数的使用日期、时间函数的使用oSecond（）（）oMinute（）（）oHour（）（）oTime（）（）oDate（）（）n日期、时间特殊格式的设置日期、时间特殊格式的设置n程序构思设计思路的培养程序构思设计思路的培养VBVB程序设计项目化教程程序设计项目化教程中国

27、水利水电出版社中国水利水电出版社10.4 第第4步：完善程序其他功能步：完善程序其他功能n复习思考：复习思考：n 思考思考 1：如何使用：如何使用Shape控件来实现矩形、正方形、控件来实现矩形、正方形、椭圆形、圆形、圆角矩形、圆角正方形并且将其填充椭圆形、圆形、圆角矩形、圆角正方形并且将其填充成不同的颜色？成不同的颜色？n思考思考 2：如何利用：如何利用Line控件画一个等腰三角形或直角三控件画一个等腰三角形或直角三角形？角形？n思考思考 3：如何利用计时器让字体变化不同的颜色：如何利用计时器让字体变化不同的颜色n思考思考 4：如何利用：如何利用Circle方法完成八卦图？方法完成八卦图？n思考思考 5：如何利用：如何利用PSet方法完成夜晚闪烁星星的效果方法完成夜晚闪烁星星的效果？