北京电大 Visual Basic程序设计 第6章 图形图像和多媒体应用程序设计方法.ppt

第 6 章 图形图像和多媒体 应用程序设计方法 5.1 指针式时钟和VCD程序任务 随着多媒体技术发发展，图形程序界面和多媒体程序开发已成为目前非常流行的一种程序开发方式。VB具有强大的图形处理能力和多媒体开发功能，利用它可以在很短的时间内绘制恩已形状的图形，开发出包括各种功能特效的多媒体应用程序。 本章通过指针式时钟和VCD播放器持续设计实例介绍图形图像和多媒体应用程序设计的基本方法。 6.1.1 指针式时钟程序 1.任务概述：VB提供了图形控件和图形方法两种绘图方式。指针时钟程序主要利用图形控件设计表盘，通过时钟控件控制时钟的转动，采用图形方法动态移动指针。所用控件如图所示： 2. 界面设计 控件及其主要属性 3. 代码设计 在代码编辑器窗口的通用部分声明π常量 Const Pi = 3.141592653 Private Sub Form_Load() 设置用户的坐标系统 Form1.Scale (-14, 14)-(14, -14) End Sub 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((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 [演示] 6.1.2 VCD播放器应用程序 1. 任务概述 利用VB可以编写多媒体播放软件。本程序的任务是能够浏览要播放的文件，并播放 .avi, .dat, .waf等格式的多媒体文件。程序具有快进、快退、暂停、弹碟等基本功能。运行界面如图所示。 2. 界面设计 （1）创建一个“标准EXE”工程，选中“工程”菜单中的“部件”选项，在弹出的“部件”对话框中选择“Microsoft Multimedia Control”, “Microsoft Common Dialog Control 6.0”和 “Microsoft Windows Common Control 6.0”，将CommonDialog控件、MMControl控件和Slider控件添加到根据箱中。 （2）窗体添加“命令”按钮和“关闭按钮”。 （3）窗体添加CommonDialog 控件、Picture控件、MMControl控件和Slider控件。 3. 代码设计 (1)窗体Load事件代码 Private Sub Form_Load() 将Picture1设置为视频回放的界面 MMControl1.hWndDisplay = Picture1.hWnd End Sub 3. 代码设计 (2)打开按钮Click事件代码 Private Sub Command1_Click() 在未选择文件时，文件名为空字符 CommonDialog1.FileName = 设置文件的过滤方式，可显示文件名为.wav和.dat的文件 CommonDialog1.Filter = (*.wave)│*.wav│(vcd*.dat)│*.dat 初始的文件过滤方式为*.wav CommonDialog1.Filt