Conversion trame ASCII vers variables numériques

Bonjour,

Sur le port série, je reçois une trame ASCII comme ceci, toutes les secondes :

1234_0567_8901_2345_0089_1_0

Séparée à chaque fois par un retour a la ligne (code ASCII 13).
La longueur de la trame est toujours identique (28 caractères).
Pareil pour la longueur des nombres.

Ce que je veux faire, c'est simplement récupérer chaque valeur (1234, 567, 8901, 2345, 89, 1, 0) et les stocker chacune dans une variable numérique différente, qui sera actualisée toutes les secondes (puisque une nouvelle trame sera envoyée).

J'aimerais savoir comment c'est faisable, le plus simplement possible.

Merci :mrgreen:

Salut

tu veux savoir comment lire ta trame ou traiter la trame après lecture ?

si tu lis la trame par ligne
Private mySerialPort As New SerialPort
'tu dois definir les parametres de mySerialPort

Code:

---

1 2 3 4 5

Dim returnValue As String   returnvalue = mySerialPort.ReadLine dim valitem() as string valitem = returnvalue.split("-")

---

' maintenant item contient les valeurs de la trame comme string
' tu peux les stocker dans une list of integer

Code:

---

1 2 3 4

dim frame as new list(of integer) for each item as string in valitem frame.add(convert.to.int32(item)) next

---

Une autre solution :mrgreen:

Code:

---

1 2	Dim numbers As List(Of Integer) = trame.Split(New Char() {"_"C}, StringSplitOptions.RemoveEmptyEntries).[Select](Function(x) Integer.Parse(x)).ToList()

---

Merci j'essaye ça demain et je vous fait part de mes resultats :-)

Alors je ne comprend pas très bien une chose...

Comme ma trame est reçue en continu, je dois placer ces instructions dans une boucle... Comme ceci ?

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub receiveloop()   Do   Dim trame As String = serialport.ReadLine Dim numbers As List(Of Integer) = trame.Split(New Char() {"_"c}, StringSplitOptions.RemoveEmptyEntries).[Select](Function(x) Integer.Parse(x)).ToList()   Loop   End Sub

---

Mais après, comment je récupère mes 7 valeurs ?

Ouais un truc de ce genre oui. Je n'ai pas testé mais je ferai un truc comme ça :

Code:

---

1 2 3 4 5

While (InlineAssignHelper(trame, serialport.ReadLine())) IsNot Nothing Dim numbers As List(Of Integer) = trame.Split(New Char() {"_"C}, StringSplitOptions.RemoveEmptyEntries).[Select](Function(x) Integer.Parse(x)).ToList() 'tu fais la logique ici avec la variable numbers End While

---

Alors quand je rentres ça :

Code:

---

1 2 3 4 5 6 7

Dim trame As Integer   Sub receiveloop() While (InlineAssignHelper(trame, serialport.ReadLine())) IsNot Nothing Dim numbers As List(Of Integer) = trame.Split(New Char() {"_"c}, StringSplitOptions.RemoveEmptyEntries).[Select](Function(x) Integer.Parse(x)).ToList() End While End Sub

---

J'ai 2 erreurs :
"InlineAssignHelper" n'est pas déclaré
"Split" n'est pas un membre de "Integer"

Ce que je voudrais savoir, c'est est-ce que ce morceau de code réactualisera les données à chaque nouvelle trame ?
Comment "faire la logique" (récupérer les variables) avec "numbers" ?

Désolé pour ces questions de noob :mrgreen: