用Visual Basic进行多媒体设计

二、用VB的声音功能产生多媒体效果

　　1、利用API函数

　　VB没有提供像PLAY这样的声音函数，它只有一个简单的BEEP，使机器产生一下蜂鸣声。要想产生音乐，可以调用Windows的动态链接库DLL中的函数或是调用VB动态链接库文件VBX。一般是先要在窗体层的通用说明部分或模块层对调用的Windows函数进行说明。音乐函数主要是调用"SOUND.DRV"库中的几个API函数，说明之后就可以直接使用了。调用以下几个函数可使计算机演奏出悦耳的歌曲。

　　Opensound()打开发声设备
　　StarlSound()开始产生音乐
　　CloseSound()关闭发声设备
　　SetVoiceSound(声音队列、频率、持续时间)
　　SetVoiceQueueSize(声音队列，内存空间字节数)

　　以下程序产生"东方红"乐曲，单击窗体即可。

Sub form1_click( ) 　* 乐曲"东方红" * 　Dim ff 　ReDim fq(1 To 47) 　ReDim delay(1 To 47) 　x=OpenSound() 　y=SetVioceQueueSine(1,1024) 　* 打开频率文件 * 　Open "dth_fieq.txt" For Input As #1 　For i=1 To 47 　　Input #l,ff 　　Select Case ff 　　　Case O:fq(i)=20000 　　　Case l:fq(i)=523 　　　Case 2:fq(i)=587 　　　Case 3:fq(i)=659 　　　Case 4:fq(i)=698 　　　Case 5:fq(i)=784 　　　Case 6:fq(i)=880 　　　Case 7:fq(i)二988 　　　Case 18:fq(i)二1047 　　　Case 85:fq(i)=392 　　　Case 86:fq(i)=440 　　　Case 87:fq(i)=494 　　　Case Else:fq(i) = 20000 　　End Select 　Next i 　Close #1 　* 打开音符时间的文件 * 　Open "dth_time.txt"For Input As #1 　Far i=1 To 47 　　Input #1,delay(i) 　Next i 　Close #1 　For i=1 To 47 　　SOUND fq(i),delay(i)*2 　Next I 　Closesound() End Sub Sub SOUND(frequency&,ByVal duration%) 　frequency&=frequency& * 65335 　x=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上双击就可以听到声音了。

　　由程序控制声音的播放，可在窗体上设置一个空的OLE对象，然后再写一段下面的程序就可以了:

Sub Form_click() 　Olel_class="soundRec" 　Olel.SourceDoc="声音文件名及其路径" 　Olel.Verb=0 　Olel.Action=7

　　程序运行后，只要单击窗体就可以听到声音了。

查看本文来源