Visual Basic 程序设计 第6章 图形图像和多媒体 应用程序设计方法
1 Visual Basic 程序设计 第 6 章 图形图像和多媒体 应用程序设计方法
5.1指针式时钟和VCD程序任务 随着多媒体技术发发展，图形程序界面 和多媒体程序开发已成为目前非常流行的 一种程序开发方式。VB具有强大的图形处 理能力和多媒体开发功能，利用它可以在 很短的时间内绘制恩已形状的图形，开发 出包括各种功能特效的多媒体应用程序。 本章通过指针式时钟和VCD播放器持续 设计实例介绍图形图像和多媒体应用程序 设计的基本方法
2 5.1 指针式时钟和VCD程序任务 随着多媒体技术发发展，图形程序界面 和多媒体程序开发已成为目前非常流行的 一种程序开发方式。VB具有强大的图形处 理能力和多媒体开发功能，利用它可以在 很短的时间内绘制恩已形状的图形，开发 出包括各种功能特效的多媒体应用程序。 本章通过指针式时钟和VCD播放器持续 设计实例介绍图形图像和多媒体应用程序 设计的基本方法
6.1.1指针式时钟程序 1.任务概述：VB提供了图形控件和图形方法两种绘图方式。指针时 钟程序主要利用图形控件设计表盘，通过时钟控件控制时钟的转 动，采用图形方法动态移动指针。所用控件如图所示： Picture图片框控件 Image图像框控件 Gener al A abl 里B4y 品 兰 Shape形状控件 Line线条控件
3 6.1.1 指针式时钟程序 1.任务概述：VB提供了图形控件和图形方法两种绘图方式。指针时 钟程序主要利用图形控件设计表盘，通过时钟控件控制时钟的转 动，采用图形方法动态移动指针。所用控件如图所示： Shape形状控件 Line线条控件 Picture图片框控件 Image图像框控件
2.界面设计 指针式时钟程序 ▣x
4 2. 界面设计
控件及其主要属性 控件名 属性名 属性值 Shape 3-Circle(圆) Shapel BorderWidth(宽度) 2 Linel BorderStyle 2-Dash Line2 BorderStyle 2-Dash Timer Interval 1000(1秒)】 Labell Caption 3 Label2 Caption 6 Label3 Caption 9 Label4 Caption 12
5 控件及其主要属性 控件名 属性名 属性值 Shape1 Shape 3-Circle(圆) BorderWidth(宽度) 2 Line1 BorderStyle 2-Dash Line2 BorderStyle 2-Dash Timer Interval 1000(1秒) Label1 Caption 3 Label2 Caption 6 Label3 Caption 9 Label4 Caption 12
3.代码设计 在代码编辑器窗口的"通用部分声明π常量 Const Pi=3.141592653 Private Sub Form Load() '设置用户的坐标系统 Form1.Scale(-14,14)-(14,-14) End Sub
6 3. 代码设计 '在代码编辑器窗口的"通用"部分声明π常量 Const Pi = 3.141592653 Private Sub Form_Load() '设置用户的坐标系统 Form1.Scale (-14, 14)-(14, -14) End Sub
3.代码设计 Private Sub Timer1 TimerO Dim X As Integer Dim Y As Integer Dim Sec,Min,Hr As Integer '计算当前的秒、分、时的数值 Sec Second(Time) Min Minute(Time) Hr Hour(Time) '清空窗体 Form1.Cls
7 3. 代码设计 Private Sub Timer1_Timer() Dim X As Integer Dim Y As Integer Dim Sec, Min, Hr As Integer '计算当前的秒、分、时的数值 Sec = Second(Time) Min = Minute(Time) Hr = Hour(Time) '清空窗体 Form1.Cls
3.代码设计 '绘制秒针，其中用到的数字9起放大作用 Form1..DrawWidth=2'设置线条的宽度 X=9*Cos(Sec-15)*Pi/30)'计算线条另一端点的x坐标 Y=9*Sin(-(Sec-15)*Pi/30)'计算线条另一端点的y坐标 Form1.Line(0,0)-X,Y),vbRed'画一条红线表示秒针 '绘制分针，其中用到的数字8起放大作用 Form1.DrawWidth=3'设置线条的宽度 X=8*Cos(Mim-15)*Pi/30)'计算线条另一端点的x坐标 Y=8*Sim(-Mim-15)*Pi/30)'计算线条另一端点的y坐标
8 3. 代码设计 '绘制秒针，其中用到的数字9起放大作用 Form1.DrawWidth = 2 '设置线条的宽度 X = 9 * Cos((Sec - 15) * Pi / 30) '计算线条另一端点的x坐标 Y = 9 * Sin(-(Sec - 15) * Pi / 30) '计算线条另一端点的y坐标 Form1.Line (0, 0)-(X, Y), vbRed '画一条红线表示秒针 '绘制分针，其中用到的数字8起放大作用 Form1.DrawWidth = 3 '设置线条的宽度 X = 8 * Cos((Min - 15) * Pi / 30) '计算线条另一端点的x坐标 Y = 8 * Sin(-(Min - 15) * Pi / 30) '计算线条另一端点的y坐标
3.代码设计 '绘制时针，其中用到的数字6起放大作用 Hr=Hr+Min/60 Form1.DrawWidth=5'设置线条的宽度 X=6*Cos(Hr-3)*Pi/6'计算线条另一端点的x坐标 Y=6*Sin(-(Hr-3)*Pi/6'计算线条另一端点的y坐标 Form1.Line(0,0-X,Y)画线表示分针 End sub 演示
9 3. 代码设计 '绘制时针，其中用到的数字6起放大作用 Hr = Hr + Min / 60 Form1.DrawWidth = 5 '设置线条的宽度 X = 6 * Cos((Hr - 3) * Pi / 6) '计算线条另一端点的x坐标 Y = 6 * Sin(-(Hr - 3) * Pi / 6) '计算线条另一端点的y坐标 Form1.Line (0, 0)-(X, Y) '画线表示分针 End Sub [演示]
6.1.2VCD播放器应用程序 1. 任务概述利用VB可以编写多媒体播放软件。本程序的任务 是能够浏览要播放的文件，并播放.avi,.dat,.waf等格试的 多媒体文件。程序具有快进、快退、暂停、弹碟等基本功能。 运行界面如图所示。 心播放器 [打开 关闭 ■
10 6.1.2 VCD播放器应用程序 1. 任务概述 利用VB可以编写多媒体播放软件。本程序的任务 是能够浏览要播放的文件，并播放 .avi, .dat, .waf等格式的 多媒体文件。程序具有快进、快退、暂停、弹碟等基本功能。 运行界面如图所示