独自幸福快乐吵架放狼狗咬伤邻居0依依不舍孤独

前言

微软提供的DirectX技术不仅可以实现图形图像的处理，而且DirectX提供了DirectSound和DirectMusic类以分别支持声音（WAVE）文件和音乐（MIDI）文件，笔者结合自己的学习体会，介绍如何在Visual Basic环境下利用DirectX技术实现WAVE和MIDI文件的处理，和广大编程爱好者一起交流，希望能够互相学习，共同进步。

一、DirectSound声音处理技术

DirectSound类对象是DirectX提供的实现播放、捕捉数字声音文件的对象，它不仅可以播放声音文件，还可以实现声音在虚拟的三维空间的定位。它包括以下的几个对象：DirectSound、DirectSoundBuffer、DirectSound3Dbuffer、Direct3DsoundListner、DirectSoundCapture、DirectSoundCaptureBuffer。其中DirectSound对象和DirectSoundCapture对象是DirectSound类对象的基本对象包管消息来历靠得住，利用DirectX7对象的DirectSoundCreate()方法和DirectSoundCaptureCreate()方法可以分别建立DirectSound对象和DirectSoundCapture对象。DirectSoundBuffer对象和DirectSound3Dbuffer是音频播放缓冲对象，顾名思义，前者是音频播放对象，而后者是三维音频播放对象。DirectSound对象实现声音文件的播放光圈在f/之间简直是街拍利器，而DirectSoundCapture对象是用来捕捉声音数据的基本对象。Direct3DSoundListner对象用于设置播放三维声音效果时收听者所处的位置。

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

s

'以黑色圈标出收听者所在的位置

rcle (aleWidth / 2, aleHeight / 2), 4

'以红色圈标出声音所在的位置

X = CInt(m_pos.X) + aleWidth / 2

z = CInt(m_pos.z) + aleHeight / 2

rcle (X, z), 4, RGB(255, 0, 0)

End Sub

Sub Load(sFile As String)

Dim bufferDesc1 As DSBUFFERDESC

Dim waveFormat1 As WAVEFORMATEX

'设置将建立的DirectSoundBuffer对象的属性

lags = (DSBCAPS_CTRL3D Or DSBCAPS_CTRLFREQUENCY Or _

DSBCAPS_CTRLPAN Or DSBCAPS_CTRLVOLUME) Or DSBCAPS_STATIC

'建立DirectSoundBuffer对象

Set m_dsBuffer = m_eateSoundBufferFromFile(sFile, bufferDesc1, _

waveFormat1)

'设置DirectSoundBuffer对象的声音（0为最大）

m_tVolume 0

'设置DirectSoundBuffer对象

Set m_ds3dBuffer = m_tDirectSound3DBuffer

'设置DirectSoundBuffer对象的播放方向属性

m_tConeOrientation 1, 1, 1, DS3D_IMMEDIATE

m_tConeAngles DS3D_MINCONEANGLE, 100, DS3D_IMMEDIATE

m_tConeOutsideVolume -100, DS3D_IMMEDIATE

'设置DirectSoundBuffer对象的播放位置属性

m_tPosition 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 - aleWidth / 2

m_pos.z = z - aleHeight / 2

DrawPositions

If m_ds3dBuffer Is Nothing Then Exit Sub

'重新设置DirectSoundBuffer对象的播放位置属性

m_tPosition 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(th + "\v")

End If

'循环播放声音文件

m_ay 1

End Sub

Private Sub Command2_Click()

If m_dsBuffer Is Nothing Then Exit Sub

m_op

m_tCurrentPosition 0

End Sub

Private Sub Form_Load()

Dim i As Integer

ption = "播放"

ption = "停止"

ow

DoEvents

On Local Error Resume Next

'建立DirectSound对象

Set m_ds = m_rectSoundCreate(vbNullString)

If mber 0 Then

MsgBox "无法建立DirectSound对象，请查看声卡或驱动程序是否安装正确"

End

End If

'设置DirectSound对象的协作模式

m_tCooperativeLevel nd, DSSCL_PRIORITY

Dim primDesc As DSBUFFERDESC, format As WAVEFORMATEX

lags = DSBCAPS_CTRL3D Or DSBCAPS_PRIMARYBUFFER

'建立主声音缓冲对象

Set m_dsPrimaryBuffer = m_eateSoundBuffer(primDesc, format)

'建立DirectSound3DListener对象

Set m_dsListener = m_tDirectSound3DListener()

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中回出现一个黑色和一个红色的小圆圈。黑色的代表虚拟的收听者的位置，红色的代表音源的位置。点击"播放"按钮即可以播放wav文件，你可以点击PictureBox中的不同位置来设置音源的位置，然后再听一下声音发生的改变，由于本人机器上安装的只是普通双声道声卡，所以效果不是很明显，有高档多声道声卡的朋友可以使用上面的程序感受一下你的声卡的三维效果。

宝宝积食拉肚子
金昌白癜风医院有哪些
吃什么可以治小便发黄