0
0

The fx effects doesnt work at me.
Can you help me?

Private Sub Form_Load()
Dim fx As Boolean
fx = FSOUND_SetOutput(FSOUND_OUTPUT_DSOUND)
fx = FSOUND_SetMixer(FSOUND_MIXER_QUALITY_MMXP6)
fx = FSOUND_Init(44100, 32, 0)
file = “C:Documents and SettingsBátori NorbertMy DocumentsMy MusicRegebbiTUNEBOY – Kick Some Bass (Club Mix).mp3”
fx = FSOUND_FX_Enable(1, FSOUND_FX_GARGLE)
fx = FSOUND_FX_SetGargle(1, 1000, 1)
str1 = FSOUND_Stream_OpenFile(file, FSOUND_ENABLEFX, 0)
sstr1 = FSOUND_Stream_Play(1, str1)
End Sub

Private Sub Form_Unload(Cancel As Integer)
FSOUND_Close
End Sub

Private Sub HScroll1_Change()
If Option1 Then
fx = FSOUND_FX_SetGargle(1, HScroll1.Value, 0)
Else:
fx = FSOUND_FX_SetGargle(1, HScroll1.Value, 1)
End If
End Sub

Private Sub HScroll1_Scroll()
If Option1 Then
fx = FSOUND_FX_SetGargle(1, HScroll1.Value, 0)
Else:
fx = FSOUND_FX_SetGargle(1, HScroll1.Value, 1)
End If
End Sub

Private Sub Option1_Click()
fx = FSOUND_FX_SetGargle(1, HScroll1.Value, 0)
End Sub

Private Sub Option2_Click()
fx = FSOUND_FX_SetGargle(1, HScroll1.Value, 1)
End Sub

  • You must to post comments
0
0

Hi Brett.
I repair my code but it doesnt work…

fx = FSOUND_SetOutput(FSOUND_OUTPUT_DSOUND)
fx = FSOUND_SetMixer(FSOUND_MIXER_QUALITY_MMXP6)
fx = FSOUND_Init(44100, 32, 0)
file = “C:Documents and SettingsBátori NorbertMy DocumentsMy MusicAtomixFullmix.mp3”
str1 = FSOUND_Stream_OpenFile(file, FSOUND_ENABLEFX And FSOUND_HW2D, 0)
c = FSOUND_Stream_PlayEx(FSOUND_FREE, str1, 0, True)
fx = FSOUND_FX_Enable(c, FSOUND_FX_GARGLE)
fx = FSOUND_FX_SetGargle(c, 1000, 1)
fx = FSOUND_SetPaused(c, False)

Whats wrong now?

  • You must to post comments
0
0

you should try to OR the parameter together…

  • You must to post comments
Showing 2 results
Your Answer

Please first to submit.