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

1.用Win32 API PlaySound

成都網(wǎng)絡公司-成都網(wǎng)站建設公司成都創(chuàng)新互聯(lián)10年經(jīng)驗成就非凡，專業(yè)從事成都網(wǎng)站建設、成都網(wǎng)站設計，成都網(wǎng)頁設計，成都網(wǎng)頁制作，軟文發(fā)布平臺，廣告投放平臺等。10年來已成功提供全面的成都網(wǎng)站建設方案，打造行業(yè)特色的成都網(wǎng)站建設案例，建站熱線：028-86922220，我們期待您的來電！

PlaySound位于"winmm.dll"中，可以根據(jù)輸入?yún)?shù)的不同，播放WAV類型的音樂。在VB.NET中調用跟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

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

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

PlaySound(mstrfileName, 0, SND_FILENAME)

注意上面的播放是非同步的，就是說它并不會播放完畢才結束。如果把上面的代碼寫在一個Button.Click的事件處理程序中，第二次點擊的時候它會打斷第一次的播放，重新開始。

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

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

' 以同步的方式調用系統(tǒng)啟動時候的聲音。

2． 調用媒體播放器控件

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

首先把媒體播放器控件加到工具欄中，調用還是簡單的寫一下吧：）

Private Sub playMediaFile(ByVal mediaFileName As String)

With MediaPlayer1

.Stop()

.FileName = "c:\mp3\愛不愛我.mp3"

.Play()

End With

End Sub

VB.net 如何同時播放多個資源文件內的wav

用API mciSendString可以同時播放多個聲音，需要提供路徑。

資源文件很麻煩，要用反射讀取出來，再用IO寫到磁盤路徑。

你是做游戲把？軟糖建議是不要使用資源文件，而使用本地文件。

用個BGM文件夾保存背景音樂，用SE文件夾保存音效（學習RPG Maker的做法）

API代碼奉上，具體實現(xiàn)模塊字數(shù)超過最大值，請下載附件

Imports?System.Text

'''?summary

'''?可播放MPEG,AVI,WAV,MP3,MID,WMA等格式的音頻文件,*不支持OGG

'''?/summary

Public?Class?音頻設備

'聲明API函數(shù):?mciSendString

System.Runtime.InteropServices.DllImport("winmm.dll",?EntryPoint:="mciSendString")

Public?Shared?Function?mciSendString(strCommand?As?String,

strReturn?As?StringBuilder,

iReturnLength?As?Integer,

hwndCallback?As?Integer)?As?Integer

End?Function

'聲明API函數(shù):?mciGetErrorString

System.Runtime.InteropServices.DllImport("winmm.dll",?EntryPoint:="mciSendString")

Public?Shared?Function?mciGetErrorString(errCode?As?Integer,

errMsg?As?StringBuilder,

buflen?As?Integer)?As?Integer

調用方法

Public?Class?Form1

Dim?音頻設備?As?New?音頻設備

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

Dim?路徑?=?"F:\音樂文件名.mp3"

音頻設備.打開("自定義名稱1",?路徑)

音頻設備.播放("自定義名稱1")

'音頻設備.暫停("自定義名稱1")

'音頻設備.繼續(xù)("自定義名稱1")

'音頻設備.關閉("自定義名稱1")

End?Sub

End?Class

如滿意，請采納，還有不懂的請追問，謝謝。

vb.net 中 如何實現(xiàn) 播放mp3文件

在.NET里，沒有托管的音樂播放器，用API只能播放WAV格式，對于MP3等形式的音頻文件，就要依賴于其他控件了，常用的就是

MediaPlayer。使用方法：

在工具箱上點右鍵，選擇“選擇項目(Choose

Items)”，切到COM選項卡，找到

Windows

Media

Player，

勾選，確定

在t工具箱上，把剛才加入的MediaPlayer控件，拖放到窗體上

代碼：

WindowsMediaPlayer1.URL

=

"mp3文件路徑，支持網(wǎng)絡路徑"

WindowsMediaPlayer1.Ctlcontrols.play

基本就OK了，至于其他的操作諸如下一曲上一曲暫停停止，直接看

WindowsMediaPlayer1.Ctlcontrols.

里面的方法吧。

我用二進制讀取了聲音文件，VB或VB.net如何播放二進制聲音數(shù)據(jù)，請高手賜教！

不明白你為什么要二進制讀取聲音文件，VB可以直接調用API播放聲音文件，不需要你二進制來讀取聲音文件的。

Private

Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA"

(ByVal lpszSoundName As String, ByVal uFlags As Long) As Long

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Sub PlayWavFile(strFileName As String, PlayCount As Long, JianGe As Long)

'strFileName 要播放的文件名(帶路徑)

'playCount 播放的次數(shù)

'JianGe 多次播放時,每次的時間間隔

If Len(Dir(strFileName)) = 0 Then Exit Sub

If PlayCount = 0 Then Exit Sub

If JianGe 1000 Then JianGe = 1000

DoEvents

sndPlaySound strFileName, 16 + 1

Sleep JianGe

Call PlayWavFile(strFileName, PlayCount - 1, JianGe)

End Sub

Private Sub Form_Click()

PlayWavFile "C:\aaa.wav", 1, 1000 '參數(shù)：播放文件，播放次數(shù)，播放間隔

End Sub

VB.net如何加載音效？

方法一：調用系統(tǒng)DLL（這個有點不完善，也就是播放聲音時窗體無法控制，效果相當于Enabled=true，但音頻播放完畢后就沒事了）

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的可見為False）

先添加一個windowsmediaplayer控件（工具箱里沒有，需要手動添加）

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

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

vb.net怎么播放音樂文件

添加一個 WindowsMediaPlayer 控件 一句代碼即可播放音樂 AxWindowsMediaPlayer1.URL = "音樂地址"