Utilisation de PLAY

Sound 1
File_Load 1, "Musik.mp3"
Play 1

Jouer:
n = n + 1
Sound n
File_load n, fs$
Play n
Return

rem j'ai une musique mp3 qui dure un peu moins de 2 min 10 sec, soit 130 sec
rem (si on peut appeler ça une musique, c'est la sirène des pompiers, mais bon)
rem sachant que wait dure au maximum 30 sec, cela fait 4*wait(max) + 10 sec
dim a : a=130
sound 1
file_load 1,"XXXXDOC-Pompiers.mp3"
play 1
while a>30
 wait 30000
 a=a-30
end_while
wait a*1000
print "fini"
file_load 1,"APPLAUS.WAV"
play 1
print "Terminé"

Rem **** Play.bas jouer un MP3 ou une liste (M3U) de MP3
dim p$, fs$, n, lof, duree, s, ops, j, reste
Label Jouer, Carfic
Sound 1

ops = 16049: rem **** octets de fichier par seconde (approx.)

If Param_Number > 0
    p$ = Param_Value$(1)
    n = 1
    If upper$(Right$(p$, 3)) = "M3U"
        Rem liste
        File_Open_Read 1, p$
        While File_Eof(1) = 0
            File_Readln 1, fs$: fs$ = "C:\Mesdoc\Mp3\Compil1\" + fs$
            Gosub Carfic
            Gosub Jouer
            rem **** attente de la fin du morceau
            j = int(duree/25): reste = 25*Frac(duree/25)
            If j > 0
                For s = 1 to j
                    Wait 25000
                Next s
            End_If
            Wait reste*1000
        End_While
    Else
        fs$ = p$: Gosub Carfic
        Gosub Jouer
    End_If
End_If
TERMINATE

Jouer:
File_load 1, fs$
Play 1
Return

Carfic:
Filebin_Open_Read 2, fs$
lof = Filebin_Size(2): rem **** taille du fichier mp3
Filebin_Close 2
duree = INT(lof/ops) + 2: rem **** ajout 2 secondes de battement par sécurité
Return

EXECUTE "ChemindeTag.exe Chemindemonfichier.mp3 >Fichresul.txt"

Rem **** Play.bas jouer un MP3 ou une liste (M3U) de MP3
Dim Fichtag$, Fichresul$, rep$, a$, b$, d$
dim p$, fs$, duree, s, i, j
Dim tag$(10), tagl$(10)
tag$(1) = "Format:": tag$(2) = "Details:": tag$(3) = "Tags:"
tag$(4) = "Title:": tag$(5) = "Artist:": tag$(6) = "Album:"
tag$(7) = "Year:": tag$(8) = "Track:": tag$(9) = "Genre:"
tag$(10) = "Comment:"
Label Jouer, Carfic, Fin

Fichtag$ = "C:\Util\Tag.exe":    Rem **** pour récupérer la durée
Fichresul$ = "Z:\Temp.txt":      Rem **** fichier temporaire quelconque
rep$ = "C:\Mesdoc\Mp3\Compil1\": Rem **** répertoire des musiques (à ajuster)

Width 0, 280: Height 0, 210
Sound 1
Button 3: Top 3, 140: Left 3, 75: Width 3, 100: Height 3, 24: Caption 3, "Quitter"
On_Click 3, Fin
List 4: Top 4, 10: Left 4, 10: Width 4, 245: Height 4, 120

If Param_Number > 0
    p$ = Param_Value$(1)
    If upper$(Right$(p$, 3)) = "M3U"
        p$ = rep$ + p$: Rem **** Fichier 'liste' (.m3u)
        File_Open_Read 1, p$: Rem **** Prise en compte des fichiers mp3 à jouer
        While File_Eof(1) = 0
            File_Readln 1, fs$: fs$ = rep$ + fs$
            Gosub Carfic
            Gosub Jouer
            For j = 1 To duree: Wait 1000: Next j: Rem **** attente de la fin
        End_While
    Else
        fs$ = p$: Gosub Carfic
        Gosub Jouer
    End_If
End_If
Fin:
TERMINATE

Jouer:
File_load 1, fs$
Play 1
Return

Carfic:
If File_Exists(Fichresul$) = 1 Then File_Delete Fichresul$
Execute chr$(34) + Fichtag$ + " --tofilen " + Fichresul$ + " " + fs$ + chr$(34): Rem caractéristiques du MP3
wait 1000
File_Open_Read 2, Fichresul$
File_Readln 2, a$: Rem nom du fichier
While File_Eof(2) = 0
    File_Readln 2, a$: a$ = Rtrim$(a$)
    b$ = Trim$(left$(a$, 8)): rem print b$
    for i = 1 to 10
        If Len(a$) > Len(tag$(i))
            if b$ = tag$(i) then tagl$(i) = mid$(a$, 10, len(a$) - 9): Exit_For
        End_If
    next i
End_While
File_Close 2
File_Delete Fichresul$
d$ = right$(tagl$(2), 5)
duree = 2 + 60*val(left$(d$, 2)) + val(right$(d$, 2)): rem durée en secondes
Print_Target_Is 4
Clear 4
Print fs$
Print "Artiste: " + tagl$(5)
Print "Titre  : " + tagl$(4)
Print "Durée  : " + d$
Print "Album  : " + tagl$(6)
Print "Année  : " + tagl$(7)
Print "Piste  : " + tagl$(8)
Print "Genre  : " + tagl$(9)
Return

sound 1
file_load 1,"son1.wav"
play_wait 1
file_load 1,"son2.wav"
play_wait 1:rem ou play 1 tout simplement