VB.NET實現DirectSound9 (6) 聲音特效

關鍵字: VB.NET DirectSound 9 聲音特效 回聲Echo?????????????????????? 作者:董含君
轉載請注明來自:http://blog.csdn.net/a11s

實際上這個就是傳說的混音,微軟把各種效果添加起來變成了混音程序
嚴格的講,這個算作聲音的特效.

微軟的DirectX的例子還有一個特點,就是愛把簡單的問題復雜化,我用了大量的時間搞清出中間的各種對象怎樣協作的,明白之后再來考慮各自的用途.雖然相信微軟這么做也許是有道理的,但是不適合初學者.經過嘗試整理出了以下結果.

首先大體介紹一下步驟
============================================================
加載
1 需要設備以及一個緩沖用于播放聲音(具體請參見前文的介紹)

2 描述這個緩沖區的時候,記得加上ControlEffects=true的屬性(跟ControlVolume是一個道理)

讀取
3? new SecondaryBuffer讀取文件,這個文件如果太小,則會出現錯誤.無法體現效果,需要try catch一下

設置效果
4 設置效果需要介紹一些對象,稍后再說

5 播放,同時可以進行相關屬性的操作

6 特效的移除
7 停止播放
=====================================

由此可見,大體步驟跟3D音效類似,只不過中間多了效果設置而已

以下是對象的介紹.

1 首先需要了解,一個聲音(Buffer)可以同時應用多種效果
這樣就產生了一個問題,如何才能設置我們的SecondaryBuffer有這些效果

DirectSound是用一個數組來表示的,添加一個效果,這個數組就有一個元素.兩個效果,這個數組就有兩個元素.
依次類推.

我們的SecondaryBuffer應用的時候,是直接將這個數組一同傳遞給SecondaryBuffer的.
??????? SB.SetEffects(effd)

2 不要以為什么特效都要自己做(天!千萬別這么想,否則需要專門研究計算機聲學的)
微軟DirectSound內置了幾種特效,可以參見微軟SDK最后的那個例子,也可以用
DSoundHelper.StandardEchoGuid 類似的這種形式列出

3 每種特效的屬性都是一個結構體(也可以理解為對象).我們有很多特效的對象
比如 Dim echo As EchoEffect

4 每種特效對象的屬性是一個結構體(需要跟上面區分開來)
比如RchoEffect對象不能直接用這種方法修改echo.WetDryMix屬性
需要利用一個結構體來完成echo屬性的存儲,這個結構體叫做
EffectsEcho? (微軟真是作孽啊,名字取得都這么像,很難區分的)
??????? Dim eff As New EffectsEcho????????? '''結構
??????? eff = echo.AllParameters
??????? eff.WetDryMix = 0
??????? eff.Feedback = 0
??????? eff.LeftDelay = 1
??????? eff.RightDelay = 1
??????? eff.PanDelay = 0
設置完成之后,一次性傳給特效對象echo
??????? echo.AllParameters = eff

5 Buffer播放的時候可以可以調整特效屬性的,只要修改echo.allparameters就可以了

知道中間怎么做的了,然后看代碼

代碼分為幾個部分,主要還是為了容易理解
第一步,初始化設備(實在太經典了,就不用看了)
第二步,加載wav(就是多了一個controlEffect,別的都一樣)
第三步,設置音效(單獨看)
第四步,播放(簡單一個play)
第五步,停止播放

Imports Microsoft.DirectX.DirectSound<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" />

?

Public Class Form1

??? Inherits System.Windows.Forms.Form

?

#Region " Windows 窗體設計器生成的代碼 "

?

??? Public Sub New()

??????? MyBase.New()

?

??????? '該調用是 Windows 窗體設計器所必需的。

??????? InitializeComponent()

?

??????? '在 InitializeComponent() 調用之后添加任何初始化

?

??? End Sub

?

??? '窗體重寫 dispose 以清理組件列表。

??? Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)

??????? If disposing Then

??????????? If Not (components Is Nothing) Then

??????????????? components.Dispose()

??????????? End If

??????? End If

??????? MyBase.Dispose(disposing)

??? End Sub

?

??? 'Windows 窗體設計器所必需的

??? Private components As System.ComponentModel.IContainer

?

??? '注意: 以下過程是 Windows 窗體設計器所必需的

??? '可以使用 Windows 窗體設計器修改此過程。

??? '不要使用代碼編輯器修改它。

??? Friend WithEvents TextBox1 As System.Windows.Forms.TextBox

??? Friend WithEvents Button1 As System.Windows.Forms.Button

??? Friend WithEvents Button2 As System.Windows.Forms.Button

??? Friend WithEvents Button3 As System.Windows.Forms.Button

??? Friend WithEvents Button4 As System.Windows.Forms.Button

??? Friend WithEvents Button5 As System.Windows.Forms.Button

??? <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

??????? Me.TextBox1 = New System.Windows.Forms.TextBox

??????? Me.Button1 = New System.Windows.Forms.Button

??????? Me.Button2 = New System.Windows.Forms.Button

??????? Me.Button3 = New System.Windows.Forms.Button

??????? Me.Button4 = New System.Windows.Forms.Button

??????? Me.Button5 = New System.Windows.Forms.Button

??????? Me.SuspendLayout()

??????? '

??????? 'TextBox1

??????? '

??????? Me.TextBox1.Location = New System.Drawing.Point(104, 40)

??????? Me.TextBox1.Name = "TextBox1"

??????? Me.TextBox1.Size = New System.Drawing.Size(160, 21)

??????? Me.TextBox1.TabIndex = 2

??????? Me.TextBox1.Text = "g:\media\wav\rod2.wav"

??????? '

??????? 'Button1

??????? '

??????? Me.Button1.Location = New System.Drawing.Point(16, 8)

??????? Me.Button1.Name = "Button1"

??????? Me.Button1.Size = New System.Drawing.Size(80, 24)

??????? Me.Button1.TabIndex = 3

??????? Me.Button1.Text = "init"

??????? '

??????? 'Button2

??????? '

??????? Me.Button2.Location = New System.Drawing.Point(16, 40)

??????? Me.Button2.Name = "Button2"

??????? Me.Button2.Size = New System.Drawing.Size(80, 24)

??????? Me.Button2.TabIndex = 4

??????? Me.Button2.Text = "load"

??????? '

??????? 'Button3

??????? '

??????? Me.Button3.Location = New System.Drawing.Point(16, 72)

??????? Me.Button3.Name = "Button3"

?????? ?Me.Button3.Size = New System.Drawing.Size(80, 24)

??????? Me.Button3.TabIndex = 5

??????? Me.Button3.Text = "play"

??????? '

??????? 'Button4

??????? '

??????? Me.Button4.Location = New System.Drawing.Point(16, 104)

??????? Me.Button4.Name = "Button4"

?? ?????Me.Button4.Size = New System.Drawing.Size(80, 24)

??????? Me.Button4.TabIndex = 6

??????? Me.Button4.Text = "stop"

??????? '

??????? 'Button5

??????? '

??????? Me.Button5.Location = New System.Drawing.Point(280, 40)

??????? Me.Button5.Name = "Button5"

??????? Me.Button5.Size = New System.Drawing.Size(88, 24)

??????? Me.Button5.TabIndex = 7

??????? Me.Button5.Text = "Echo"

??????? '

??????? 'Form1

??????? '

??????? Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)

??????? Me.ClientSize = New System.Drawing.Size(400, 269)

??????? Me.Controls.Add(Me.Button5)

??????? Me.Controls.Add(Me.Button4)

??????? Me.Controls.Add(Me.Button3)

??????? Me.Controls.Add(Me.Button2)

??????? Me.Controls.Add(Me.Button1)

??????? Me.Controls.Add(Me.TextBox1)

??????? Me.Name = "Form1"

??????? Me.Text = "Form1"

??????? Me.ResumeLayout(False)

?

??? End Sub

?

#End Region

??? Dim Dev As Device

??? Dim PB As Buffer

??? Dim SB As SecondaryBuffer

??? Dim Desc1 As BufferDescription

??? Dim desc2 As BufferDescription

??? Dim eff As EffectDescription

?

??? Private Structure EffectInfo

?

??????? Public description As EffectDescription

??????? Public EffectSettings As Object

??????? Public Effect As Object

??? End Structure

?

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

??????? '''加載DirectSound

??????? Dev = New Device

??????? Dev.SetCooperativeLevel(Me, CooperativeLevel.Priority)

??????? Me.Text = "init ok"

??? End Sub

?

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

??????? '''讀取wav

??????? Desc1 = New BufferDescription

??????? Desc1.ControlEffects = True

??????? SB = New SecondaryBuffer(TextBox1.Text, Desc1, Dev)

??????? Me.Text = "load ok"

??? End Sub

?

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

??????? '''播放啊播放

??????? If SB Is Nothing Then Exit Sub

??????? SB.Play(0, BufferPlayFlags.Default)

??????? Me.Text = "playing"

??? End Sub

?

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

??????? '''停止播放,釋放當前的wav

??????? SB.Stop()

??????? SB.Dispose()

??????? Me.Text = "disposed"

??? End Sub

?

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

'''主要看這個

??????? ''' 我的數組聲明了一個元素,看起來沒有必要,但是設置的時候要求必須是數組,哪怕元素只有一個

??????? ''' 如果需要更多的效果,設置相應的元素個數

??????? Dim effd(0) As EffectDescription??????? ''描述集合

??????? Dim eff As New EffectsEcho????????????? '''結構,由于對象不能單獨設置屬性,只能用它間接修改

??????? '''關鍵步驟,指定特效的類型

??????? effd(0).GuidEffectClass = DSoundHelper.StandardEchoGuid???? '''說明第一種效果是回聲

??????? '''軟件,你要是用硬件,我也不反對

??????? effd(0).LocateInSoftware = True

??????? '''直接一次性提交給Buffer,提交的是一個數組

??????? SB.SetEffects(effd)

??????? '''聲明一個特效對象,別忘了我們需要修改參數滴

??????? Dim echo As EchoEffect

??????? '''得到當前Buffer的效果

??????? ''' 這個后面的0,正是你一次性傳遞過去的效果的index,忘了?就是剛才那個數組

??????? echo = SB.GetEffects(0)

??????? '''對象不能直接修改,所以用它來間接改

??????? eff = echo.AllParameters

??????? eff.WetDryMix = 50

??????? eff.Feedback = 50

??????? eff.LeftDelay = 500

??????? eff.RightDelay = 500

??????? eff.PanDelay = 0

??????? '''OK,就這樣,你可以嘗試用其他數據代替里面的數值,其中LeftDelay跟RightDelay的定義域在1~2000,

??????? ''' 你可以用echo的屬性得到最大最小數值(方便了很多)

??????? echo.AllParameters = eff

?

??????? Me.Text = "echo ok"

??? End Sub

End Class

?

好了,復制過去直接運行就可.

我用了Echo作為例子來說明問題(估計這個用的也是最多,效果最明顯的)還有很多,你參照微軟的例子,再改改上面的代碼就能輕松實現,我就不廢話了.

下一步.錄音

posted on 2005-11-08 08:51 a11s.net 閱讀(...) 評論(...) 編輯 收藏

轉載于:https://www.cnblogs.com/a11s/archive/2005/11/08/271187.html

總結

以上是生活随笔為你收集整理的VB.NET实现DirectSound9 (6) 声音特效的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。