Discussion :

[vincent3360]

bonjour à tous ,

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Sub Calcul_checksum()
Dim TabEnvoyé As Byte() = New Byte(12) {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}
 
TabEnvoyé(0) = &H2 ' initialisation_connection(0)
TabEnvoyé(1) = &H3F ' initialisation_connection(1)
TabEnvoyé(2) = &H30 ' Id(0)
TabEnvoyé(3) = &H31 ' Id(1)
TabEnvoyé(4) = &H31 ' Id(2)
TabEnvoyé(5) = &H44 ' Type_registre(0)
TabEnvoyé(6) = &H52 ' Type_registre(1)
TabEnvoyé(7) = &H48 ' Registre(0)
TabEnvoyé(8) = &H52 ' Registre(1)
TabEnvoyé(9) = &H30 ' Nb_registre(0)
TabEnvoyé(10) = &H31 ' Nb_registre(1)
TabEnvoyé(11) = &H30 ' Nb_registre(2)
TabEnvoyé(12) = &H31 ' Nb_registre(3)
 
 
Dim Somme As Integer = 0
 
 
' Calcul du Cheksum de la trame Envoyé
For Each x As Byte In TabEnvoyé
Somme = Somme + x
Next
 
Dim aa As String = Hex(Somme)

voilà je viens de faire ce programme mais maintenant je ne sais pas comment faire pour convertir un nombre decimal en Hexa puis le stocker dans un byte
Merci de votre aide

[hunteshiva]

je ne vois pas ou est ton probléme ...

je ne sais pas comment faire pour convertir un nombre decimal en Hexa puis le stocker dans un byte

je supose que c'est pour envoyer une trame sur 12 octets
pourquoi ne pas garder ta trame en décimale ??
l'outil "SerialPort" gère très bien tout sa *testé et approuvé*

il suffit juste de le configurer selon ton protocole (bit de start, stop, parité, etc.)

je n'ais pas répondu a ta question,
il va garder le nombre décimale quoique tu fasse dans le byte
quel intérêt a tu après a le vouloir en héxa ?

[vincent3360]

Ok désolé pour la balise code

Lorsque je tente , je vois que mon aa =2C5 et moi je veux voir que aa=C5

Et apparement , d'apres un ami je devrais convertir un nombre decimal en hexa puis le stocker dans un byte
Je débute evidement en visual basic

[hunteshiva]

hummm je voi pas pourquoi le "2C5" te gène
la calculette de windows dit la même chose

après si tu ne veut que les deux dernier caractères c'est une autre histoire
tu peut utiliser la fonction mid

Code :

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

strTest = Mid(tonString, Start, lenght)

sa peut extraire ton "C5" comme ceci

Code :

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

strTest = Mid( aa, 2,2)

ou pour un usage plus universel

Code :

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

strTest = Mid( aa, aa.Length -1 ,2)

[Geo2A]

Bonjour,

Je ne vois pas comment on peut stocker un nombre décimal dans un byte !

Par contre transformer un nombre décimal en tableau d'octets ça c'est possible.
il faut regarder du coté de la classe bitconverter et sa méthode GetBytes.

[vincent3360]

Code :

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

1
2
3
 
 
strTest = Mid( aa, 2,2)

il faut que je déclare strTest comme ceci:

Code :

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

1
2
 
Dim strTest As ......

Je vois pas la suite: je débute

[hunteshiva]

je te donne des tuyaux alors * disons plutôt de la rigueur*

quand tu déclare tu met en minuscule ce que c'est avant suivi du nom de ton élément avec un Majuscule.
exemple:

pctPalette => PictureBox
txtNomBoite => TextBox
lblNomBoite => Label
tmrBoite => Timer
intNumBoite => Integer
strNomBoite => String
spRS232 => SerialPort
etc.

(désolé pour le style palette/boite, mon projet m'a inspiré)
trés pratique si tu a bien déclaré tous tes éléments de ton formulaire,
tu y accéde rapidement en tapant les 3 premier caratéres
comme pour une textBox ou un Label, tu tape "lbl" et hop t'a tous tes labels qui s'affichent dans la liste, je dirais mm que tes labels

image a l'appuie :


voila,
sachant sa du doit savoir que strTest est un string maintenant
donc

Code :

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

1
2
Dim strTest As String
strTest = Mid( aa, 2,2)

[vincent3360]

Et cette fonction

Code :

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

1
2
 
bt = BitConverter.GetBytes(Somme)

Elle sert à quoi : j'ai pas tout compris

[Geo2A]

Bonjour,

Pour tout cela il y a une chose très simple:

Google avec comme recherche : BitConverter.GetBytes

Et s'il y a un lien qui contient MSDNil faut vite aller le lire.