国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 學院 > 開發設計 > 正文

利用VB測聲卡

2019-11-18 17:35:14
字體：大 中 小
來源：轉載
供稿：網友
在一個多媒體應用程序中，如果涉及對聲音的播放與操作，那么我們就有必要先對用戶系統中的聲卡及真功能進行一下測試。幸好有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()
IfY>0Then
Testcard=True
Msgbox"啥啥，我找到你了--聲卡!",Mb_ok,Find
Else
Testcard=Falsc
Msgbox"未發現設備",Mb_ok,Find
Endif
EndFunction
4.在命令按鈕的單擊事件中加入代碼:
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,我也要隨風而去了，各位看官后會有期，隱也。->

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板： 沈丘县| 宁陕县| 灵武市| 平凉市| 铁岭县| 科尔| 开阳县| 宜丰县| 登封市| 潮安县| 池州市| 大邑县| 江阴市| 抚远县| 微山县| 尚志市| 林芝县| 喀什市| 南陵县| 宝丰县| 从化市| 石泉县| 铜山县| 古丈县| 鄢陵县| 枝江市| 榆林市| 扎兰屯市| 同德县| 治县。| 来安县| 诸城市| 亳州市| 嘉荫县| 阿克| 剑河县| 嘉祥县| 格尔木市| 石嘴山市| 阜康市| 海丰县|