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

《北京电大 Visual Basic程序设计 第6章 图形图像和多媒体应用程序设计方法》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、第6章图形图像和多媒体应用程序设计方法15.1指针式时钟和VCD程序任务随着多媒体技术发发展，图形程序界面和多媒体程序开发已成为目前非常流行的一种程序开发方式。VB具有强大的图形处理能力和多媒体开发功能，利用它可以在很短的时间内绘制恩已形状的图形，开发出包括各种功能特效的多媒体应用程序。本章通过指针式时钟和VCD播放器持续设计实例介绍图形图像和多媒体应用程序设计的基本方法。26.1.1指针式时钟程序1.任务概述：VB提供了图形控件和图形方法两种绘图方式。指针时钟程序主要利用图形控件设计表盘，通过时钟控件控制时钟的转动，采用图形方法动态移动指针。所用控件如图所示：

2、Shape形状控件Line线条控件Picture图片框控件Image图像框控件32.界面设计4控件及其主要属性控件名属性名属性值Shape1Shape3-Circle(圆)BorderWidth(宽度)2Line1BorderStyle2-DashLine2BorderStyle2-DashTimerInterval1000(1秒)Label1Caption3Label2Caption6Label3Caption9Label4Caption1253.代码设计'在代码编辑器窗口的"通用"部分声明π常量ConstPi=3.141592653PrivateSubFor

3、m_Load()'设置用户的坐标系统Form1.Scale(-14,14)-(14,-14)EndSub63.代码设计PrivateSubTimer1_Timer()DimXAsIntegerDimYAsIntegerDimSec,Min,HrAsInteger'计算当前的秒、分、时的数值Sec=Second(Time)Min=Minute(Time)Hr=Hour(Time)'清空窗体Form1.Cls73.代码设计'绘制秒针，其中用到的数字9起放大作用Form1.DrawWidth=2'设置线条的宽度X=9*Cos((Sec-15)*Pi/30)'计算线条另

4、一端点的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坐标83.代码设计'绘制时针，其中用到的数字6起放大作用Hr=Hr+Min/60Form1.DrawWidth=5'设置线条的宽度X=6*Cos((Hr-3)*Pi/6)'计算

5、线条另一端点的x坐标Y=6*Sin(-(Hr-3)*Pi/6)'计算线条另一端点的y坐标Form1.Line(0,0)-(X,Y)'画线表示分针EndSub[演示]96.1.2VCD播放器应用程序1.任务概述利用VB可以编写多媒体播放软件。本程序的任务是能够浏览要播放的文件，并播放.avi,.dat,.waf等格式的多媒体文件。程序具有快进、快退、暂停、弹碟等基本功能。运行界面如图所示。102.界面设计（1）创建一个“标准EXE”工程，选中“工程”菜单中的“部件”选项，在弹出的“部件”对话框中选择“MicrosoftMultimediaControl”,“Mic

6、rosoftCommonDialogControl6.0”和“MicrosoftWindowsCommonControl6.0”，将CommonDialog控件、MMControl控件和Slider控件添加到根据箱中。（2）窗体添加“命令”按钮和“关闭按钮”。（3）窗体添加CommonDialog控件、Picture控件、MMControl控件和Slider控件。113.代码设计(1)窗体Load事件代码PrivateSubForm_Load()'将Picture1设置为视频回放的界面MMControl1.hWndDisplay=Picture1.hWndEnd

7、Sub123.代码设计(2)"打开"按钮Click事件代码PrivateSubCommand1_Click()'在未选择文件时，文件名为空字符CommonDialog1.FileName=""'设置文件的过滤方式，可显示文件名为.wav和.dat的文件CommonDialog1.Filter="(*.wave)│*.wav│(vcd*.dat)│*.dat"'初始的文件过滤方式为*.wavCommonDialog1.FilterIndex=2'建立打开文件的通用对话框CommonDialog1.ShowOpen'打开一个文件后关闭前一此被打开的多媒体设备MMCo

8、ntrol1.Comma