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

《VisualBasic程序设计项目化教程 项目10 制作简单时钟》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、VisualBasic程序设计项目化教程主编管小清郭贺彬项目十制作简单时钟项目目标：本项目是制作一个带有时针、分针和秒针功能的简单时钟；利用计时器Timer控件控制时针、分针和秒针的转动；实现时钟的基本功能。掌握Timer控件的使用；掌握Now（）函数的使用；掌握VB的图形画法等。项目主要知识点：1、Shape控件的使用方法基本属性特有属性2、Line控件的使用方法3、Timer控件的使用重要属性重要事件项目十制作简单时钟4、日期、时间函数的使用5、VB的图形画法Circle方法PSet方法6、程序的模块化设计项目实施步骤：掌握相关基础知识界面设计窗体设计控件属性设置程序设计编

2、程初步程序代码程序调试，功能完善保存项目工程10.1第1步：基础知识10.1.1Shape控件的使用方法使用形状控件(Shape)可在窗体或其他控件容器中画出矩形、正方形、圆、椭圆、圆角矩形或圆角正方形。形状控件的Shape属性决定了它的图形样式，这个属性的所有可能取值都有对应的形状样式。1、形状控件的常用属性Left、Top、Width、Height、BorderWidth、BorderColor、BackColor、FillColor、BorderStyle。①Left、Top、Width和Height属性决定形状控件的位置和大小，也可以用Move方法改变它的大小和位置。②

3、BorderWidth属性设置图形边界宽度。它的值是以像素为单位的边线宽度。③BorderColor属性设置图形边界颜色。④BorderStyle属性设置边界线的类型。⑤FillColor属性设置图形的前景颜色。如果要为图形填充颜色(背景)时,首先应该将属性FillStyle(填充方式)设置成1(透明),否则FillColor(前景色)的颜色会遮盖了背景色,达不到预期的目的。10.1第1步：基础知识2、形状控件的特有属性①Shape属性该属性用来设置图形的形状。0——Rectangle矩形1——Square正方形2——Oval椭圆形3——Circle圆形4——RoundedRe

4、ctangle圆角矩形5——RoundedSquare圆角正方形Shape属性的缺省值为0(矩形)。若选择3,则用Shape控件画出的矩形中画出一个圆(圆的直径是矩形的短边)。②BackStyle属性该属性用来设置图形背景的风格0——Transparent(透明)1——Opaque(不透明)缺省值为0。如果着色,显然要将BackStyle属性设置为“不透明”。③FillStyle属性该属性用来设置图形填充的线形(风格或样式)。10.1.2Line控件的使用方法格式:［对象.］Line［Step］(x1,y1)-［Step］(x2,y2)［,颜色］［，B［F］］功能:在窗体或图片

5、框上画出一条直线或一个矩形。对象缺省时,为窗体。说明:(1)Step:可选项,第一个Step表示它后面的一对坐标是相对于当前坐标的偏移量,第二个Step表示它后面的一对坐标是相对于第一对坐标的偏移量。(2)如果没有参数B，则是画一条直线。(x1,y1)与(x2,y2)是所画直线的左上角和右下角的坐标。(3)如果有参数B，画一个矩形，指定参数F，表示要画的是一个实心的矩形。(x1,y1)与(x2,y2)是所画矩形的左上角和右下角的坐标。10.1.3Timer控件的使用10.1.2Line控件的使用方法1、重要属性Interval属性：该属性用来设置计时器事件之间的间隔，以毫秒为单

6、位，其取值范围为0～65536毫秒，因此最大的时间间隔不能超过65秒。60000毫秒为1分钟。如果把Interval属性值设为1000，则表明每秒钟发生一个计时器事件；如果希望每秒产生n个事件，则Interval属性的值设置为1000／n。计时器使用Interval属性以外，还可以使用Name属性和Enabled属性。2、重要事件Timer事件：是VB模拟实时计时器的事件。使用计时器控件的操作步骤：①设置Timer控件的Interval属性值，这个属性决定了产生定时事件的时间间隔。该属性的单位是千分之一秒。例如，把Interval属性设置为500，则计时器将每隔0.5秒将产生一

7、次Timer事件。②编写响应计时器的Timer事件的事件过程，即在事件过程中编写需要定时执行的代码，完成各种定时任务。③通过设置计时器控件的Enabled属性为True或False来打开或关闭Timer事件的产生10.1.4日期、时间函数的使用1、Now（）函数Now返回代表当前日期和时间编码值该经常用作其它系统时钟函数的参数。2、Day(Now)返回当前的日期3、WeekDay(Now)返回当前的星期4、Month(Now)返回当前的月份5、Year(Now)返回当前的年份6、Hour(N