Convertion d'un mot 32 bits en dec_hex_bin, pour mot simple ou double ou Flottant.
Je pense que'il est accès bien expliqué et bien optimisé.
Source / Exemple :
'1 Octet = 2 Mots = 8 Bits = 1 Msb (4 bits) + 1 Lsb(4 Bits)
'Mot simple = -32767 à 32768, 16 bits signés
'Mot Long = -16 777 215 à 16 777 216, 24 bits signés
'Mot IEEE CF INTEL 8232, 32 bits signés
'***************************************************************************
Option Explicit
Dim c, i, j, k As Integer
Dim Octet(0 To 3) As Integer 'Octet provenant d'une trame de communication
Dim Msb(0 To 3) As Integer 'Décomposition Msb de chaque octet
Dim Lsb(0 To 3) As Integer 'Décomposition Lsb de chaque octet
Dim w(0 To 8) As String 'Décomposition Msb et Msb de chaque octet en binaire
Dim Mot_Dec(0 To 7) As Integer 'Valeur de chaque Msb et Lsb en décimal
Dim Poids_Binaire(0 To 8) As String 'Décompose en 4 bits chaque Msb et Lsb
Dim Bits(0 To 32) As Integer 'Contient bit à bit les octets
Dim Multiplicateur As Integer 'Variables utilisées pour la virgule flottante
Dim Val_Expo(0 To 35) As Single 'Valeur de la mantisse
Dim Exp(0 To 20) As Single 'Exposant virgule flottante
Dim Verifie_Zero As Integer 'Vérifie integrité de la valeur du résultat virgule flottant
Dim Bit_Simple(0 To 17) As Long 'Variables des bits de mot simple
Dim Bit_Double(0 To 35) As Long 'Variables des bits de mot double
Dim Offset As Long 'Offset de la valeur du mot simple , offset=65535
'Offset de la valeur du mot double , offset= 2 Exp 25
Dim Valeur As Single 'Donne la valeur du mot à l'adresse lue
Conclusion :
SI vous avez des remarques je suis preneur ( :-).
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.