VB中使用DirectX库的简明教程(10)

　　下面通过一个程序来介绍DirectSound的应用，这个程序可以利用DirectSound3DBuffer播放文件并可以动态的设置声音位置。首先建立一个工程文件，在其中加入DirectX7说明库，然后在Form1中加入一个PictureBox控件和两个CommandButton控件。将Picture1的Width和Height属性都设置为3000。将Picture1的Scale属性设置为3-Pixel。保存工程文件，并在工程所在的目录下放置一个名为 Demo.wav 的声音文件。在Form1的代码窗口加入以下代码：

Dim m_dx As New DirectX7

Dim m_ds As DirectSound
Dim m_dsBuffer As DirectSoundBuffer
Dim m_ds3dBuffer As DirectSound3DBuffer
Dim m_dsPrimaryBuffer As DirectSoundBuffer
Dim m_dsListener As DirectSound3DListener
Dim m_pos As D3DVECTOR

Sub DrawPositions()
Dim X As Integer
Dim z As Integer

Picture1.Cls

'以黑色圈标出收听者所在的位置
Picture1.Circle (Picture1.ScaleWidth / 2, Picture1.ScaleHeight / 2), 4

'以红色圈标出声音所在的位置
X = CInt(m_pos.X) Picture1.ScaleWidth / 2
z = CInt(m_pos.z) Picture1.ScaleHeight / 2
Picture1.Circle (X, z), 4, RGB(255, 0, 0)
End Sub

Sub Load(sFile As String)
Dim bufferDesc1 As DSBUFFERDESC
Dim waveFormat1 As WAVEFORMATEX

'设置将建立的DirectSoundBuffer对象的属性
bufferDesc1.lFlags = (DSBCAPS_CTRL3D Or DSBCAPS_CTRLFREQUENCY Or _
DSBCAPS_CTRLPAN Or DSBCAPS_CTRLVOLUME) Or DSBCAPS_STATIC
'建立DirectSoundBuffer对象
Set m_dsBuffer = m_ds.CreateSoundBufferFromFile(sFile, bufferDesc1, _
waveFormat1)
'设置DirectSoundBuffer对象的声音（0为最大）
m_dsBuffer.SetVolume 0
'设置DirectSoundBuffer对象
Set m_ds3dBuffer = m_dsBuffer.GetDirectSound3DBuffer

'设置DirectSoundBuffer对象的播放方向属性
m_ds3dBuffer.SetConeOrientation 1, 1, 1, DS3D_IMMEDIATE
m_ds3dBuffer.SetConeAngles DS3D_MINCONEANGLE, 100, DS3D_IMMEDIATE
m_ds3dBuffer.SetConeOutsideVolume -100, DS3D_IMMEDIATE

'设置DirectSoundBuffer对象的播放位置属性
m_ds3dBuffer.SetPosition m_pos.X / 50, 0, m_pos.z / 50, DS3D_IMMEDIATE
End Sub

Sub UpdatePosition(X As Single, z As Single)
m_pos.X = X - Picture1.ScaleWidth / 2
m_pos.z = z - Picture1.ScaleHeight / 2

DrawPositions

If m_ds3dBuffer Is Nothing Then Exit Sub
'重新设置DirectSoundBuffer对象的播放位置属性
m_ds3dBuffer.SetPosition m_pos.X / 50, 0, m_pos.z / 50, DS3D_IMMEDIATE
End Sub

Private Sub Command1_Click()
If m_dsBuffer Is Nothing Then
Call Load(App.Path "\demo.wav")
End If
'循环播放声音文件
m_dsBuffer.Play 1
End Sub

Private Sub Command2_Click()
If m_dsBuffer Is Nothing Then Exit Sub
m_dsBuffer.Stop
m_dsBuffer.SetCurrentPosition 0
End Sub

Private Sub Form_Load()
Dim i As Integer

Command1.Caption = "播放"
Command2.Caption = "停止"
Me.Show
DoEvents
On Local Error Resume Next
'建立DirectSound对象
Set m_ds = m_dx.DirectSoundCreate(vbNullString)

If Err.Number <> 0 Then
MsgBox "无法佳丽DirectSound对象，请查看声卡或驱动程序是否安装正确"
End
End If
'设置DirectSound对象的协作模式
m_ds.SetCooperativeLevel Me.hWnd, DSSCL_PRIORITY

Dim primDesc As DSBUFFERDESC, format As WAVEFORMATEX

primDesc.lFlags = DSBCAPS_CTRL3D Or DSBCAPS_PRIMARYBUFFER
'建立主声音缓冲对象
Set m_dsPrimaryBuffer = m_ds.CreateSoundBuffer(primDesc, format)
'建立DirectSound3DListener对象
Set m_dsListener = m_dsPrimaryBuffer.GetDirectSound3DListener()

m_pos.X = 10: m_pos.z = 50
UpdatePosition m_pos.X, m_pos.z
End Sub

Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
UpdatePosition X, Y
End If
End Sub

Private Sub Picture1_Paint()
DrawPositions
End Sub
　　运行程序，在PictureBox中回出现一个黑色和一个红色的小圆圈。黑色的代表虚拟的收听者的位置，红色的代表音源的位置。点击"播放"按钮即可以播放Demo.wav文件，你可以点击PictureBox中的不同位置来设置音源的位置，然后再听一下声音发生的改变，在本人的爱机上安装的只是普通双声道声卡，所以效果不是很明显，有高档多声道声卡的朋友可以使用上面的程序感受一下你的声卡的三维效果。

　　五、 DirectMusic

　　同DirectSound类对象不同，DirectMusic类对象负责控制对于音乐数据进行播放（象一个MIDI文件）。

　　DirectMusic对象类主要包括以下对象：

DirectMusicLoader
DirectMusicPerformance
DirectMusicSegment

DirectMusicLoader对象负责装载音乐数据文件，利用DirectX7对象的
DirectMusicLoaderCreate方法可以建立一个DirectMusicLoader对象。
DirectMusicSegment对象描述了一个音乐片断
DirectMusicPerformance对象负责对音乐数据回放进行全面控制。它可以定位音乐数据输出通道、播放音乐片断、发送消息、处理事件、获取音乐数据的相关信息等。利用DirectX7的DirectMusicPerformanceCreate方法可以建立一个DirectMusicPerformance对象。

　　下面是一个具体的利用DirectMusic类对象播放音乐数据文件的范例程序。首先建立一个新的工程文件，加入DirectX7说明库，然后在Form1中加入4个CommandButton控件，3个Label控件，一个CommonDialog控件和一个Timer控件。然后在Form1德代码窗口中加入以下代码：

Option Explicit

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

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有