Discussion :

[pxidr]

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

[shayw]

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 :

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

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 :

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

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

[Invité]

Une autre solution

Code VB.Net :

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

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

[pxidr]

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

[pxidr]

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 :

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

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 ?

[Invité]

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

Code VB.Net :

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

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