Discussion :

[Rose Butterfly]

Bonjour,
Je reçois d'un gps une trame de 46 octets en hexadécimal, dont 5 octets représentant l'heure sous le format indiqué sur l'image ci-joint.
Les 5 octets sont en héxa, je veux les convertir en format normal Heure,minutes...
en cherchant sur le net j'ai trouvé ça :
1 "hexheure" = 675 s × 8 = 1 H 30
1 "hexminute" = 675 s ÷ 32 ≥ 21.09 s
1 "hexseconde" = 675 s ÷ 512 ≤ 1.32 s

mais je sais pas vraiment comment obtenir le bon résultat
Merci d'avance

Ces 5 octets sont définis de la manière suivante (codage BCD):
- Heures, sur 1 octet, dizaines = b4 et b5, et unités = b0 à b3
- Minutes, sur 1 octet, dizaines = b4 à b7, et unités = b0 à b3
- Secondes, sur 1 octet, dizaines = b4 à b7, et unités = b0 à b3
- Fractions de secondes sur 2 octets:
• Octet de poids fort: dixièmes de seconde = b4 à b7 et centièmes de seconde = b0 à b3
• Octet de poids faible: millièmes de seconde = b4 à b7, réserve = b0 à b3. Cette réserve est positionnée à Hex'0' par défaut :0

[franticfranz]

Bonjour,

Sous réserve d'avoir bien compris le cahier des charges, voilà la solution que je vous propose :

soit octet1 l'octet des heures, octet2 l'octet des minutes, etc...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
        Dim heures, minutes, secondes As Integer
 
        heures = BitsPoidsFort(octet1) * 10 + BitsPoidsFaible(octet1)
        minutes = BitsPoidsFort(octet2) * 10 + BitsPoidsFaible(octet2)
        secondes = BitsPoidsFort(octet3) * 10 + BitsPoidsFaible(octet3)

Fonctions associées :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
    ' Retourne la valeurs entière correspondante aux 4 bits de poids fort d'un octet
    Private Function BitsPoidsFort(ByVal Octet As Integer) As Integer
        Return (Octet And &HF0) / &H10
    End Function
    ' Retourne la valeurs entière correspondante aux 4 bits de poids faible d'un octet
    Private Function BitsPoidsFaible(ByVal Octet As Integer) As Integer
        Return (Octet And &HF)
    End Function

Pour les fractions de secondes, le système est le même.