Discussion :

[megamario]

Bonjour à vous,


J'ai un petit souci qui m'embête car cela ne doit pas être bien difficile, je continu à chercher rassurez-vous

Je reçois une chaine string de la forme hexadécimal B085
Dans cette chaine sur 16 bits donc, j'ai les 2 bits de poids fort qui m'indique si la chaine contiens:
-00 = Des mesures
-01 = Le jour (avec à la suite Jour(5bits) Mois(4bits) Année(5bits)) l'année démarrant à 2010, la valeur reçu incrémente 2010 (donc actuellement toujours 0)
-10 = Heures minutes seconde (H =5Bits; Min =6bits; Seconde =3 bits) les secondes étant des multiples, on a pas besoin de précision.

Voila donc mon souci c'est qu'il faut que je filtre la valeur reçu et je me trouve bien idiot car je n'y arrive pas pour le moment en VB6.

Dans un 1er temps il faut que je filtre pour récupérer les 2 bites de poids fort avec 0xC000 pour ensuite filtrer pour récupérer les données.

Donc je continu à chercher mais si vous avez des infos merci

[DAUDET78]

Si c'est une chaine ("BO85" par exemple), c'est 4 octets !
Que tu dois convertir en entier long

Code :

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

1
2
S$="BO85"
Recu&=val("&H0" & S$ & "&")

ensuite tu testes tes bits avec un masque

Code :

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

1
2
3
IF Recu& and &H0C000& =0 then ' C000=>11000000 00000000
' ...... gestion mesure reçu
End If

[megamario]

je suis arrivé un peut au même résultat,

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Dim Inter As Integer
Dim Heure As Integer
Dim Min As Integer
Dim Sec As Integer
 
'Temp(0) = B085
Inter = val("&H" & temp(0)) And val("&HC000")
If Inter = -32768 Then 'Heure Min Sec
        Heure = (val("&H" & temp(3)) And val("&H3E00")) / 2^9
        Min = (val("&H" & temp(0)) And val("&H01F8")) / 2^3
        Sec = val("&H" & temp(0)) And val("&H0007")
End If