vb钟表设计-(2)PPT课件.ppt

VisualBasic程序设计项目化教程 主编管小清郭贺彬 1 项目十制作简单时钟 项目目标 本项目是制作一个带有时针 分针和秒针功能的简单时钟 利用计时器Timer控件控制时针 分针和秒针的转动 实现时钟的基本功能 掌握Timer控件的使用 掌握Now 函数的使用 掌握VB的图形画法等 项目主要知识点 1 Shape控件的使用方法基本属性特有属性2 Line控件的使用方法3 Timer控件的使用重要属性重要事件 项目十制作简单时钟 4 日期 时间函数的使用5 VB的图形画法Circle方法PSet方法6 程序的模块化设计项目实施步骤 掌握相关基础知识界面设计窗体设计控件属性设置程序设计编程初步程序代码程序调试 功能完善保存项目工程 10 1第1步 基础知识 10 1 1Shape控件的使用方法使用形状控件 Shape 可在窗体或其他控件容器中画出矩形 正方形 圆 椭圆 圆角矩形或圆角正方形 形状控件的Shape属性决定了它的图形样式 这个属性的所有可能取值都有对应的形状样式 1 形状控件的常用属性Left Top Width Height BorderWidth BorderColor BackColor FillColor BorderStyle Left Top Width和Height属性决定形状控件的位置和大小 也可以用Move方法改变它的大小和位置 BorderWidth属性设置图形边界宽度 它的值是以像素为单位的边线宽度 BorderColor属性设置图形边界颜色 BorderStyle属性设置边界线的类型 FillColor属性设置图形的前景颜色 如果要为图形填充颜色 背景 时 首先应该将属性FillStyle 填充方式 设置成1 透明 否则FillColor 前景色 的颜色会遮盖了背景色 达不到预期的目的 10 1第1步 基础知识 2 形状控件的特有属性 Shape属性该属性用来设置图形的形状 0 Rectangle矩形1 Square正方形2 Oval椭圆形3 Circle圆形4 RoundedRectangle圆角矩形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 功能 在窗体或图片框上画出一条直线或一个矩形 对象缺省时 为窗体 说明 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属性 该属性用来设置计时器事件之间的间隔 以毫秒为单位 其取值范围为0 65536毫秒 因此最大的时间间隔不能超过65秒 60000毫秒为1分钟 如果把Interval属性值设为1000 则表明每秒钟发生一个计时器事件 如果希望每秒产生n个事件 则Interval属性的值设置为1000 n 计时器使用Interval属性以外 还可以使用Name属性和Enabled属性 2 重要事件Timer事件 是VB模拟实时计时器的事件 使用计时器控件的操作步骤 设置Timer控件的Interval属性值 这个属性决定了产生定时事件的时间间隔 该属性的单位是千分之一秒 例如 把Interval属性设置为500 则计时器将每隔0 5秒将产生一次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 Now 返回小时 0 23 7 Minute Now 返回分钟 0 59 8 Second Now 返回秒 0 59 10 1 5VB的图形画法1 Circle方法 1 用Circle方法画圆格式 对象名 Circle Step x y 半径 颜色 功能 在窗体或图片框上画圆 说明 Step后面的数字表示相对于当前坐标的位移量 10 1 4日期 时间函数的使用 例如 Circle 2000 1000 500Picture1 Circle 1000 400 500 QBColor 12 CircleSetp 200 300 800第三行相对坐标的位移量 如果当前的坐标为 100 100 则圆心的坐标为 100 200 100 300 即 300 400 以此为圆心 以800为半径 画一个圆 2 用Circle方法画椭圆格式 对象名 Circle Step x y 半径 颜色 纵横比功能 在窗体或图片框上画椭圆 说明 纵横比是椭圆两个轴长之比 10 1 4日期 时间函数的使用 例如 Circle 2000 1000 500 2Picture1 Circle 1000 400 500 QBColor 12 0 5 3 用Circle方法画圆弧及扇形格式 对象名 Circle Step x y 半径 颜色 起始角 终止角 功能 在窗体或图片框上画圆弧及扇形 说明 起始角与终止角 为所画圆或椭圆的起始角度与终止角度 单位为弧度 取值为 2 2 缺省时 起始角为0 终止角为2 弧度增大方向是逆时针方向 起始角 终止角均为正时 则只画圆弧 如果两者之一为负值时 不仅画圆弧 而且还会从圆心到负值的点画一条直线 10 1 4日期 时间函数的使用 2 PSet方法格式 1 对象名 PSet Step x y 颜色 格式 2 对象名 PRset Step x y 颜色 功能 在窗体或图片框上画出一个点 对象缺省时 为窗体 说明 Step 可选项 选择该坐标 x y 是相对坐标 否则是绝对坐标 颜色 是指要画点的颜色 缺省时 PSet用 前景色 画点 而PRset用 背景色 画点 这是二者惟一区别 因此用PSet画点后可以用PRset擦除 例如 Picture1 PSet 1500 1000 RGB 255 0 255 在图片框Picture1中 1500 1000 处画一个紫红色的点 10 2第2步 设计用户应用界面 1 任务一 在窗体上添加两个形状控件Shape1和Shape2 Shape1用来做表盘 Shape2用来做表盘的中心 将两控件分别如表10 1属性修改 注意 尽量让Shape2位于Shape1的中心位置 10 2第2步 设计用户应用界面 2 任务二 在表盘上添加四个标签Caption属性中分别输入 IX XII III VI并调整合适大小 3 任务三 在窗体上添加Timer控件 并将Interval属性设置为 1004 任务四 使用Line控件分别画三条线 Line1作为秒针 Line2作为分针 Line3作为时针 属性如表10 2所示 表10 2三条线的属性 注 画线的时候要将三条线的圆心设为 X2 Y2 也即由外向内画 可以将三条线的坐标 X2 Y2 调整为相同的值 这样就与圆心重合了 10 2第2步 设计用户应用界面 任务五 在窗体上添加标签用来显示系统时间 界面设计完后如图10 1所示 图10 1界面设计图 10 3第3步 程序设计 10 3 1任务一 编写窗体的Load事件在 通用 过程中定义全局变量 Constpi 3 1415926其他程序如下 PrivateSubForm Load Line1 Tag Line1 Y2 Line1 Y1Line2 Tag Line2 Y2 Line2 Y1Line3 Tag Line3 Y2 Line3 Y1Form1 Caption Format Time MediumTime 获取系统时间t Second Time 取系统时间中的秒数Line1 X1 Line1 X2 Line1 Tag Sin pi t 30 Line1 Y1 Line1 Y2 Line1 Tag Cos pi t 30 u Minute Time 取系统时间中的分钟数 10 3第3步 程序设计 Line2 X1 Line2 X2 Line2 Tag Sin pi u 30 Line2 Y1 Line2 Y2 Line2 Tag Cos pi u 30 v Hour Time 取系统时间中的小时数s IIf v 12 v 12 v u 60 将24小时制转化成12小时制Line3 X1 Line3 X2 Line3 Tag Sin pi s 6 Line3 Y1 Line3 Y2 Line3 Tag Cos pi s 6 Label6 Caption Date 将当前系统日期显示出来EndSub 说明 以上程序语句是用来对时钟指针以及其他事件进行初始化 要注意线绕某一点转动的语句编写 Line控件的Tag属性的使用方法 10 3 2任务二 编写Timer事件 程序代码如下 PrivateSubTimer1 Timer t Second Time Line1 X1 Line1 X2 Line1 Tag Sin pi t 30 Line1 Y1 Line1 Y2 Line1 Tag Cos pi t 30 Ift 0ThenForm1 Caption Format Time MediumTime u Minute Time Line2 X1 Line2 X2 Line2 Tag Sin pi u 30 Line2 Y1 Line2 Y2 Line2 Tag Cos pi u 30 v Hour Time s IIf v 12 v 12 v u 60Line3 X1 Line3 X2 Line3 Tag Sin pi s 6 Line3 Y1 Line3 Y2 Line3 Tag Cos pi s 6 Label6 Caption DateEndIfEndSub 说明 以上代码是对时钟的指针动态变化的语句 各程序段的功能参照上一事件理解 10 3 2任务二 编写Timer事件 程序运行情况如图10 2所示 图10 2程序运行结果 10 4第4步 完善程序其他功能 项目总结 全局变量的使用Line控件的属性以及使用方法Shape控件的属性以及设置使得Line绕某点转动的方法Time