Hit-Parade .VB Research Center . Compteur
Accueil ~  Code ~  Programmes ~  Api ~  Forum ~  Cours ~  Livres ~  Quiz ~  Annuaire
~ Edito ~
12/03/2006 @ 13:39
Depuis la dernière mise à jour (qui remonte à... oulala plusieurs mois), un petit ménage de printemps s'impose. Ca tombe bien, c'est presque la période.
Au menu, et progressivement sur les jours à venir, rafraîchissement de plusieurs fonctions et procédures, nouvelles APIs et nouveaux programmes.

~ Rechercher ~

  

~ Annuaire VB ~
 Rechercher un site :
  

~ Partenaires ~

Fonction : mp3_IdToGenre
Retourne le genre d'un fichier mp3 en fonction de son identifiant (norme ID3v1 et WinAmp).
(Consulté 18332 fois.)

Public Function mp3_IdToGenre(lgId As Long)
' Retrouvez toutes les informations sur les tags et
' la norme id3 à l'adresse : http://www.id3.org
' Les genres suivants sont définis dans la norme ID3v1
Const ID3V1 = "Blues|Classic Rock|Country|Dance|Disco|Funk|Grunge|Hip-Hop|Jazz|Metal|" & _
              "New Age|Oldies|Other|Pop|R&B|Rap|Reggae|Rock|Techno|Industrial|" & _
              "Alternative|Ska|Death Metal|Pranks|Soundtrack|Euro-Techno|Ambient|" & _
              "Trip-Hop|Vocal|Jazz+Funk|Fusion|Trance|Classical|Instrumental|Acid|" & _
              "House|Game|Sound Clip|Gospel|Noise|AlternRock|Bass|Soul|Punk|Space|" & _
              "Meditative|Instrumental Pop|Instrumental Rock|Ethnic|Gothic|Darkwave|" & _
              "Techno-Industrial|Electronic|Pop-Folk|Eurodance|Dream|Southern Rock|" & _
              "Comedy|Cult|Gangsta|Top 40|Christian Rap|Pop/Funk|Jungle|Native " & _
              "American|Cabaret|New Wave|Psychadelic|Rave|Showtunes|Trailer|Lo-Fi|" & _
              "Tribal|Acid Punk|Acid Jazz|Polka|Retro|Musical|Rock & Roll|Hard Rock"
' Les genres suivants sont les extensions Winamp
Const WINAMP = "Folk|Folk-Rock|National Folk|Swing|Fast Fusion|Bebob|Latin|Revival|" & _
               "Celtic|Bluegrass|Avantgarde|Gothic Rock|Progressive Rock|Psychedelic " & _
               "Rock|Symphonic Rock|Slow Rock|Big Band|Chorus|Easy Listening|Acoustic|" & _
               "Humour|Speech|Chanson|Opera|Chamber Music|Sonata|Symphony|Booty Bass|" & _
               "Primus|Porn Groove|Satire|Slow Jam|Club|Tango|Samba|Folklore|Ballad|" & _
               "Power Ballad|Rhythmic Soul|Freestyle|Duet|Punk Rock|Drum Solo|" & _
               "Acapella|Euro-House|Dance Hall"
If (lgId < 0) Or (lgId > 125) Then
   
mp3_IdToGenre = vbNullString
Else
   
mp3_IdToGenre = Split(ID3V1 & "|" & WINAMP, "|")(lgId)
End If
End Function
Visual Basic Research Center - (c) 2000/2002 -  Webmaster : docvb (chez) free (point) fr