0
0

HELLO !!! I BE FIXED THE PROBLEM AT END !!! YES YES YES !!!
(SORRY BUT I’M VERY EXITED FOR IT)
THE SECRET IS THE CHANNEL FOR FXENABLED (NO SYSTEM CHANNEL!!!)

ONLY VB6

1 LOAD A NEW PROJECT
2 ADD FMOD.BASS
3 ADD COMMON DIALOG CONTROL IN FORM
4 COPY AND PASTE THIS CODE IN YOUR CODE FORM

ENJOY !!! 😉
[/code]Option Explicit
Dim StreamHandle As Long
Dim StreamChannel As Single
Dim lngFX As Long

Private Sub Command1_Click()
Dim FIle As String
CommonDialog1.Filter = “MP3|*.mp3”
CommonDialog1.ShowOpen
FIle = CommonDialog1.Filename
StreamHandle = FSOUND_Stream_Open(FIle, FSOUND_HW2D Or FSOUND_ENABLEFX, 0, 0)
StreamChannel = FSOUND_Stream_Play(FSOUND_FREE, StreamHandle)
FSOUND_SetVolume StreamChannel, 250
End Sub

Private Sub Command2_Click()
FSOUND_SetPaused StreamChannel, True
lngFX = FSOUND_FX_Enable(StreamChannel, FSOUND_FX_COMPRESSOR)
FSOUND_SetPaused StreamChannel, False
Call FMod.FSOUND_FX_SetCompressor(lngFX, 12, 10, 2000, 27, 10, 0)
End Sub

Private Sub Command3_Click()
If StreamChannel <> 0 Then
FSOUND_Stream_Stop StreamHandle
StreamChannel = 0
End If
End Sub

Private Sub Command4_Click()
If StreamChannel <> 0 Then
FSOUND_SetPaused StreamChannel, True
End If
End Sub

Private Sub Form_Load()
Command1.Caption = “LOAD -> PLAY”
Command2.Caption = “ENABLED FX”
Command3.Caption = “STOP”
Command4.Caption = “PAUSE”
FSOUND_SetDriver 0
FSOUND_SetOutput FSOUND_OUTPUT_DSOUND
FSOUND_SetMixer FSOUND_MIXER_AUTODETECT Or FSOUND_MIXER_QUALITY_AUTODETECT
FSOUND_SetBufferSize 100
FSOUND_Init 44100, 32, FSOUND_INIT_ENABLESYSTEMCHANNELFX Or FSOUND_INIT_ACCURATEVULEVELS
FSOUND_Stream_SetBufferSize 200
End Sub

Private Sub Form_Unload(Cancel As Integer)
FSOUND_Close
End Sub

  • You must to post comments
Showing 0 results
Your Answer

Please first to submit.