Ну помогите же! Вам это так просто(SetEffects)

[cg_ck]

Я просто не привык. Честно. В остальном уже сам разобрался! Читал в МСДН. Все сделал кроме одного:

http://msdn.microsoft.com/archive/defau ... dio_vb.asp

Как это применить? Как сделать хоть какое-то изменение звука по средствам этой функции. Всё уже написанно. Работает через секондари буфер, но вот единственное что, не могу сделать изменения звука. Просто не понимаю синтаксис.

[d3drm]

да уж, нам это ТАК просто!

собсно было бы наверно правильнее постить в раздел по 3D.

там же абсолютно все написано! что именно не работает?

[cg_ck]

Наверно там было бы лучше. Не подумал. А именно, второйпараметр не могу выставить. Не понимаю что там нуно писать. Вообще, как эту функцию определить? Тоесь, хотя бы один пример как она правильно должна быть напсанна.

[d3drm]

второй параметр - это массив DSEFFECTDESC, про него читать тут:
http://msdn.microsoft.com/archive/defau ... dio_vb.asp

я бы мог сделать пример, если бы ты выложил готовый проект, куда тебе это надо вставить.

[cg_ck]

Да! Но я просто в упор не понимаю, как из задовать(параметры)! Вот собственно в чём проблема.

[d3drm]

ну у тебя каркас программы есть? выложи что-ли...

[cg_ck]

Код: Выделить всё

Dim dx As New DirectX8
Dim ds As DirectSound8
Dim dsbuffer1 As DirectSoundSecondaryBuffer8

Private Sub Command1_Click()
    Set ds = dx.DirectSoundCreate("")
    ds.SetCooperativeLevel Form1.hWnd, DSSCL_NORMAL
    Dim bufferDesc As DSBUFFERDESC
    Set dsbuffer1 = ds.CreateSoundBufferFromFile(App.Path & "/Beat004.wav", bufferDesc)
End Sub

Private Sub Command2_Click()
End Sub

Private Sub Command3_Click()
    dsbuffer1.Play (DSBPLAY_DEFAULT)
End Sub


Вот собтвенно и он

[d3drm]

А вот собсно то, что тебе надо было сделать:

Код: Выделить всё

Dim dx As New DirectX8
Dim ds As DirectSound8
Dim dsbuffer1 As DirectSoundSecondaryBuffer8

Private Sub Command1_Click()
    Set ds = dx.DirectSoundCreate("")
    ds.SetCooperativeLevel Form1.hWnd, DSSCL_NORMAL
    Dim bufferDesc As DSBUFFERDESC
    bufferDesc.lFlags = DSBCAPS_CTRLFX
    Set dsbuffer1 = ds.CreateSoundBufferFromFile(App.Path & "/talkArgueMike_Mike.wav", bufferDesc)
End Sub

Private Sub Command3_Click()
    Dim buf(1) As DSEFFECTDESC
    Dim res(1) As Long
    buf(0).guidDSFXClass = DSFX_STANDARD_WAVES_REVERB
    buf(1).guidDSFXClass = DSFX_STANDARD_ECHO
    dsbuffer1.SetFX 2, buf(), res()
    dsbuffer1.Play (DSBPLAY_DEFAULT)
End Sub

поставь wav подлиннее, тогда лучше эффект виден. Там накладываюцца 2 фильтра - эхо, и типа как через трубу. Дисторшн тоже прикольно =)

[cg_ck]

Тут выплёвывается ошибка (Automation Error):

Код: Выделить всё

  dsbuffer1.SetFX 2, buf(), res()


И ничего я не могу сделать.

[cg_ck]

Всё, больше не выплёвывается

[cg_ck]

Спасибо огромное!

[d3drm]

тебе тоже спасибо. чесс говоря не знал до этого что так можно делать =)