Lecteur de musique

sub calcul() : rem Calcul de la durée du morceau de musique ===================
   dim_local octet1$, octet2$, octet3$, octet4$, index%
   dim_local quartet$, debit%, longueurAudio%, duree%
   filebin_open_read 1,CDR$+caption$(150)
      while octet1$ <> "FF"
         filebin_hexa_read 1,1,octet1$
         if octet1$ = "FF"
            filebin_hexa_read 1,1,octet2$
            if left$(octet2$,1) = "E" or left$(octet2$,1) = "F"
               filebin_hexa_read 1,1,octet3$
               filebin_hexa_read 1,1,octet4$
               exit_while
            end_if  
         end_if
         octet1$ = ""
      end_while
      index% = filebin_pos(1)
      longueurAudio% = filebin_size(1) - index%
   filebin_close 1
   quartet$ = left$(octet3$,1)
   debit% = BITRATE%(hex(quartet$)) * 1000
   duree% = int(longueurAudio% * 8 / debit%)
   DT%=duree%
   M% = int(duree%/60)
   S% = ((duree%/60)-M%) * 60
   caption 200,str$(M%)+" Min  "+str$(S%)+" Sec"+string$(20," ")+"N° 1/"+str$(count(50))
end_sub

' Durée fichier audio MP3
' Marc - Juillet 2023
' Ecrit en langage PANORAMIC 0.9.29.i9

dim buffer%(32), bitRate%(16,2), l%, c%, stringHexa$, nomFichier$, tailleFichier%, index%
dim longueurTagID3v1%, longueurTagID3v2%

label ouvrirFichierMP3

' MPEG 1 layer III
data 0,32,40,48,56,64,80,96,112,128,160,192,224,256,320,0

' MPEG 2 et 2.5 layer III
data 0,8,16,24,32,40,48,56,64,80,96,112,128,144,160,0

' Charger les datas ci-dessus dans le tableau bitRate%(a,b)
for c% = 1 to 2
    for l% = 0 to 15
        read bitRate%(l%,c%)
    next l%
next c%

interfaceUtilisateur()

end
' ------------------------------------------------------------------------------
sub interfaceUtilisateur()
    button 1
    top 1,20
    left 1,200
    caption 1,"MP3"
    on_click 1,ouvrirFichierMP3
  
    open_dialog 2
    filter 2,"Fichier MP3 (*.mp3)|*.mp3"
end_sub
' ------------------------------------------------------------------------------
ouvrirFichierMP3:
    nomFichier$ = file_name$(2)

    if nomFichier$ = "_"
        return
    end_if

    ' ouvrir le fichier sélectionné en lecture
    filebin_open_read 10,nomFichier$

    RechercherPresenceTagID3v1()
    RechercherPresenceTagID3v2()
    RechercherEnteteMPEG()
return
' ------------------------------------------------------------------------------
sub RechercherPresenceTagID3v1()
    longueurTagID3v1% = 0
    index% = filebin_size(10) - 128
    filebin_position 10,index%
    stringHexa$ = filebin_hexa_read$(10,128)

    if left$(stringHexa$,6) = "544147"
        longueurTagID3v1% = 128    
    end_if
end_sub
' ------------------------------------------------------------------------------
sub RechercherPresenceTagID3v2()
    index% = 0
    longueurTagID3v2% = 0
    filebin_position 10,index%
    stringHexa$ = filebin_hexa_read$(10,10)

    if left$(stringHexa$,6) = "494433" :' "ID3" en hexa
        ' calcul de la longueur du tag ID3v2. 4 octets codés sur 7 bits. Big-endian
        longueurTagID3v2% = hex(mid$(stringHexa$,13,2)) * power(128,3)
        longueurTagID3v2% = longueurTagID3v2% + hex(mid$(stringHexa$,15,2)) * power(128,2)
        longueurTagID3v2% = longueurTagID3v2% + hex(mid$(stringHexa$,17,2)) * 128
        longueurTagID3v2% = longueurTagID3v2% + hex(mid$(stringHexa$,19,2))
        longueurTagID3v2% = longueurTagID3v2% + 10 :' (10 = les dix octets de l'entête)
    end_if
end_sub
' ------------------------------------------------------------------------------
sub RechercherEnteteMPEG()
    dim_local octet1$, octet2$, octet3$, octet4$, longueurAudio%, quartet$, debit%, duree%, mn%, sec%, versionMPEG%
    
    ' sauter un éventuel tag IDV3 v2
    index% = longueurTagID3v2%
    filebin_position 10,index%

    ' recherche de la séquence de synchronisation composée de 11 bits successifs à 1
    while octet1$ <> "FF"
        filebin_hexa_read 10,1,octet1$
        if octet1$ = "FF" :' les huit premiers bits sont à 1
            filebin_hexa_read 10,1,octet2$
            if left$(octet2$,1) = "E" or left$(octet2$,1) = "F" :' les 3 bits de poids fort sont à 1
                filebin_hexa_read 10,1,octet3$
                filebin_hexa_read 10,1,octet4$
                exit_while
            end_if  
        end_if
        octet1$ = ""
    end_while

    ' calcul de la longueur des données audio MP3
    index% = filebin_pos(10)
    longueurAudio% = filebin_size(10) - index% - longueurTagID3v1%

    ' déterminer la version de MPEG (1, 2 ou 2.5, codée par les bits 3 et 4 de l'octet 2)
    ' test uniquement du bit 3 : s'il est à 0 c'est un MPEG v2 ou v2.5
     versionMPEG% = (bin_and(hex(octet2$),8))
     if versionMPEG% = 8
         versionMPEG% = 1
     else
         versionMPEG% = 2
     end_if
    
    ' Déterminer la version de layer (I, II ou III, codée par les bits 1 et 2 de l'octet 2)
    ' La version de layer n'est pas recherchée : la norme MP3 impose le layer III

    ' Déterminer le débit binaire
    quartet$ = left$(octet3$,1)
    debit% = bitRate%(hex(quartet$),versionMPEG%) * 1000

    ' calcul de la durée
    duree% = longueurAudio% * 8 / debit%

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

    ' fermer le fichier binaire
    filebin_close 10

end_sub
' ------------------------------------------------------------------------------