Accueil > > > MODULE POUR MANIPULATION ET CONVERSIONS DES BITS
MODULE POUR MANIPULATION ET CONVERSIONS DES BITS
Information sur la source
Description
Cette module contient des fonctions prés à utiliser dans vos programmes,le module contient les fonctions suivants : SHL(x As Byte, i As Integer) As Byte SHR(y As Byte, k As Integer) As Byte Dec2Hex(dec As Long) As String Hex2Dec(hex As String) As Long Hex2Bin(hex As String) As String Bin2Dec(bin As String) As String
Source
- Function SHL(x As Byte, i As Integer) As Byte ' shl(octet ,nombre de décalage)
- SHL = ((x * 2 ^ i) And 255)
- End Function
-
-
- Function SHR(y As Byte, k As Integer) As Byte ' shr(octet ,nombre de décalage)
- SHR = CByte(Int(y / (2 ^ k)))
- End Function
-
- Function Dec2Hex(dec As Long) As String
- Dec2Hex = hex(dec)
- End Function
-
- Function Hex2Dec(hex As String) As Long
- Hex2Dec = Val("&h" & hex)
- End Function
- Function Hex2Bin(hex As String) As String
- Dim i As Byte
- Dim resultat As String
- For i = 1 To Len(hex)
- Select Case Mid(hex, i, 1)
- Case "0": resultat = resultat & "0000"
- Case "1": resultat = resultat & "0001"
- Case "2": resultat = resultat & "0010"
- Case "3": resultat = resultat & "0011"
- Case "4": resultat = resultat & "0100"
- Case "5": resultat = resultat & "0101"
- Case "6": resultat = resultat & "0110"
- Case "7": resultat = resultat & "0111"
- Case "8": resultat = resultat & "1000"
- Case "9": resultat = resultat & "1001"
- Case "A": resultat = resultat & "1010"
- Case "B": resultat = resultat & "1011"
- Case "C": resultat = resultat & "1100"
- Case "D": resultat = resultat & "1101"
- Case "E": resultat = resultat & "1110"
- Case "F": resultat = resultat & "1111"
- End Select
- Next i
- Hex2Bin = resultat
- End Function
- Function Bin2Dec(bin As String) As String
- Dim i As Byte
- Dim resultat As Long
- resultat = 0
- For i = 1 To Len(bin)
- If Mid(bin, Len(bin) - i + 1, 1) = 1 Then
- resultat = resultat + 2 ^ (i - 1)
- End If
- Next i
- Bin2Dec = resultat
- End Function
Function SHL(x As Byte, i As Integer) As Byte ' shl(octet ,nombre de décalage)
SHL = ((x * 2 ^ i) And 255)
End Function
Function SHR(y As Byte, k As Integer) As Byte ' shr(octet ,nombre de décalage)
SHR = CByte(Int(y / (2 ^ k)))
End Function
Function Dec2Hex(dec As Long) As String
Dec2Hex = hex(dec)
End Function
Function Hex2Dec(hex As String) As Long
Hex2Dec = Val("&h" & hex)
End Function
Function Hex2Bin(hex As String) As String
Dim i As Byte
Dim resultat As String
For i = 1 To Len(hex)
Select Case Mid(hex, i, 1)
Case "0": resultat = resultat & "0000"
Case "1": resultat = resultat & "0001"
Case "2": resultat = resultat & "0010"
Case "3": resultat = resultat & "0011"
Case "4": resultat = resultat & "0100"
Case "5": resultat = resultat & "0101"
Case "6": resultat = resultat & "0110"
Case "7": resultat = resultat & "0111"
Case "8": resultat = resultat & "1000"
Case "9": resultat = resultat & "1001"
Case "A": resultat = resultat & "1010"
Case "B": resultat = resultat & "1011"
Case "C": resultat = resultat & "1100"
Case "D": resultat = resultat & "1101"
Case "E": resultat = resultat & "1110"
Case "F": resultat = resultat & "1111"
End Select
Next i
Hex2Bin = resultat
End Function
Function Bin2Dec(bin As String) As String
Dim i As Byte
Dim resultat As Long
resultat = 0
For i = 1 To Len(bin)
If Mid(bin, Len(bin) - i + 1, 1) = 1 Then
resultat = resultat + 2 ^ (i - 1)
End If
Next i
Bin2Dec = resultat
End Function
Conclusion
A la suite de proposition de oli6530 voici la version final de ce Module .
Amicalement Chalandi Amine
Historique
- 02 février 2008 15:01:51 :
- Pour des raison de rapidité , j'ai modifié les deux fonction shl et shr à la suite de proposition de oli6530
Sources du même auteur
Sources de la même categorie
Commentaires et avis
Discussions en rapport avec ce code source dans le forum
manipulation des bits [ par willy6 ]
j'aimerais savoir à quoi correspondent XOR,OR et AND (pour la manipulation de bits) en VB.c'est pour implementer une méthode de cryptage
Manipulation de Winamp [ par seblutfr ]
Bonjour,Deux petits problèmes à propos du pilotage de Winamp.J'utilise actuellement la ligne de commande et les messages WM_COMMAND pour piloter Winam
Clé de x bits [ par Frelon ]
Bonjour n'ayant pas accès au chat, j'utilise ce biais pour avoir une réponse à la question suivante. Qu'est-ce qu'une clé à par exemple 256 bits. Je s
Manipulation de données avec des objets graphiques [ par faselsa ]
Bonjour,J'aimerais modéliser une planification de ligne de production avec ACCESS 97.Les objets graphiques représentent des actions qui ont une certai
comment inverser les bits recu sur com1?? [ par gan ]
Sur le port série je recois 111110 (ascii de ">"), et je voudrais inverser les bits et recevoir 000001 ("1").Y a t il une fction qui permet de fa
Besoin d'aide sur la manipulation de process [ par PurpleSkunk ]
Bonjour !J'ai besoin d'aide sur un problème de process pour un projet professionnel en cours.Je précise que tout doit se dérouler à travers une sessio
manipulation de grand nombre [ par pop49 ]
Bonjour, Au-delà de 99999... (15 fois le chiffre 9), un nombre (pourtant défini de type Double) est systématiquement tronqué par VB 6 et noté en écri
manipulation de fichier txt [ par xphilippe ]
bonjour a tous,j'ai un pb, qui doit etre tout bete, mais dont je ne trouve pas de solution.depuis les macros Excel VBA, je souhaite - ouvrir un fichie
manipulation de grand nombres [ par pop49 ]
Bonjour, Au-delà de 99999... (15 fois le chiffre 9), un nombre (pourtant défini de type Double) est systématiquement tronqué par VB 6 et noté en écrit
convertir ces deux lignes en vb6 [ par eikonos ]
Quelqu'un pourrez me convertir ces deux lignes en vb6Mercitypedef int (*PS_VD_CALLBACK)(void);#define WIDTHBYTES(bits) (((bits) + 31) / 32 * 4)
|
Derniers Blogs
[FRAMEWORK 4] LES TASKS ET LE THREAD UI[FRAMEWORK 4] LES TASKS ET LE THREAD UI par fathi
Je viens de passer quelques temps au TechDay's et j'ai pu voir pas mal de session intéressante. Par contre une chose m'a un peu étonné lors de certaines de ces sessions qui abordaient les améliorations du framework .NET (donc le 4.5) : en gros, bea...
Cliquez pour lire la suite de l'article par fathi WORKFLOW FOUNDATION 3 A UN PIED DANS LA TOMBEWORKFLOW FOUNDATION 3 A UN PIED DANS LA TOMBE par JeremyJeanson
Depuis déjà un an, je conseille vivement les utilisateurs de Workflow Foundation 3 à migrer vers la version 4. L'information qui va suivre ne devrait donc pas trop prendre au dépourvu les personnes qui m'ont suivi. Je profite de ce poste, pour faire le re...
Cliquez pour lire la suite de l'article par JeremyJeanson TECHDAYS PARIS 2012 : NOUVELLES TENDANCES DU POSTE DE TRAVAIL - BRING YOUR OWN PCTECHDAYS PARIS 2012 : NOUVELLES TENDANCES DU POSTE DE TRAVAIL - BRING YOUR OWN PC par ROMELARD Fabrice
Speakers: Thierry Rapatout, Antoine Petit et Xavier Trebbia Cette session entre dans le cadre des RDV Décideurs des TechDays 2012, elle est liée à la consumérisation de l'IT et la mise en place du "DeskTop as a Service" dans de plus en ...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice TECHDAYS PARIS 2012 : SYSTEM CENTER SERVICE MANAGER 2012 VUE D'ENSEMBLETECHDAYS PARIS 2012 : SYSTEM CENTER SERVICE MANAGER 2012 VUE D'ENSEMBLE par ROMELARD Fabrice
Speakers: Julien Marechal, Gautier Confiant, Sébastien MEYER La session débute par le positionnement de la solution System Center par rapport aux concepts d'organisation ITIL. Le portail du catalogue de se...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice TECHDAYS PARIS 2012 : PLEINIèRE SECOND JOURTECHDAYS PARIS 2012 : PLEINIèRE SECOND JOUR par ROMELARD Fabrice
Après une première journée dédiée aux développeurs, cette seconde journée est dédiée au monde des entreprises et de ses applications. Ainsi, cette pleinière est dédiée à faire un 360 de l'évolution des applications Business aux demandes ac...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice
Forum
VB6 + GRAPHVIZVB6 + GRAPHVIZ par nouirayosra
Cliquez pour lire la suite par nouirayosra
Logiciels
Academy System (17.2.1.0)ACADEMY SYSTEM (17.2.1.0)Logiciel de gestion des établissements.
- élèves/étudiants (inscription, dossier, absence...)
-... Cliquez pour télécharger Academy System Easy-Planning (1.0.0.1)EASY-PLANNING (1.0.0.1)Basé sur les mêmes principes que MyPlanning, Easy-Planning permet de créer des plannings sous la ... Cliquez pour télécharger Easy-Planning COLLECTOR PLUS (3.00B)COLLECTOR PLUS (3.00B)COLLECTOR PLUS version 3.00B est un logiciel utilisant une base de données alimentée par :
- L... Cliquez pour télécharger COLLECTOR PLUS PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V7.4)PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V7.4)PONAMEDIA TV DEVIENS HELLLOOO FLASH
LA TV SUR VOTRE ORDINATEUR.
Toute une plateforme Multi... Cliquez pour télécharger PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO LettresFaciles 2011 (8.0.0.1)LETTRESFACILES 2011 (8.0.0.1)LettresFaciles est un logiciel facilitant la création et la rédaction de lettres types.
Son inte... Cliquez pour télécharger LettresFaciles 2011
|