Conversion de 2 mot de 8 bits en 1 mot de 16bits [Résolu]

Nightguest 3 Messages postés mardi 28 décembre 2010Date d'inscription 29 décembre 2010 Dernière intervention - 28 déc. 2010 à 17:49 - Dernière réponse : Nightguest 3 Messages postés mardi 28 décembre 2010Date d'inscription 29 décembre 2010 Dernière intervention
- 29 déc. 2010 à 13:48
Bonjour,

Je doit réaliser une application de surveillance d'automate,
l'automate m'envoie 2 mots de 8bits et j'ai besoin de récupérer le mot de 16bits
Je sais lire sur mon programme la réponse de l'automate

Par exemple:
J'obtient dans une textbox "38 148" et je doit convertir ces 2 mots en un seul mots de 16 bits qui doit me donner 9876

J'ai une source qui parle de Cstr mais je n'arrive pas à le faire fonctionner
Ou bytes contient "38 148" et returndata devrait me retourné 9876.

Dim i as integer
Dim returndata as string
For I = 9 to 10
  Returndata &= Cstr(Bytes(i)) & " " 
next 

return returndata


Merci pour vos réponses
Afficher la suite 

Votre réponse

6 réponses

cs_ShayW 3238 Messages postés jeudi 26 novembre 2009Date d'inscription 14 mars 2018 Dernière intervention - 28 déc. 2010 à 21:29
+3
Utile
Bonsoir

 Dim w1, w2 As Byte
        Dim str As String
        Dim result As Int16
        str = Nothing
        w1 = 38
        w2 = 148
        str = Convert.ToString(w1, 2)
        str = str & Convert.ToString(w2, 2)
        result = Convert.ToInt16(str, 2)

Cette réponse vous a-t-elle aidé ?  
Commenter la réponse de cs_ShayW
cs_casy 7745 Messages postés mercredi 1 septembre 2004Date d'inscription 24 septembre 2014 Dernière intervention - 28 déc. 2010 à 18:03
0
Utile
Returndata = CStr(CLng(Bytes(8))*256 + CLng(Bytes(9)))



[i][b]---- Sevyc64 (alias Casy) ----
[hr]# LE PARTAGE EST NOTRE FORCE #/b/i
Commenter la réponse de cs_casy
cs_casy 7745 Messages postés mercredi 1 septembre 2004Date d'inscription 24 septembre 2014 Dernière intervention - 28 déc. 2010 à 18:04
0
Utile
Pardon, plutôt que CLng, tu peux utiliser CInt
En .Net un integer est suffisamment grand pour contenir un 16 bits



[i][b]---- Sevyc64 (alias Casy) ----
[hr]# LE PARTAGE EST NOTRE FORCE #/b/i
Commenter la réponse de cs_casy
Nightguest 3 Messages postés mardi 28 décembre 2010Date d'inscription 29 décembre 2010 Dernière intervention - 28 déc. 2010 à 18:21
0
Utile
Petit soucie, ce que tu viens de me donner ne fonctionne pas :s
mon appli me renvoie 550550 :s
Commenter la réponse de Nightguest
cs_casy 7745 Messages postés mercredi 1 septembre 2004Date d'inscription 24 septembre 2014 Dernière intervention - 28 déc. 2010 à 18:26
0
Utile
Oupsss, me serais-je tromper dans les index du tableau Bytes ????




[i][b]---- Sevyc64 (alias Casy) ----
[hr]# LE PARTAGE EST NOTRE FORCE #/b/i
Commenter la réponse de cs_casy
Nightguest 3 Messages postés mardi 28 décembre 2010Date d'inscription 29 décembre 2010 Dernière intervention - 29 déc. 2010 à 13:48
0
Utile
Ta réponse fonctionne, merci pour ce coup de main
Commenter la réponse de Nightguest

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.