Discussion :

[rolf34]

Bonjour à tous,

Je coince en ce moment pour pouvoir afficher 2 trames, en provenance du port série, dans des labels.


Voici ce que je reçois sur le port série :



Voici le code :

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
Public Class Form1
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
        Me.CenterToScreen()
 
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bouton_1.Click
 
        SerialPort1.Open()
 
    End Sub
 
    Private Sub SerialPort1_DataReceived(ByVal sender As System.Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived
 
        If SerialPort1.IsOpen = True Then
            Label1.Text = SerialPort1.ReadTo("Hz")
            Label2.Text = SerialPort1.ReadTo("Inch")
        Else
            Label1.Text = 0
            Label2.Text = 0
        End If
 
    End Sub
 
End Class

Ici,

Code :

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

Label1.Text = SerialPort1.ReadTo("Hz")

affiche comme je veux le nombre qui est associé à "Hz" dans son label, mais le label2 n'affiche quant à lui rien du tout.

Comment faire pour pouvoir "trier" les Hertz et les Inch et les afficher séparément dans leur label (ou textbox) respectif ? Il y a certainement une technique mais j'ignore laquelle. C'est pourquoi je sollicite votre aide.


Merci par avance de votre.

[matll]

Salut,

Je n'ai jamais fait de com. serial, mais as-tu testé que tu recevais bien tes données (par un affichage console ou msgbox) ?

@+
Mat

[rolf34]

salut,


Oui je recois bien mes données, tu peux le voir en effet sur la première image que j'ai posté. C'est sur l'hyperterminal de Windows.

[matll]

salut,


Oui je recois bien mes données, tu peux le voir en effet sur la première image que j'ai posté. C'est sur l'hyperterminal de Windows.

Oui mais la question que je te posais, c'est est-ce que tu reçois bien tes données dans ton appli VB.Net ?
Car c'est étrange, ya aucune configuration de ton SerialPort, pas de n° de port, ni de vitesse
à moins que ce soit VB.Net qui lance l'hyperterminal.

[rolf34]

Oui le port est déjà configuré dans la partie "design" avec la vitesse, pas de parité etc. Le label1 m'affiche bien la valeur en Hz quand le port COM est ouvert :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 Private Sub SerialPort1_DataReceived(ByVal sender As System.Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived
 
        If SerialPort1.IsOpen = True Then
            Label1.Text = SerialPort1.ReadTo("Hz")
            Label2.Text = SerialPort1.ReadTo("Inch")
        Else
            Label1.Text = 0
            Label2.Text = 0
        End If
 
    End Sub

Mais pas le label2 qui lui devrait m'afficher la valeur des Inch des données reçues.
Je pense que la syntaxe ne correspond pas à ce que je souhaite réaliser, je suis entrain de chercher laquelle mais VS ne me propose pas grand chose.

[rolf34]

C'est bon j'ai réussi x)

Comme je travail avec une fréquence élevée, j'ai convertie les données reçues en INT et j'ai comparé les valeurs. Pour une valeur au dessus d'un seuil, par exemple, alors label1 prend la valeur de l'Int, dans le cas contraire c'est le label2.

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
35
36
37
38
39
40
41
42
43
44
45
46
47
Public Class Form1
 
    Public Overloads Shared Property CheckForIllegalCrossThreadCalls() As Boolean
        Get
        End Get
        Set(ByVal value As Boolean)
        End Set
    End Property
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
        Me.CenterToScreen()
 
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bouton_1.Click
 
        SerialPort1.Open()
 
    End Sub
 
    Private Sub SerialPort1_DataReceived(ByVal sender As System.Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived
 
        Dim str As String = SerialPort1.ReadLine
        Dim int As Integer = 0
 
        Form.CheckForIllegalCrossThreadCalls = False
 
        str = Replace(str, ".", ",")
 
        int = Val(str)
 
        If int > 500 Then
            Label1.Text = int
        Else
            Label2.Text = int
        End If
 
    End Sub
 
    Private Sub Form1_Leave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Leave
 
        SerialPort1.Close()
 
    End Sub
 
End Class

Voila le code pour ceux qui auraient le même problème que moi.

Merci quand même mat, désolé du dérangement.