Convertir 32bits en 4bits [Résolu]

Messages postés
292
Date d'inscription
mercredi 25 octobre 2006
Dernière intervention
27 novembre 2009
- 2 nov. 2006 à 17:04 - Dernière réponse :
Messages postés
292
Date d'inscription
mercredi 25 octobre 2006
Dernière intervention
27 novembre 2009
- 3 nov. 2006 à 02:49
Bonjour à tous ^^
je dois remplir un champ(de 4bits) avec une valeur de 5mots de 32bits
au départ j'ai 20 octets = 160bits que je divise par 32 pour obtenir 5

j'ai trouvé une fonction mais elle prend que les valeurs 8bits
Public Function HiNibble(bytValue As Byte) As Byte
    HiNibble = (bytValue And &HF0) \ 16
End Function
'HiNibble extrait les 4 bits supérieurs d'une valeur 8bits et les renvoie comme une valeur 4bits.
Afficher la suite 

Votre réponse

2 réponses

Meilleure réponse
Messages postés
2717
Date d'inscription
vendredi 28 juin 2002
Dernière intervention
13 janvier 2016
- 2 nov. 2006 à 21:00
3
Merci
salut,

ca marche aussi en Long :

Public Function HiNibble(bytValue As Long) As Byte
    HiNibble = (bytValue And &HF0000000&) \ &h10000000&
End Function

ShareVB

Merci ShareVB 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 88 internautes ce mois-ci

Commenter la réponse de ShareVB
Messages postés
292
Date d'inscription
mercredi 25 octobre 2006
Dernière intervention
27 novembre 2009
- 3 nov. 2006 à 02:49
0
Merci
merci ShareVB
Commenter la réponse de le cancre

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.