Looping a _SND* File?

[SirCrow]

Sorry for seeming so ignorant, but can a brief sound file (.mp3) be made to loop rather than play once and stop?

[FellippeHeitor]

Yes! http://qb64.org/wiki/SNDLOOP

[SirCrow]

Yes! http://qb64.org/wiki/SNDLOOP

Thanks.  Is it normal that there's a brief silent gap during the sound loop?  Can this be avoided?

[FellippeHeitor]

Are you sure your file is a perfectly loopable sound?

[TerryRitchie]

Use Audacity to cut out the silence at the end.

[Petr]

Use Audacity to cut out the silence at the end.

You need it not. Use QB64  statements:

Code: QB64: [Select]

1. music& = _SNDOPEN("song.mp3")
2. vol = 0
3. _SNDVOL music&, vol
4. _SNDLOOP music&
5.  
6. 'let say, volume up and volume down duration is 5 seconds:
7. up = 1 / 50
8.  
9. DO WHILE INKEY$ <> CHR$(27)
10.     LOCATE 1, 1: PRINT "Volume: "; INT(vol * 100); "step:"; up; " Song position: "; _SNDGETPOS(music&), "Song lenght: "; _SNDLEN(music&)
11.     IF _SNDGETPOS(music&) < 5.5 THEN
12.         IF start = 0 THEN start = TIMER
13.         IF TIMER > start + .1 THEN vol = vol + up: start = TIMER
14.     END IF
15.  
16.     IF _SNDGETPOS(music&) > _SNDLEN(music&) - 5.5 THEN
17.         IF start = 0 THEN start = TIMER
18.         IF TIMER > start + .1 THEN vol = vol - up: start = TIMER
19.     END IF
20.     _SNDVOL music&, vol
21.     IF vol < 0 THEN vol = 0: IF vol > 1 THEN vol = 1
22. LOOP
23.  

[TerryRitchie]

I'm all for using code whenever possible and practical. However, it sounds like he simply wants it to loop without the pause embedded in the music itself.

Using a coding a approach means having to monitor it constantly. Removing the dead space completely means no monitoring:

_SNDLOOP music&

Fire and forget.

[Petr]

Yes it is true. I see that I have understood the problem described again wrongly. Well, if sndloop wants no pause and the MP3 file has a gap at the end, say 3 minutes lenght and at the end pause 1 second, it can also be solved with one line.

IF _SNDLENGHT (musicloop)> 179 THEN _SNDSETPOS (musicloop), 0. But of course, everyone will do it on their own.

[SirCrow]

I didn't think there was any silence at the end, but I'll check to make sure.  Thanks.