Défi mp3

dim bitRate%(16), i%
data 0,32,40,48,56,64,80,96,112,128,160,192,224,256,320,0

for i% = 0 to 15
   read bitRate%(i%)
next i%


open_dialog 1

analyseFichier()

end

sub analyseFichier()
    dim_local nomFichier$, octet1$, octet2$, octet3$, octet4$, index%, entete$, valeurDecimal%, MPEG%, quartet$, debit%, longueurAudio%, duree%
    dim_local hr%, mn%, sec%

    ' ouvrir fichier MP3
    filter 1,"Fichier MP3 (*.mp3)|*.mp3"
    nomFichier$ = file_name$(1)

    print " Nom du fichier : " + file_extract_name$(nomFichier$)

    ' Recherche de l'entête audio. On ignore toutes les métadonnées éventuelles (ID3)    
    filebin_open_read 2,nomfichier$
    
    ' recherche de la séquence de synchronisation composée de 11 bits successifs à 1
    while octet1$ <> "FF"
        filebin_hexa_read 2,1,octet1$
        if octet1$ = "FF" :' les huit premiers bits sont à 1
            filebin_hexa_read 2,1,octet2$
            if left$(octet2$,1) = "E" or left$(octet2$,1) = "F" :' les 3 bits de poids fort sont à 1
                filebin_hexa_read 2,1,octet3$
                filebin_hexa_read 2,1,octet4$
                exit_while
            end_if  
        end_if
        octet1$ = ""
    end_while

    index% = filebin_pos(2)

    longueurAudio% = filebin_size(2) - index%
    
    filebin_close 2
    
    ' recherche code du débit binaire
    quartet$ = left$(octet3$,1)
    debit% = bitRate%(hex(quartet$)) * 1000

    print " Débit binaire : " + str$(debit%)

    duree% = longueurAudio% * 8 / debit%

    mn% = int(duree%/60)
    sec% = ((duree%/60)-mn%) * 60
    
    print "Durée : " + str$(mn%) + "min " + str$(sec%) + "s"
end_sub