Récupérer une valeur en Héxa

Résolu
cs_fred_konga Messages postés 5 Date d'inscription vendredi 9 juillet 2004 Statut Membre Dernière intervention 26 septembre 2004 - 25 sept. 2004 à 22:53
cs_rene38 Messages postés 1858 Date d'inscription samedi 29 juin 2002 Statut Membre Dernière intervention 17 octobre 2013 - 26 sept. 2004 à 02:29
Bonjour,

Je veux recupérer une valeur en Hexa dans un fichier.
J'ouvre le fichier en Binaire, et je récupère le dernier caractère.
Cette valeur est stockée dans une variable définie Byte

Normalement je devrais récupérer un chiffre entre 0 et 255 pourtant, le max que je récupère c'est 32.
Pourquoi ? Et surtout comment stocker en variable la véritable valeur ?

Merci de vos réponses

3 réponses

cs_rene38 Messages postés 1858 Date d'inscription samedi 29 juin 2002 Statut Membre Dernière intervention 17 octobre 2013 11
26 sept. 2004 à 01:44
Bonjour
en hexadécimal, 255 = FF (2 caractères)
avec un seul caractère hexa, le maximum est F = 15
Comment fais-tu pour obtenir 32 ?
3
cs_fred_konga Messages postés 5 Date d'inscription vendredi 9 juillet 2004 Statut Membre Dernière intervention 26 septembre 2004
26 sept. 2004 à 01:50
En fait, je veux récupérer dans un Fichier MP3 le Genre du fichier (dernière position dans le fichier codé en binaire)
Donc, je fais la chose suivante :

Dim mavariable as Byte

Open fichier For Binary As #1
Get #1, FileLen(fichier), mavariable
Close #1

Normalement, je suis sensé récupérer un chiffre qui me permet en l'utilisant comme index, le genre du morceau.

Mais ma variable me ramène toujours 32 ?????????????
0
cs_rene38 Messages postés 1858 Date d'inscription samedi 29 juin 2002 Statut Membre Dernière intervention 17 octobre 2013 11
26 sept. 2004 à 02:29
c'est le dernier caractère du fichier que tu veux récupérer.
Dim mavariable As String * 1
Open Fichier For Binary As #1
Get #1, FileLen(Fichier), mavariable
MsgBox Hex(Asc(mavariable)) 'valeur hexa du caractère
Close #1
0