用VB多媒体设计.doc

一个具有多媒体效果的软件，能实现图文声并貌，能产生动画效果，往往给人耳目一新的感觉，给人留下很深的印象，因此得到用户的青睐。本文简介用VB设计多媒体效果的一般方法，并介绍我们设计的一个实例。一、用VB的图形功能产生多媒体效果1、用VB的图形方法VB是利用图形对象的属性、方法和事件在图形对象(窗体Form、图片框Picture Box等)上绘制图形的。图形对象的属性有自动重画AutoRedraw、线型DrawStyle、填充风格FillStyle、填充颜色FillColor等等；图形对象的方法有画点Pset、画线Line、画圆Circle等等。图形对象的事件有单击鼠标Click,双击鼠标Dblclick等等。再利用QBColor, RGB函数设置颜色，就可以绘制出五彩缤纷的图形来。比如以下函数，就是利用图形方法，在窗体上画出一个有十字形光芒的星星。多次调用此函数并通过函数形参值的变化，可在窗体的不同地方，画出大小不一，颜色各异的多个星星来。Function starl(dwidth1,dwidth2,x,y,clor1,clor2) 带光芒的星星drawwidth=dwidth1 设定星星的大小PSet(x,y),QBColor(Colorl) 画星星并置颜色drawwidth=dwidth2/4 光芒宽度Line(x,y)-(x-200,y),QBColor(clor1) 光芒长度及颜色Line(x,y)-(x+200,y),QBColor(clor1)Line(x,y)-(x,y+200),QBCdor(clor1)Line(x,y)-(x,y-400),QBColor(clor1)drawwidth=dwidth2 再画覆盖星星PSet(x,y),QBColor(clor2)End Function循环调用此函数，就能产生星光闪烁的效果。2、用图形控制工具图形工具又可分三种：图像(Image)控制工具、线条(Line)控制工具和形状(Shape)控制工具。只要在工具箱中点中某控制，拖到窗体上，就产生了相应的形状和事件，在事件代码窗中编入程序就能实现许多图形功能。图像工具是一个矩形的区域，在此区域中可以用上述的图形方法绘制出各种图形、可以置入.BMP、DIB、ICO及WMF等格式的文件，还可以在该区域中输入照片和其他的图像数据；线条控制工具主要用于绘制直线；而形状工具可以直接在表格上绘制出各种几何图形。例如，在属性窗口Properties中，按下面的设置可在背景为青色的窗体上画出一个黄色的月牙。窗体(forml):backcolor 选为青色形状1(shapel):fillstyle =0 实心填充fillcolor 选为黄色shape=3 圆形形状2(shape2):fillstyle=0 实心填充fincolor 选为青色shape=3 圆形拖动形状1和形状2到窗体合适的位置，并使形状2覆盖住形状1而使形状1成为月牙形即可。3、动画效果对图形方法产生的图形，采用覆盖和异或等方法，就能实现图形的移动而产生动画效果。下面一段程序实现了一个人造地球卫星的图片作椭圆轨道运行的动画效果。Sub picture_click( )Const PI=3.1415926 圆周率Const arf=PI/8 轨道倾斜角度* 卫星转动 *For i=0 TO 2 * PI Step.0015xx=ra * Cos(i) 椭圆yy=rb * Sin(i) 椭圆xp=xx * Cos(arf)- yy * Sin(arf) 坐标变换yp=xx * Sin(arf)+ yy * Cos(arf)+ym 坐标变换picturel.Picture=luadPicture(c:vbmetilsatelid.wmf) 装入卫星图片picturel.Left=xp 移动图片，产生动画picturel.Left=yp 移动图片，产生动画DoEvents 可使卫星转动的同时，响应其他事件Next iEnd Sub二、用VB的声音功能产生多媒体效果1、利用API函数VB没有提供像PLAY这样的声音函数，它只有一个简单的BEEP，使机器产生一下蜂鸣声。要想产生音乐，可以调用Windows的动态链接库DLL中的函数或是调用VB动态链接库文件VBX。一般是先要在窗体层的通用说明部分或模块层对调用的Windows函数进行说明。音乐函数主要是调用SOUND.DRV库中的几个API函数，说明之后就可以直接使用了。调用以下几个函数可使计算机演奏出悦耳的歌曲。Opensound()打开发声设备StarlSound()开始产生音乐CloseSound()关闭发声设备SetVoiceSound(声音队列、频率、持续时间)SetVoiceQueueSize(声音队列，内存空间字节数)以下程序产生东方红乐曲，单击窗体即可。Sub form1_click( )* 乐曲东方红 *Dim ffReDim fq(1 To 47)ReDim delay(1 To 47)x=OpenSound()y=SetVioceQueueSine(1,1024)* 打开频率文件 *Open dth_fieq.txt For Input As #1For i=1 To 47Input #l,ffSelect Case ffCase O:fq(i)=20000Case l:fq(i)=523Case 2:fq(i)=587Case 3:fq(i)=659Case 4:fq(i)=698Case 5:fq(i)=784Case 6:fq(i)=880Case 7:fq(i)二988Case 18:fq(i)二1047Case 85:fq(i)=392Case 86:fq(i)=440Case 87:fq(i)=494Case Else:fq(i) = 20000End SelectNext iClose #1* 打开音符时间的文件 *Open dth_time.txtFor Input As #1Far i=1 To 47Input #1,delay(i)Next iClose #1For i=1 To 47SOUND fq(i),delay(i)*2Next IClosesound()End SubSub SOUND(frequency&,ByVal duration%)frequency&=frequency& * 65335x=SetVoiceSound(1,frequency&,duration%)y=StartSound()End Sub 2、利用OLE控制产生VB中的OLE(对象链接与嵌入)控制也可以用来播放声音文件，比如*.wav，*.mid等等。我们可以将自己编写的歌曲存为*.wav，或*.mid文件，再利用OLE来放出。利用OLE来发出声音有两种不同的方式：一是在设计阶段就把装了声音文件的OLE对象建立好，以后只要在他上面双击，就能够发出声音；二是完全由程序来控制。在设计阶段建立OLE对象的方法是：首先在窗体上设置OLE对象，这时会出现Insert Object对话框，然后选好Sound对象，接着设置Create from File复选钮，再在File：输入框里输入声音文件，或利用对话框中的Browse按钮去寻找，最后设置link单选框即可，以后只要在OLE上