Discussion :

[EmilleMetz]

Bonjour,

Je vous expose mon petit problème.

Mon application communique avec une autre application. Par un simple clic sur un bouton j'envoie un ordre à l'application qui doit me retourner une information dès que cette ordre est réalisé.
Ceci se fait avec le simple code ci-dessous

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 Private Sub Button17_Click(sender As Object, e As EventArgs) Handles Button17.Click
        Try
            Dim ordre As String
            Dim recu As String
            TextBox19.Text = ""
            ordre = TextBox18.Text
            recu = objArduino.CommandString(ordre, False)
            TextBox19.Text = recu
        Catch ex As Exception
            MessageBox.Show("Problème connexion avec l'Arduino.", "Arduino", MessageBoxButtons.OK, MessageBoxIcon.None)
        End Try
    End Sub

Cela fonctionne sauf que :
- en attendant la réponse (pour les plus courtes 1 à 2 secondes) mon appli est bloquée et cela je ne le voudrais pas ;
- pour certaines réponses supérieures à 5 secondes, j'ai ma messageBox qui s'affiche car le délai de réponse est trop long (si je retire le Try, j'ai le message d'erreur Timed out waiting for received data).

Ce que je voudrais c'est que l'attente de la réception de l'information se fasse tranquillement pénard dans son coin et que je puisse utiliser librement mon appli. Lorsque l'info arrive, elle s'affiche dans la textbox.
J'ai lu que cela semble possible mais je n'y comprend rien. Entre les thread, les invoke, les delegate et backgrondworker je ne sais pas par où commencer.

Donc voila, je viens chercher de l'aide.

Merci

[ACIVE_CS]

Bonjour,

Mon application communique avec une autre application.

Avec une autre application ou avec une interface externe via le port rs-232 ?

[EmilleMetz]

J'ai écrit application par manque de connaissances informatiques mais je dirais que c'est une interface qui est reliée à un matériel (l'arduino) par le port série. Cette interface contient le protocole de communication avec le matériel.

Plusieurs applications peuvent se connecter en même temps à l'interface et plusieurs matériels peuvent être connectés à l'interface.

[ACIVE_CS]

Ahh...
je me disais bien que j'avais déjà vu arduino quelque-part...
Explique un peu ce qu'as-tu déjà fait?
Dans ta Form dois déjà insérer un "SerialPort" (c'est le composant qui va permettre la communication série (rs-232), entre ton application et le arduino) c'est fait?

[ACIVE_CS]

Re:
Bon, je dois sortir alors j'avance un peu...

Entre les thread, les invoke, les delegate et backgrondworker je ne sais pas par où commencer.

Ci-dessous je te mets un exemple avec un SerialPort, boutons et textbox crées dynamiquement, c'est-à-dire qu'ils sont crées à partir du code, tu as juste à créer un nouvel projet vierge et coller ce 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
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
62
63
 
Option Explicit On
Option Strict On
 
Imports System
Imports System.ComponentModel
Imports System.Threading
Imports System.IO.Ports
 
Public Class Form1
    Dim WithEvents SerialPort1 As SerialPort = New System.IO.Ports.SerialPort
    Dim TexteRecu As New TextBox
    Dim TexteAEnvoyer As New TextBox
    Dim BtnEnvoi As New Button
    Delegate Sub SetTextCallback(ByVal Recu As String)
 
    Private Sub SerialPort1_DataReceived(ByVal sender As Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived
        System.Threading.Thread.Sleep(100) 'Petite pause de 100 ms
        SetText(SerialPort1.ReadExisting())
    End Sub
 
    Private Sub SetText(ByVal Recu As String)
        If Me.TexteRecu.InvokeRequired Then
            Dim d As New SetTextCallback(AddressOf SetText)
            Me.Invoke(d, New Object() {Recu})
        Else
            'Ici c'est le moment où il recoit des données 
            'sans avoir à attendre avec un quelconque timer ou autre (c'est un thread complètement à part de ton application)
            Me.TexteRecu.Text = Recu
        End If
    End Sub
 
    Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        SerialPort1.Close() 'fermeture du port à la fermeture du port
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        With SerialPort1
            .PortName = "COM4" 'à modifier selon ton n° de port
            .BaudRate = 9600
            .Parity = Parity.None
            .DataBits = 8
            .StopBits = StopBits.One
        End With
        SerialPort1.Open() 'ouverture du port au démarrage de l'appli
 
        'création des controles sur la Form:
        Me.Controls.Add(TexteRecu)
        TexteRecu.Location = New Point(CInt(Me.Width / 3), CInt(Me.Height / 3))
        TexteRecu.Enabled = False
        Me.Controls.Add(TexteAEnvoyer)
        TexteAEnvoyer.Location = New Point(TexteRecu.Location.X, TexteRecu.Location.Y + TexteAEnvoyer.Height + 5)
        Me.Controls.Add(BtnEnvoi)
        BtnEnvoi.Location = New Point(TexteAEnvoyer.Location.X + TexteAEnvoyer.Width + 5, TexteAEnvoyer.Location.Y)
        BtnEnvoi.Text = "Envoyer"
        AddHandler BtnEnvoi.Click, AddressOf BtnEnvoi_Click
    End Sub
 
    Private Sub BtnEnvoi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        'Envoi des données contenues dans TexteAEnvoyer
        If TexteAEnvoyer.Text.Length > 0 Then SerialPort1.Write(TexteAEnvoyer.Text)
    End Sub
End Class

[EmilleMetz]

Bon, je dois sortir alors j'avance un peu...

Y a pas d'urgence.

Pour ton exemple, ce qui m'embète c'est

Code :

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

1
2
3
4
5
 
    Private Sub SerialPort1_DataReceived(ByVal sender As Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived
        System.Threading.Thread.Sleep(100) 'Petite pause de 100 ms
        SetText(SerialPort1.ReadExisting())
    End Sub

car je n'ai pas de port série de déclaré dans ma form. C'est l'interface qui s'occupe du port série. Je vais d'ailleurs lui greffer ton exemple car elle aussi risque de planter si le temps de réponse de l'arduino dépasse le timeout.

Mon appli se connecte à l'interface ainsi

Code :

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

1
2
3
4
Public objArduino As ASCOM.DriverAccess.Telescope
 
objArduino = New ASCOM.DriverAccess.Telescope(My.Settings.Telescope)
objArduino.Connected = True

La demande d'information s'effectue avec

Code :

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

recu = objArduino.CommandString(ordre, False)

objArduino est donc l'interface, CommandSrting est une fonction de l'interface qui retourne un résultat et ordre est ce que doit faire la fonction. (False sert au protocole de communication sans importance ici).

Donc ce n'est pas le port com qui est à surveillé périodiquement pour savoir s'il a quelque chose à me dire mais l'interface objArduino. J'ai bien sur essayé de bidouiller avant d'écrire ce message mais sans résultat.