Discussion :

[Hybride76]

Bonjour,

Je viens vers vous pour avoir des avis et / ou explications par rapport à mon soucis.

Explications:

Je fais un programme avec un Serialport, conf, émission et retour sont opérationnel avec le système avec lequel il doit dialoguer.

La problème est au niveau de la réception des informations.

Exemple :

- Émission d'une valeur au format "A & ValeurNumérique (ex : A12.4)
- Prise en compte par le système en écoute.
- Réception de la Valeur A12.4.

Vous me direz, "C'est normal!!" Oui mais le format d'attendu est de cette forme :

A12.4
Atten : 12.40 (xx)
Done

J'ai bien un retour, mais si je souhaite avoir le message en totalité il faut que je revalide mon émission, ou le message est entier si je rentre une nouvelle valeur.

J'obtiens l'affichage correct si je défile le programme en mode pas à pas.

J'ai essayé avant la lecture du paramètre:

Code :

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

Thread.Sleep(50)

La valeur 50 est le mini que j'ai essayé, j'ai essayé jusqu'à 500, mais aucun changement.

Questions :

- Qu'elle serait la raison de cette "non" lecture en totalité?
- Existe t il un moyen d'avoir la trame entière comme obtenue lors du mode pas à pas?
- Pourquoi le mode pas à pas me permet d'avoir la trame totalité? Car pour ce point il n'y a que le paramètre temps qui joue ( d'ou l'essai du sleep).

Merci d'avance.

Cordialement.

[konobee]

je sais pas si ça va t'aider mais j'ai fait ça:

PC:

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
48
49
50
51
52
53
54
55
56
57
58
59
60
61
Imports System.IO
Imports System.IO.Ports
Imports System.Threading
 
Public Class Form1
 
    Dim NewTemp As String
    Dim etat As Integer = 0
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Timer1.Start()
        Try
            With SerialPort1
                .PortName = "COM3"
                .BaudRate = 9600
                .Parity = IO.Ports.Parity.None
                .DataBits = 8
                .StopBits = IO.Ports.StopBits.One
                .Handshake = IO.Ports.Handshake.None
                .Encoding = System.Text.Encoding.ASCII
            End With
            SerialPort1.Open()
 
 
 
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try
 
 
    End Sub
 
    Private Sub SerialPort1_DataReceived(ByVal sender As System.Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived
        NewTemp = SerialPort1.ReadLine
 
    End Sub
 
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        SerialPort1.Write(etat)
        Label1.Text = NewTemp
 
        If NewTemp = 1 Then
            OvalShape1.FillColor = Color.White
 
        ElseIf NewTemp = 0 Then
            OvalShape1.FillColor = Color.Silver
 
        Else : MsgBox("erreur de transmition")
 
        End If
 
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        etat = 1
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        etat = 0
    End Sub
End Class

µcontroleur :

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
int etat = 0;
 
void setup() {                
  pinMode(13, OUTPUT);
  Serial.begin(9600);  
}
 
void loop() {
etat = Serial.read()-'0'
 
    if (etat == 1)
      {digitalWrite(13, HIGH);  // set the LED on
       Serial.println(etat); }   
 
    else if (etat == 0)
      {digitalWrite(13, LOW);   // set the LED off
       Serial.println(etat); }     
}

[Hybride76]

Merci de ta réponse, cela ma apporté des informations et un début de solution mais mon problème reste présent.

Encore merci.

Cordialement.

[konobee]

La non prise en compte de tout ton texte, peut être dû au faite que tu à une trop grosse pile de données qui attend de passer dans le port serial.
Le récepteur doit "aller" moins vite que l' émetteur.

[aoumnad]

pourquoi ne pas ajouter un caractère particulier (par le système distant) à la fin de ton message de retour, par exemple #

ensuite tu utilise quelques chose de ce genre:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
        SerialPort1.ReadTimeout = 1000
        Try
            reponse = SerialPort1.ReadTo("#")      ' # est lu mais ne fait pas partie de reponse
            If reponse.EndsWith("Done") = True Then
                msgBox( "OK")
                ' Ton traitement ici
            Else
                MsgBox("mauvaise réponse")
            End If
        Catch ex As TimeoutException
              MsgBox("Le système éloigné ne répond")
        End Try

Bon courage,

[Hybride76]

Bonjour,

J'ai enfin réussi, grâce ne parti au code de konobee.

Vous allez me dire Plagia, que nenni.

Je m'explique :
Dans le code konobee utilise un Timer pour "actualiser" et mettre à jour les données.

Je me suis inspiré de cela pour me permettre de boucler le read de mon port afin d'avoir la trame que je souhaité.

Détails :
1 : Je définit le timer qui contient la lecture du port.
2 : Je contrôle que mes données sont non nul.
3 : Je fais une recherche de chaine de caractères grace à la fonction InStr.
4 : J'affiche mes données.

Voilà en gros ma solution qui fonction.

Je remercie donc Konobee pour ce pti coup de pouce.

Un merci également à aoumnad pour sa proposition, mais hélas vue après.

J'essayerai de voir cela optimise mon code ou pas.

En tous merci pour votre aide.

Ps: Je mettrai le code ultérieurement.