vb.net怎么編程實(shí)現(xiàn)從音頻輸出口輸出指定頻率指定時(shí)長(zhǎng)和占空比的單音信號(hào)。

1.用Win32 API PlaySound

公司主營(yíng)業(yè)務(wù)：成都網(wǎng)站設(shè)計(jì)、網(wǎng)站制作、移動(dòng)網(wǎng)站開(kāi)發(fā)等業(yè)務(wù)。幫助企業(yè)客戶真正實(shí)現(xiàn)互聯(lián)網(wǎng)宣傳，提高企業(yè)的競(jìng)爭(zhēng)能力。創(chuàng)新互聯(lián)是一支青春激揚(yáng)、勤奮敬業(yè)、活力青春激揚(yáng)、勤奮敬業(yè)、活力澎湃、和諧高效的團(tuán)隊(duì)。公司秉承以“開(kāi)放、自由、嚴(yán)謹(jǐn)、自律”為核心的企業(yè)文化，感謝他們對(duì)我們的高要求，感謝他們從不同領(lǐng)域給我們帶來(lái)的挑戰(zhàn)，讓我們激情的團(tuán)隊(duì)有機(jī)會(huì)用頭腦與智慧不斷的給客戶帶來(lái)驚喜。創(chuàng)新互聯(lián)推出甕安免費(fèi)做網(wǎng)站回饋大家。

PlaySound位于"winmm.dll"中，可以根據(jù)輸入?yún)?shù)的不同，播放WAV類型的音樂(lè)。在VB.NET中調(diào)用跟VB6中差不多：

先聲明：

Private Declare Auto Function PlaySound Lib "winmm.dll" (ByVal lpszSoundName As String, ByVal hModule As Integer, ByVal dwFlags As Integer) As Integer

Const SND_FILENAME As Integer = H20000

Const SND_ALIAS As Integer = H10000

Const SND_SYNC As Integer = H0

具體還有很多常量，不一一列舉，下面是播放一個(gè)wav文件的例子

Dim mstrfileName As String = "c:\eagle2.wav"

PlaySound(mstrfileName, 0, SND_FILENAME)

注意上面的播放是非同步的，就是說(shuō)它并不會(huì)播放完畢才結(jié)束。如果把上面的代碼寫在一個(gè)Button.Click的事件處理程序中，第二次點(diǎn)擊的時(shí)候它會(huì)打斷第一次的播放，重新開(kāi)始。

當(dāng)然我們也可以調(diào)用系統(tǒng)的聲音：

PlaySound("SystemStart", 0, SND_ALIAS Or SND_SYNC)

' 以同步的方式調(diào)用系統(tǒng)啟動(dòng)時(shí)候的聲音。

2． 調(diào)用媒體播放器控件

VB.NET中并沒(méi)有提供媒體播放器的.NET組件，沒(méi)辦法我們還是調(diào)用以前Com組件Windows Media Player。當(dāng)然除了聲音外，還可以播放視頻文件。

首先把媒體播放器控件加到工具欄中，調(diào)用還是簡(jiǎn)單的寫一下吧：）

Private Sub playMediaFile(ByVal mediaFileName As String)

With MediaPlayer1

.Stop()

.FileName = "c:\mp3\愛(ài)不愛(ài)我.mp3"

.Play()

End With

End Sub

關(guān)于VB.NET的WindowsMediaPlayer控件的問(wèn)題

思路很重要，我以前做過(guò),上一曲下一曲，這個(gè)控件有自帶的，順序的話就是判斷是否到音樂(lè)幀的尾端，如果是，就指向下一曲,循環(huán)的話有單曲和全部，也是比較簡(jiǎn)單,同順序,至于

隨機(jī)播放

的話，我當(dāng)時(shí)是用

隨機(jī)數(shù)

解決的，就是計(jì)算列表中有多少首歌曲，計(jì)算之后，進(jìn)行隨機(jī)產(chǎn)生一個(gè)數(shù)字，用該數(shù)字定位歌曲，進(jìn)行播放

VB.net如何加載音效？

方法一：調(diào)用系統(tǒng)DLL（這個(gè)有點(diǎn)不完善，也就是播放聲音時(shí)窗體無(wú)法控制，效果相當(dāng)于Enabled=true，但音頻播放完畢后就沒(méi)事了）

Private?Declare?Function?sndPlaySound?Lib?"Winmm.dll"?Alias?"sndPlaySoundA"?(ByVal?lpszSoundName?As?String,?ByVal?uFlags?As?Long)?As?Long

Private?Sub?Button1_Click(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?Button1.Click

Dim?SoundFile?As?String,?Result?As?Long

SoundFile?=?"D:\KuGou\Pianoboy?-?第105天.wav"?'此處為路徑

Result?=?sndPlaySound(SoundFile,?0)

End?Sub

方法二：使用WindowsMediaPlayer（WindowsMediaPlayer1的可見(jiàn)為False）

先添加一個(gè)windowsmediaplayer控件（工具箱里沒(méi)有，需要手動(dòng)添加）

Private?Sub?Button1_Click(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?Button1.Click

WindowsMediaPlayer1.visible=False

Me.WindowsMediaPlayer1.URL?=?"D:\KuGou\Pianoboy?-?第105天.mp3"

End?Sub

上面的都是點(diǎn)擊button1（按鈕1）后播放聲音，若是鼠標(biāo)移動(dòng)到某控件上發(fā)出聲音的話改一下觸發(fā)事件就OK了。

vb.net 怎么添加Windows Media Player控件? 注意是VB.NET不是VB

“工具箱”中單擊右鍵，選擇“選擇項(xiàng)”菜單，打開(kāi)“選擇工具箱項(xiàng)”窗口，選擇“

COM組件

”標(biāo)簽，在列表中找到并勾選“Windows

Media

Player”組件，單擊“確定”按鈕。將該組件添加到指定的工具箱

選項(xiàng)卡

中，然后在工具箱里面找

Windows

Media

Player

控件，拉到form里面，拉出來(lái)的控件就是AxWindowsMediaPlayer

vb.net中如何播放聲音，是要什么控件嘛？

My.Computer.Audio.Play("SoundFile.wav")

SoundFile.wav是你要播放的聲音文件的路徑

vb.net中的mediaplay控件播放視頻有圖像無(wú)聲音，何解？

該控件調(diào)用的是你的電腦上的播放器

Windows Media Player本身支持的視頻格式很少 （有.wmv、.wvx、.asf、.asx、.wpl、.wm、.wmx、.wmd 和 .wmz .vob、.avi、.mpeg、.mpg、.mpe、.m1v、.mp2、.mpv2、.mp2v 和 .mpa ），而且您的計(jì)算機(jī)上面必須安裝很多解碼器才能完全支持這些格式 ,所以您下載的電影有可能不能播放。

如果您想讓W(xué)indows Media Player支持不僅以上格式，而且支持幾乎所有視頻格式，就請(qǐng)您下載安裝完美解碼這款軟件，安裝完后，在Windows Media Player的主菜單（鼠標(biāo)右鍵Windows Media Player窗口的頂端）當(dāng)中選擇工具--選項(xiàng)--DVD選項(xiàng)卡--高級(jí)--在彈出來(lái)的對(duì)話框中選擇“編碼解碼器”選項(xiàng)卡，在右面一側(cè)把顯示“未啟用”字樣的全部改為“l(fā)ibavcodec”字樣，單擊確定，然后，您會(huì)發(fā)現(xiàn)Windows Media Player支持很多格式（包括播放DVD、3GP）

文章題目：vb.net揚(yáng)聲器控件,vb聲音控件
文章地址：http://chinadenli.net/article12/dsgeggc.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供動(dòng)態(tài)網(wǎng)站、商城網(wǎng)站、小程序開(kāi)發(fā)、品牌網(wǎng)站設(shè)計(jì)、網(wǎng)站營(yíng)銷、

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請(qǐng)盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng)，如需處理請(qǐng)聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來(lái)源： 創(chuàng)新互聯(lián)