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)

[hunteshiva]

ah et j'oublié
je sais pas si c'est une bonne chose de te le dire ...
mais quand tu sais pas quel est le type de l'objet *ou variable* que tu va utiliser
tu peut mettre ceci:

Code :

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

Dim strTest as Object

sa va lui attribuer un type en fonction de ce qu'il va recevoir
(tu peut même voir le type attribué quand tu est en mode debogage)
*pratique mais sa peut être piège par la suite ... attention*

Bonne continuation

[vincent3360]

Code :

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

1
2
3
4
5
6
 
 
Dim aa As String = Hex(Somme)
 
        Dim strTest As Object
        strTest = Mid(aa, 2, 2)

Je le place donc comme ça dans mon code?

en tout cas , merci à vous pour vos aides

[Geo2A]

Bonjour,

Comme tu ne t'en sort pas apparemment, essaie ceci pour essayer de comprendre:

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
28
29
30
31
32
33
34
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
'qui dans ton exemple fait forcement 709 (>255) ou 2C5 en Hexa
'donc représenté sur 3 digits en hexa
 
        Dim bt As Byte()
        bt = BitConverter.GetBytes(Somme)
        Dim a1 As String = Hex(bt(0))
        Dim a2 As String = Hex(bt(1))
'dans a1 j'aurais C5
'dans a2 : 2
        Dim aa As String = Hex(Somme)

[vincent3360]

Merci , je pense que c'est bon
Je dois rien avoir à changer

[hunteshiva]

tu a oublié une chose ....

*c'est juste en bas*

[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.