RS232Résolu

Question

Bonjour...

il y a quelque temps, j'ai demander comment envoyer une trame en vb...
aujourd'hui, j'y arrive amplement

mon soucis est que j'aimerai lire la trame que je recois en hexadecimal et non sa conversion en ASCII car dans cette trame, je recoit une valeur que je souhaiterai exploiter!

je recoit 7E 00 0A 81 00 01 18 65 (tester avec un logiciel special)
et la valeur dont j'ai besoin est le 18 mais sous vb, je recoit: |||| ce qui est inexploitable vu que la valeur qui en ressort est: ~
Y a t'il possibiliter avec le comm.input de recuperer cette val en hexa, afin de pouvoir y decouper les element qui ne me servent a rien?

cs_casy · Accepted Answer

Dim a as String
Dim i as Integer
Dim b as Integer

a = Comm.Input
For i = 1 to Len(a)
    b = Asc(Mid(a , i , 1))
    MsgBox("Valeur reçu : " & b & " ---> equivalent hexa = &H" & Hex(b))
Next

---- Sevyc64  (alias Casy) ----<hr size="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #

cs_casy · Answer

Pour récupérer la valeur numérique de l'octet plutot que le caractère, il faut utiliser Asc(TonOctet)

Si tu veux faire de l'affichage en hexa, utilise Hex(TaValNumérique), mais que pour l'affichage.

Pour du calcul, la valeur numérique suffit (hexa ou pas ça n'a aucune importance pour les calculs)

---- Sevyc64  (alias Casy) ----<hr size="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #

bobbysv · Answer

je ne vois plus la reponse, est-ce normale?

bobbysv · Answer

en fait, ca ne marche absolument pas!
si tu as une autre proposition a me faire!

bobbysv · Answer

precision:
c'est un string que je recoit!!

Dim a as String
a= Comm.input

si je fais Dim a as Integer, le type est incompatible avec Comm.Input

RS232

5 réponses

Votre réponse

Discussions similaires