Convertion hex_bin

Soyez le premier à donner votre avis sur cette source.

Vue 4 033 fois - Téléchargée 463 fois

Description

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 ( :-).

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Commenter la réponse de Utilisateur anonyme

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.