Discussion :

[road-runner]

Bonjour,

Dans mon application, j'ai une routine qui lis le port série dans une boucle, vu que je connais pas à l'avance combien de fois je dois lire cette boucle est infinie. j'aimerais lors d'un clic par exemple pouvoir terminer la lecture du port sérié et de la boucle.

merci

[J@ckHerror]

Bonjour,

Tu te déclare un booléen, tu le test dans ta boucle, et tu le modifie dans l'évènement click.

Bon code,
J@ck.

[road-runner]

Bonjour,

Tu te déclare un booléen, tu le test dans ta boucle, et tu le modifie dans l'évènement click.

Bon code,
J@ck.

lorsque le programme tourne dans la boucle, il me laisse pas la possibilité de cliquer sur un bouton

[r.morel]

Salut,
Il faut mettre la lecture du port sur autre thread pour que l'interface soit accessible durant la lecture
Pour cela tu peux utiliser un BackGroundWorker. Un tutoriel ici : https://msdn.microsoft.com/fr-fr/lib...(v=vs.95).aspx

Bon code

[J@ckHerror]

Arff oui, je n'y ai pas pensé, en même temps on avait pas des tonnes d'infos .

Suit le conseil de @r.morel.
Sinon si tu est en framework 4.5 ou mieux, tu pourrais utiliser l'l'asynchronisme.
En gros tu appels ta méthode qui contient la boucle dans un Task.Run( ). Tu peut même utiliser un CancellationToken du coup, et l'utiliser dans l'event du bouton.
A toi de voir.

J@ck

[road-runner]

Salut,
Il faut mettre la lecture du port sur autre thread pour que l'interface soit accessible durant la lecture
Pour cela tu peux utiliser un BackGroundWorker. Un tutoriel ici : https://msdn.microsoft.com/fr-fr/lib...(v=vs.95).aspx

Bon code

d'abord merci à vous pour votre aide, je me permet d'y joindre mon code car je comprend pas le principe du backgroundworder, si quelqu'un pourrais me dire pas à pas ce que je dois faire dans mon code.
d'avance je vous en remercie

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
64
65
66
Option Strict On
Option Explicit On
Imports System.IO
Imports System
 
Public Class Form1
    Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Integer) As Short
    Dim nom_fichier As String = "c:\temperature\temperature.txt"
    Private Sub btn_depart_Click(sender As Object, e As EventArgs) Handles btn_depart.Click
        btn_depart.Visible = False
        Lab_sortie.Visible = True
 
        Call ReceptionDonnesSerie()
        End
    End Sub
    Private Sub btn_stop_Click(sender As Object, e As EventArgs)
        btn_depart.Visible = True
        Lab_sortie.Visible = False
 
        End
    End Sub
 
    Sub ReceptionDonnesSerie()
        ' Receive strings from a serial port.
        Dim reponse As MsgBoxResult
        Dim com As IO.Ports.SerialPort = Nothing
        Dim Incoming As String = com.ReadLine()
        Dim lecture As String = ""
 
        Try
            com = My.Computer.Ports.OpenSerialPort("COM6")  
            com.ReadTimeout = 61000
 
            Do
 
                Lab_temp.Text = Incoming
                Lab_date.Text = Date.Now.ToString("HH:mm")  
                Refresh()
                Call sauvegarde()
 
            Loop
        Catch ex As TimeoutException
            lecture = "Error: Serial Port read timed out."
        Finally
 
            If com IsNot Nothing Then com.Close()
        End Try
        If (GetAsyncKeyState(27) <> 0) Then
            reponse = MsgBox("Arrêt programme ?", MsgBoxStyle.YesNo, "CONTROLE")
            If reponse = vbYes Then
                BackgroundWorker1.CancelAsync()
            End If
 
        End If
    End Sub
 
    Sub sauvegarde()
        My.Computer.FileSystem.WriteAllText(nom_fichier, Lab_date.Text & ";" & Lab_temp.Text & Convert.ToChar(13) & Convert.ToChar(10), True)  'création fichier si necessaire et écriture
    End Sub
 
 
    Private Sub BackgroundWorker1_DoWork(sender As Object, e As ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
 
    End Sub
 
End Class

[J@ckHerror]

Bonjour,

Pour que tu comprenne un backgroundWorker il va falloir déjà aller lire de la doc dessus, en commençant par les liens donnés plus haut, auquel on pourra rajouter celui-ci sans oublier

Puis tenter, en suivant les exemples donnés dans les liens, de modifier ton programme pour le faire fonctionner suivant tes attentes... et si tu rencontres des problèmes demande nous.

Ton problème est simple, tu a une boucle infini dans ton code et ton appli a une interface graphique.
Une appli, de base, n'utilise qu'un thread, à la fois pour ton code et pour l'interface (ben oui finalement ton code c'est aussi l'interface...), du coup ta boucle infini tien cet unique thread constamment occupé, donc l'interface ne peut plus réagir. L'idée avec le backgroundWorker c'est de déporter la partie du traitement dans un autre thread, pour ne pas occuper le thread principal infiniment, et rendre à nouveau l'interface réactive. L'utilisation d'un autre thread amene mécaniquement des complications, principalement pour communiquer avec lui, 2 thread ne pouvant pas partager directement leurs ressources (là je suis hors de mes connaissances va falloir aller demander les détails vers d'autres) le BackGroundWorker emmène donc une simplification à ce niveau, en permettant de créer un thread, de lui affecter une tache et de communiquer simplement avec lui. Sans lui il aurait fallut que tu implemente directement des thread en gérant toi même la communication avec ce thread... soit une toute autre pair de manche.

J@ck.