Discussion :

[pxidr]

Bonjour,

J'ai une machine reliée sur le port série de mon PC qui m'envoie une trame de données de 5 octets plusieurs dizaines de fois par seconde :

0D 02 59 01 F2

(c'est un exemple, la trame est en hexadécimal, j'ai séparé les octets par un espace pour que ce soit plus visible)

Le premier octet est le délimiteur de début de la trame : il est toujours le même (0D)

Le 2eme et 3eme octet (02 59) représentent une valeur qui va de 0 a 65535, le 2eme octet est donc l'octet de poids fort et le 3eme l'octet de poids faible (cela donnerait 601 en décimal donc)

Le 4eme octet (01) est une autre valeur qui va de 0 à 255 (ici 1).

Et le 5eme octet (F2) est une autre valeur qui va de 0 à 255 (ici 242).


La question est que je ne sais pas comment scinder cette trame, j'aimerais récupérer les 3 valeurs utiles dans des variables utilisables par VB (genre VarA, VarB, VarC as integer) et qu'elles soient actualisées a chaque variation des variables dans la trame.
Merci

[Pol63]

quand tu recois des octets, tu les ajoutes dans une collection (list(of byte))
juste après (dans la même méthode donc) tu regardes si la collection contient au moins un octet de début de trame et 4 octets derrière (boucle sur chaque item)
si c'est pas le cas tu ne fais rien (ca peut arriver, la réception des octets peut parfois se faire sur plusieurs events, bien que dans ton cas ca devrait être rare)

si tu as une trame complète tu peux alors découper et traduire les données
suppression des éléments avant l'octet de début ; ca peut paraitre étrange mais c'est pour coder propre
si tu reçois 2 trames donc une a été parasité et l'octet de début a été modifié (un cable série ca peut bugger, et il n'y a pas forcément de correction d'erreur) alors tu va te retrouver avec quelque chose d'erroné, il faut donc bien commencer la lecture à l'endroit du 1er caractère de début trouvé
traduction des 5 octets, puis suppression de ceux ci de la collection

pour la traduction, il y a bitconverter.getint16 qui devrait te servir


après tu mets tout ca dans une classe avec un songleton, des propriétés pour les données, et une propriété avec la date de dernière lecture réussie
comme ca tu pourras aussi savoir si le dialogue fonctionne toujours

[pxidr]

Merci mais ça m'a l'air un peu compliqué pour ce que je veux faire

En fait j'ai une routine qui tourne en fond et me lit chaque ligne de mon port série (délimitée par le caractère ASCII "0D" donc) :

Code :

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

1
2
3
4
5
6
7
8
9
10
 Private Sub rxthread_DoWork(sender As System.Object, e As System.ComponentModel.DoWorkEventArgs) Handles rxthread.DoWork
 
        Do While serialport.IsOpen
 
            serialport.NewLine() = ChrW(13)
            rx = serialport.ReadLine()
 
        Loop
 
    End Sub

Donc l'idée serait de découper "rx"

[Pol63]

développer ce n'est pas toujours une ligne de code simple qui fait tout ...

[pxidr]

développer ce n'est pas toujours une ligne de code simple qui fait tout ...

Eh oui je sais bien, vu que j'ai développé le firmware de ma machine sur microcontrolleur... le truc c'est que la programmation sur microcontrolleur (interruptions, etc) est bien différente de la programmation sur PC que je trouve trop "abstraite" (surtout avec les outils Microsoft).

Alors je t'avoue que je ne veux pas trop perdre de temps sur VB, surtout que c'est pas la lune ce que je veux faire, je veux juste afficher mes valeurs dans une fenêtre

[Pol63]

je sais ce que c'est, moi je galère sur des arduinos car je trouve ce langage trop bas niveau alors que la programmation PC je trouve ça simple, surtout avec les outils microsoft ^^
(comme quoi tout est subjectif)

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
 
   serialport.NewLine() = ChrW(13)
 
   While serialport.IsOpen
            Dim rx = serialport.ReadLine()
            Dim bytes = System.Text.ASCIIEncoding.ASCII.GetBytes(rx)
            If bytes.Count <> 5 OrElse bytes(0) <> &H0D Then Continue While 'trame érronée on ne la traite pas
 
            Dim v1 = BitConverter.ToInt16(bytes, 1)
            Dim v2 = bytes(3)
            Dim v3 = bytes(4)
 
            ' via le backgroundworker on est sur un thread secondaire, qui n'a pas le droit de modifier l'interface, donc il faut passer par me.invoke
            Me.Invoke(Sub()
                          Me.label1.text = v1.ToString
                          ' ...
                      End Sub)
     End While

et tu n'avais pas précisé que ta trame se finissait par un chr13