I test setvolume for make fadein/fadeout
my code not work
Code: Select all
/* Nouveau projet Hollywood */
@Sample 1,"son1.wav"
PlaySample(1)
Wait(10)
For k = 64 To 0 Step -1
SetVolume(1,k)
Wait(2)
Next
/* Boucle infinie */
Repeat
WaitEvent
Forever