【 tulaoshi.com - 编程语言 】
在一个多媒体应用程序中，如果涉及对声音的播放与操作，那么我们就有必要先对用户系统中的声卡及真功能进行一下测试。幸好有VB，所以我们要实现这些功能并不用费多大力气（也就是吃顿饭的力气），在下面的程序中我们将利用VB调用两个windowsApi函数--Waveoutgetnumdevs()和Waveoutgetdev-capS()来访问设备驱动程序，获取有关信息，实现上述目的。OK，Let'sGo!一、我们先要捡测一下声卡是否存在
1．新建一工程并添加模块Module1.bas，在其声明部分加入如下代码：
DeclareFunctionWaveoutgetnumdevsLib"Winmm.Dll"()asLong
PublicConstMb_ok=&H40
2.在窗体上添加一个命令按钮cmdtest，设置Caption的属性为“测试声卡”
3.在窗体的通用声明部分加入一函数testcard,代码如下：
PublicFunctionTestcard()AsBoolean
DimYAslong
DimFindAsStringFind=“FiedSoundBlasterCard"
Y=Waveoutgetnumdevs()
IfY0Then
Testcard=True
Msgbox"啥啥，我找到你了--声卡!",Mb_ok,Find
Else
Testcard=Falsc
Msgbox"未发现设备",Mb_ok,Find
Endif
EndFunction
4.在命令按钮的单击事件中加入代码:
PrivatesubCmdtest_Click()
DimExistentAsBoolean
Existent=Testcard
Endsub
现在你可以运行这个程序试试看了，它会检测你的系统中是否有声卡的存在。二、测试声卡的功能
既然已经发现了声卡的存在，接下来就要测试一下它的功能。为什么？举个例子来说，老式声卡支持的采样率和位分辨率是远不及现在声卡的，如果你试图用只有8位分辨率和22.05KHz采样率的声卡来播放44.1KHz、16位立体声的声音文件，嘿嘿……有你好看（其实也没啥大不了的）。好，你大胆的往下看。
1．在窗体上加入picturebox控件picture1。
2．在Module1.bass的声名节中加入代码：
DeclareFunctionWaveoutgetdevcapsLib"Winmm.dll"Alias"Waveoutgetdevcapsa"（ByvaIUdcviceidAsLong，LpcapsAsWaveOutcaps，ByvaIUsizeAsLong）AsLong
'参数1指定被测设备。由于一台PC上装有几个音频设备是完全可能的，所以Windows自动给每个设备编号，第一个可用设备号为0。
'参数2是一个Waveoutcaps结构的指针。
'多数3是第二个参数的大小。
PublicConstMaxpnamelen=32
PublicConstWave_Format_1m08=&H1
PublicConstWavp_Format_1ml6=&H4
PublicConstWave_Format_1s08=&H2
PublicConstWave_Format_1sl6=&H8
PublicConstWavc_Format_2m0B=&H1O
PublicConstWave_Format_2m16=&H40
PublicConstWave_Format_2s08=&H20
PublicConstWave_Format_2s16=&H80
PublicConstWave_Format_4m08=&H100
PublicConstWave_Format_4ml6=&H400
PublicConstWave_Format_4s08=&H200
PublicConstWave_Format_4s16=&H800
PublicConstWavecaps_Lrvolume=&H8
PublicConstWavecaps_Pitch=&H1
PublicConstWavecaps_Playbackrate=&H2
PublicConstWavecaps_Sync=&H10
PublicConstWavecaps_Volume=&H4
TypeWaveoutCaps
WmidAsInteger'设备驱动程序厂商标识
WpidAsInteger'声卡厂商标识
VdriverversionAsLong'驱动程序版本号，高字节为主版本号，低字节为次版本号
SzpnameAsString＊Maxpnamelen'产品名称
DwformatsAsLong'支持的wave格式，每一位代表一种格式
WchannelsAsInteger'返回整型值1（单声道）或2（立体声）
DwsupportAsLong'设备支持的扩展输出功能
EndType
3.在窗体的声明节内增加两个函数：
'函数listwaveformat检测波形音频支持的格式
PublicFunctionListwaveformat(AboutwaveAslong)AsString
DimWaveformatAsString
SelectCaseAboutwave
CaseWave_Format_1m08
Waveformat="11.025khz,Mono,8bit,11kb/Ps"
CaseWave_Format_1m16
Waveformat="11.025khz,Mono,16bit,22kb/Ps"
CaseWave_Format_1s08
Waveformat="11.025khz,Stereo,8bit,22kb/Ps"
CaseWave_Format_1s16
Waveformat="11.025khz,Stereo,16bit,43kb/Ps"
Casewave_Format_2m08
Waveformat="22.05khz,Mono,8bit,22kb/Ps"
CaseWavc_Format_2m16
Waveformat="22.05khz.Mono,16bit,43kb/Ps"
CaseWave_Format_2s16
Waveformat="22.05khz,Stereo,8bit,43kb/Ps"
CaseWave_Format_2s16
Waveformat="22.05khz,Stereo,16bit,86kb/Ps"
CaseWave_Format_4m08
Waveformat="44.1khz,Mono,8bit,43kb/Ps"
CaseWave_Format_4m16
Wavcformat="44.lkhz,Mono,16bit,86KB/Ps"
CaseWave_Format_4s08
Waveformat="44.lkhz,Stereo,8bit,86kb/Ps"
CaseWavc_Format_4s16
Waveformat="44.lkhz.Stereo,16bit,172kb/Ps"
EndSelect
Listwaveformat=Waveformat
EndFunction
'函数Listwavesupport检测设备支持的扩展输出功能
PublicFunctionListwavesupport(AboutwaveAslong)AsString
DimWavefunAsString
SclectCaseAboutwave
CaseWavecaps_Pitch
Wavefun="SupportPitch"
CascWavecaps_Playbackrate
Wavefun="SupportPlayback"
CaseWavecaps_Volume
Wavefun="SupportVolumeControl"
CsaeWavecaps_Lrvolume
Wavefun="SupportLeft-RightChannals"
CsaeWavecaps_sync
Wavcfun="SupportSynchronization"
EndSelect
Listwavesupport=Wavefun
EndFunction
4.修改cmdtest_Click事件的代码为:
PrivateSubCmdtest_Click()
DimExistentAsBoolean
DimConsequenceAslong
DimReturncapsAsWaveoutcaps
DimRainverAsLong
DimLesservcrAslong
DimPnameAsString*32
DimAboutwaveAslong
DimChannelAsString*2
DimIAslnteger
Existent=Testcard
IfExistentThen
Consequence=Waveoutgetdevcaps(0,Returncaps,Len(Returncaps))IfConsequence=0Then
Mainver=Returncaps.Vdriverversion256
Lesserver=Returncaps.VdriverversionMod256
'因为API在返回Returncaps.szpname时在返回值与空格之间会插入一个空的终止符，用Rtrim$会返回一个0终止字符串，所以我们采用Instr Left$的方法.
Pname=Left$(Returncaps.Szpname,Instr(Returncaps.Szpname,Chrr$(0))-1)
Channe1=Str$(Returncaps.Wchannels)
Picture1.Print"产品名称:";Pname
Picture1.Print"产品Id:";Returncaps.Wpid
Picture1.Print"驱动程序Id:";Returncaps.Wrmid
Picture1.Print"驱动程序版本:";Mainver;".";LesserverPicture1.Print"输出声道:";Channel
Picture1.Print"支持格式列表:"
ForI=0TO11
IfReturncaps.DwformatsAnd(2^I)Then
Picture1.PrintListwaveformat(2^I)
Endif
NextI
Picture1.Print"扩展输出功能列表:"
Forl=0To4
IfReturncaps.DwsupportAnd(2^I)Then
Picture1.PrintListwavesupport(2^I)
Endif
NextI
Endif
Else
End
Endif
EndSub
5.为Form_load事件加入代码:
PrivateSubForm_Load()Picture1.ClsEndSub本程序在Win95(osr2)、VB5企业版下调试通过，在win3.2下仅仅两个API函数略有改变，照猫画虎即可。
好了，工作已经全部做完了。现在你要做的只是按下F5,我也要随风而去了，各位看官后会有期，隐也。->
