Code : Tout sélectionner
If InitSound() = 0
MessageRequester("Error", "Sound system is not available", 0)
End
EndIf
SoundFileName$ = OpenFileRequester("Choose a .wav file", "", "Wave files|*.wav",0)
If SoundFileName$
If LoadSound(0, SoundFileName$)
;PlaySound(0, #PB_Sound_Loop, 1)
Canal = PlaySound(0, #PB_Sound_MultiChannel, 1)
For Volume = 0 To 100
SoundVolume(0, Volume, Canal)
Debug Volume
Delay(100)
Next Volume
MessageRequester("Sound", "Playing the sound (loop)..."+#LF$+"Click to quit..", 0)
Else
MessageRequester("Error", "Can't load the sound.", 0)
EndIf
EndIf
End
Quelqu'un pourrait-il me conseiller sur les manips à faire pour supprimer ces erreurs?
Merci d'avance.