0
0

I have many problem whit fx setting. Where is the error in this program?

Dim Brano As Long
Dim fxid As Long
Dim play As Long

Private Sub Command1_Click()

If FSOUND_GetPaused(play) = 0 Then

    x = FSOUND_SetPaused(play, True)

    Else:

    x = FSOUND_SetPaused(play, False)

End If

End Sub

Private Sub Command2_Click()

Pause = FSOUND_SetPaused(play, True)

fxid = FSOUND_FX_Enable(0, FSOUND_FX_ECHO)

pause = FSOUND_SetPaused(play, False)

fxecho = FSOUND_FX_SetEcho(fxid, 90, 0, 333, 333, True)

End Sub

Private Sub Form_Load()

Sound_Init = FSOUND_Init(48000, 255, FSOUND_INIT_ENABLEOUTPUTFX)

SFX = FSOUND_DSP_Create(0, 0, 0)

Brano = FSOUND_Sample_Load(0,"C:\beep.wav", FSOUND_ENABLEFX, 0, lenght)

play = FSOUND_PlaySoundEx(0, Brano, SFX, True)

End Sub

Private Sub Form_Unload(Cancel As Integer)

FSOUND_Close

End Sub

  • You must to post comments
0
0

Thank you for reply

My program start and fx_echo is enable

  • You must to post comments
Showing 1 result
Your Answer

Please first to submit.