Exécution de deux boucle while en même temps

Question

Bonjour, je suis étudiant en GEII et je suis actuellement en stage. 
J'ai un problème dans mon programme. 

A un certain moment dans mon programme, je voudrais exécuter deux boucle while en même temps.

While donnee = ""                                                                                       
                                Affiche_reception()
                            End While

                            While donnee = ""                                                                                       
                                If ProgressBar1.Value <> ProgressBar1.Maximum Then
                                    Timer1.Interval = 1000
                                    Timer1.Start()
                                End If
                                Application.DoEvents()
                            End While

Pouvez vous m'aider s'il vous plait

Merci

ucfoutu · Answer

Bonjour,
Je ne te comprends pas.
Dès lors que ces deux boucles répondent à la même condition (donnée = ""), pourquoi en lancer deux et ne mas mettre toutes tes instructions dans une seule ?
Je ne comprends pas non plus la nécessité de redémarrer sans cesse ton timer.


________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviendrai que si nécessité de la compléter.

NHenry · Answer

Bonjour, 

Peut être parles-tu de Thread ?

v----Signature--------v----------------------------------------------
[list=ordered][*]Pour poser correctement une question et optimiser vos chances d'obtenir des réponses, pensez à lire le règlement CS, celui-ci pour bien poser votre question ou encore celui-ci pour les PFE et autres exercices.[*]Quand vous postez un code, merci d'utiliser la coloration syntaxique (3ième icône en partant de la droite : ).[*]En VB.NET pensez à activer Option Explicit et Option Strict (propriété du projet) et à retirer l'import automatique de l'espace de nom Microsoft.VisualBasic (onglet Références dans les propriétés du projet).[*]Si votre problème est résolu (et uniquement si c'est le cas), pensez à mettre "Réponse acceptée" sur le ou les messages qui vous ont aidés/list
---

Utilisateur anonyme · Answer

Application.DoEvents()

Utilisateur anonyme · Answer

Bonjour,

Personne ne t'a encore enseigné que la boucle While - Wend est une antiquité qui date presque de Mathusalem et que cela traîne-là pour des questions compatibilité ?

Ouvre ton aide au plus sacrant et constate que la boucle Do - Loop et ses nombreuses variantes est mauditement plus intelligente.

vool · Answer

Bonjour, 

Ma première boucle permet de récupérer un caractère à un certain moment sur un port RS232 c'est pour cela que je ne rassemble pas mes deux boucles car sur de nombreux tests ma fonction affiche_reception() s'activait alors que le caractère était deja envoyer, je loupe l'envoi du caractere. 

Donc je dois avoir une boucle avec affiche_reception qui tourne rapidement et tout le temps jusqu'à recevoir le caractère,

Et une deuxieme boucle qui me permet d'incrémenter mon progressbar toute les secondes

cs_Jack · Answer

Salut

Un truc me fait tilt à chaque fois qu'on parle de liaison série sous VB.Net :
A chaque fois, vous faites des boucles de lecture du buffer en attente de données.
En VB6, l'objet de connexion déclenchait un évènement lorsque le buffer contenait X data, où X était paramétrable; éventuellement 1 s'il on voulait qu'il se déclenche à chaque activité.

N'y a t-il vraiment pas ce même comportement sous .Net ?
Je n'ai pas vérifié, c'est une vraie question.

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

Le savoir est la seule matière qui s'accroit quand on le partage (Socrate)

cs_Jack · Answer

Voir le paramètre ReceivedBytesThreshold et l'évènement _DataReceived

Utilisateur anonyme · Answer

Bonjour jack,

A chaque fois, vous faites des boucles de lecture du buffer en attente de données. 
vb6 devait faire la même chose de façon transparente pour l'utilisateur.
Je pense que l'événement DataReceived (ou quelque chose comme ça) était conçu pour plus de facilité d'écriture du code. Et en y regardant bien, ce principe est très limité finalement.
On peut très bien implémenter ce type d'événement en .NET avec la possibilité de l'enrichir de données supplémentaires par le biais d'un argument d'événement (e en principe) présenté sous forme de classe personnalisée par exemple. En gros, avant le déclenchement de l'événement, on peut donc préparer des données à envoyer.
On peut aussi déclencher divers événements selon les données lues dans le buffer. Ceci évite de devoir tout traiter dans la même sub (Datareceived).

ucfoutu · Answer

Bonjour à tous,
Ce que moi, je ne comprends pas (et ne comprendrai jamais), c'est ce que viendrait faire l'utilisation d'un timer pour faire progresser une barre de progression.
Ce n'est pas la première fois que je "vois" cette "philosophie" qui, pour moi, ne correspond à rien d'exact, voire de logique.
Pour moi, une barre de progression CONSTATE une progression. Elle n'en donne pas l'illusion.
Et que vois-je, en outre, qui me fait littéralement bondir : on fait par le code montré "progresser" une barre jusqu'à ce que sa valeur maxi soit atteinte, comme si sa valeur maxi correspondait à la fin d'une "réception" !
Rien de cela ne me parait personnellement "orthodoxe" ! Autant remplacer la barre de progression par n'importe quelle "animation", dans ce cas !
En résumé : je n'aime pas, pas du tout, même, ce "genre-là".

________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviendrai que si nécessité de la compléter.

Utilisateur anonyme · Answer

J'ai déjà signalé sa mauvaise conception du code au demandeur dans une autre discussion. Mais c'est resté sans réponse...

cs_Jack · Answer

@Banana32 : 
paramètre ReceivedBytesThreshold et l'évènement _DataReceived : Je parlais bien de .Net

vool · Answer

Peut être que j'utilise mal le progressbar mais je voulais l'incrémenter de 1 toutes les secondes
 
While donnee = ""                                                                                       
     If ProgressBar1.Value <> ProgressBar1.Maximum Then
         Timer1.Interval = 1000
         Timer1.Start()
     End If
     Application.DoEvents()
End While


Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Timer1.Stop()
        ProgressBar1.Value += 1
End Sub

acive · Answer

Bonjour,

C'est fou notre manque de pouvoir de persuasion... ton code ne fera rien de rien, même au niveau graphique (visuel), si c'est ça le but.

Tout ce que tu vas obtenir c'est un blocage dans ta boucle, (sans voir un peu plus le restant du code)

Mais si tu veux rester dans ta "toile d'araignée", sans tenir compte des avis des autres...

        Timer1.Interval = 1000
        Timer1.Enabled = True
        Do While donnée = ""
            Application.DoEvents()
        Loop
        ProgressBar1.Value = ProgressBar1.Maximum
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If ProgressBar1.Value < ProgressBar1.Maximum Then
            ProgressBar1.Value += 1
        Else
            Timer1.Enabled = False
        End If
    End Sub



Cordialement


CF2i - Guadeloupe
Ingénierie Informatique

Utilisateur anonyme · Answer

Merci jack 

ReceivedBytesThreshold :
Obtient ou définit le nombre d'octets dans la mémoire tampon d'entrée interne avant qu'un événement DataReceived ne se produise.
Il faut me montrer un exemple de code sans boucle donc

DataReceived :
Les événements reçus en série peuvent être provoqués par l'un des éléments de l'énumération SerialData. Étant donné que le système d'exploitation détermine s'il convient ou non de déclencher cet événement, toutes les erreurs de parité peuvent ne pas être signalées.

Les événements PinChanged, DataReceived et ErrorReceived peuvent être appelés de façon désordonnée et il peut y avoir un léger délai entre le moment où le flux sous-jacent signale l'erreur et le moment où le gestionnaire d'événements est exécuté. Un seul gestionnaire d'événements peut s'exécuter à la fois.

L'événement DataReceived n'est pas forcément déclenché pour chaque octet reçu. Utilisez la propriété BytesToRead pour déterminer combien de données restent à lire dans la mémoire tampon.

L'événement DataReceived est déclenché sur un thread secondaire lorsque des données sont reçues de l'objet SerialPort. Cet événement étant déclenché sur un thread secondaire et non sur le thread principal, toute tentative de modification d'éléments inclus dans le thread principal, tels que les éléments de l'interface utilisateur, peut lever une exception de thread. S'il est nécessaire de modifier des éléments dans le Form ou Control principal, renvoyez les demandes de modification à l'aide de Invoke, qui réalisera la tâche sur le thread approprié.  

Conclusion : Il est préférable de boucler mais ceci n'engage que moi bien entendu.

vool · Answer

Bonjour Acive

Pourquoi parle tu de toile d'araignée, mon programme il marche.

Juste je voudrais rajouter un progressbar qui s'incrémente pendant que un test est effectué sur mon automate.

Mon automate envoi un caractère par la liaison rs232 quand le test est terminé, c'est pour cela que dans mon programme je dis de lire sur le port rs232 tant que le caractère n'est pas envoyer.

Pour rajouter mon progressbar, je fais une même boucle, incrémenter mon progressbar toutes les secondes tant que le caractère n'est pas envoyer.

Le problème c'est que ces deux boucles doivent fonctionner en même temps et elles ne peuvent pas être rassemblé car sinon la lecture sur le port rs232 se fais toutes les secondes à cause de mon timer et mon programme loupe la réception du caractère.

J'espère avoir été clair sur mon problème,

Merci

acive · Answer

Alors... confus tout ça...

Mais si j'ai bien compris:
1) Tu lui envois une commande pour faire un test (à l'automate)
2) Rien ne se passe par le port RS pendant ce temps
3) Tu sais juste que le test dure x secondes
3) A la fin du test l'automate t'envoi un caractère pour dire que c'est fini

C'est bien ça ???



Cordialement


CF2i - Guadeloupe
Ingénierie Informatique

Utilisateur anonyme · Answer

Tu dois lancer ton timer avant d'enter dans la boucle. Sinon, il sera lancé en permanence et n'atteindra jamais son temps d'écoulement. Ensuite, il ne faudra le stopper que lorsqu'il aura atteint sa valeur maximale.

vool · Answer

Oui c est sa Acive

acive · Answer

Hé bien, dans ce cas il nous reste effectivement l'option du timer uniquement.

Ce ne serait pas le cas si (par exemple) il nous renvoyais des caractère à la fin de chaque étape de son test.

Alors le principe:
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim NbreDeSecQuiDureLeTest As Integer = 10 'Le test dure 10 sec
        SerialPort1.Write("?") 'démarrage du test
        ProgressBar1.Maximum = NbreDeSecQuiDureLeTest
        ProgressBar1.Value = 0
        Timer1.Interval = 1000
        Timer1.Enabled = True
    End Sub

    'Juste un exemple d'une sub car je ne sais pas comment tu reçois ce caractère:
    Private Sub DonnéesRecuesDeLAutomate()
        If Caractere "fin" Then ProgressBar1.Value ProgressBar1.Maximum
        'et tu peux même laisser tourner le timer
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If ProgressBar1.Value < ProgressBar1.Maximum Then ProgressBar1.Value += 1
    End Sub



Cordialement


CF2i - Guadeloupe
Ingénierie Informatique

ucfoutu · Answer

Excusez-moi, mais je persiste à ne pas vouloir "avaler toute crue" cette "solution" avec utilisation d'un timer.
Je ne connais absolument rien à VB.Net, mais serait étonné de ce qu'il n'offre pas du "plus mieux", sinon du "moins pire".
J'ai lu avec attention tous vos messages.
Quel est le problème, finalement ? celui d'aller constamment "jeter un oeil ailleurs" ? Si oui : VB.Net ne connaîtrait-il pas l'opérateur AdressOf ?
Si oui (et je veux le croire) c'est lui, qu'il conviendrait d'utiliser plutôt qu'un Timer, me semble-t-il 

________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviendrai que si nécessité de la compléter.

acive · Answer

Maintenant c'est toujours pareil ==>> aucune précision dans l'exactitude de la valeur du progressbar.

Si tu sur-estimes le temps de traitement du test, ou si l'automate prend plus ou moins long-temps à le faire, pour une raison quelconque, ton progressbar va s'arrêter plus tôt (dès la réception du caractère).

Si tu le sous-estimes, il va rester au maximum et pendant un certain temps ton automate n'a pas fini le test.

C'est donc pour faire "joli" mais on ne peut pas compter sur l'exactitude du progressbar en question...


Cordialement


CF2i - Guadeloupe
Ingénierie Informatique

ucfoutu · Answer

A acive :
je parlerais d'utilité réelle, plutôt que d'exactitude, qu'il aura jusqu'à sa limite (le max de sa progressbar).
L'utilisation d'une barre de progression n'a de sens réel que li elle montre la partie effectuée d'un "travail" dont on CONNAIT le volume total (ce qui n'est pas le cas, me semble-t-il).
Lorsque l'on ne connait pas ce volume (et donc le max de la progressbar), on peut :
- soit faire patienter avec une animation (même un sablier)
- soit renseigner (dans un label, par exemple) sur le travail déjà effectué (ce qui a été reçu) et mettre à jour ce label au fur et à mesure de l'évolution de la réception.
Même Microsoft n'utiliserait pas une barre de progression dans le cas ici exposé.

________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviendrai que si nécessité de la compléter.

acive · Answer

Tout à fait d'accord ucfoutu,
dans son cas précis tout ce dont nous connaissons c'est le temps d&#8217;exécution du test (et encore, APPROXIMATIF).

Il suffit que son automate aie besoin de traiter d'autres tâches simultanément, en de hors du test en question, et tu peux être sur que l'estimation n'est pas bonne.
 
Comme tu dis: autant renseigner un label, point...

Mais ça... ça nous ne concerne pas... 

Cordialement


CF2i - Guadeloupe
Ingénierie Informatique

Utilisateur anonyme · Answer

Même Microsoft n'utiliserait pas une barre de progression dans le cas ici exposé.J'ai déjà vu des barres de progressions Microsoft avancer lentement et se remplir brusquement à la fin

ucfoutu · Answer

Oui, banana32, mais toujours selon le même principe : correction sur la base de :
- ce qu'il y a à faire
- ce qui a été déjà fait
- quelquefois : du constat de vitesse moyenne du travail déjà fait
Ce que tu as ainsi vu est généralement le cas d'une base de progression qui "avance" en fonction du nombre de fichiers traités et non de leur poids.
La barre de progression constate alors ce qu'elle a déjà traité et son max est alors le nombre de fichiers à traiter (pas leur poids).
Mais si tu as un exemple infirmant ce que je dis-là : montre-nous-le (pour voir ...)

Dans le cas ici exposé : on ne connait rien, absolument rien, de ce qui va être reçu !


________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviendrai que si nécessité de la compléter.

acive · Answer

Bonjour banana32,
se remplir brusquement à la fin
Oui... prend par exemple Microsoft Office à l'installation...
Parce qu'ils prennent en compte le nombre de tâches à accomplir et non la difficulté et/ou le temps nécessaire à l'ensemble des tâches.

D'ailleurs un tel calcul me parait assez difficile compte-tenu du grand nombre de processeurs, ainsi que de la taille des mémoires RAM installées sur la machine.

Tout comme la progression d'un téléchargement de fichiers sur le net, ils se basent sur le débit du serveur et de la bande passante de ta connexion pour t'indiquer qu'il te reste x minutes de téléchargement.

Tiens.. chez moi l'ADSL (bien sur, ça fonctionne à "trois pattes")  
Ca m'est arrivé de télécharger un fichier en 10 minutes en journée, ce même fichier met une heure aux heures de pointe quand le réseau est saturé.

Ou encore je le mets à télécharger, je vois "vous en avez pour 3 jours 11 heures", je me dis : "bon, tant-pis j'ai besoin de ce fichier..."
Je vais cueillir quelques manges dans le jardin (15 minutes) et quand je reviens, surprise c'est arrivé déjà... 

Comment gérer tout cela sinon?


Cordialement


CF2i - Guadeloupe
Ingénierie Informatique

ucfoutu · Answer

Tu manges quoi, acive ? des manges ? C'est quoi ?
Essaye plutôt les mangues (je te conseille personnellement les Alfonso, moinjs fibreuses et délicieuses). 


________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviendrai que si nécessité de la compléter.

Utilisateur anonyme · Answer

Ceci prouve que le code du demandeur est mal conçu; c'est ce que je répète sans réaction de sa part depuis deux jours

Utilisateur anonyme · Answer

Salut acive 
Comment gérer tout cela sinon? 
Tu as une solution ici

acive · Answer

Banana,
Oui, mais alors si tu écoutes ce qu'il dit... "il faut commencer par apprivoiser le fruit", franchement, tu crois vraiment que je vais lui courir après, et lui ordonner "VIENS ICI, AU PIED!!!" ??? 
C'est plutôt lui qui viens à moi... (ou du moins sur ma tête quand il est trop mur) 

ucfoutu,  désolé...
Alors les Manges, tu ne dois pas connaitre, c'est un fruit local, plus communément appelé "Mange moi vite" car le voisin arrive avec sa fourche... 

Au fait, à un moment, je pensais que la ADSL ici voulait dire (en anglais) : Absolutely Depressive System Link... mais bon on s'habitue à tout.



Cordialement


CF2i - Guadeloupe
Ingénierie Informatique

ucfoutu · Answer

J'ai trouvé et lu ce matin un petit didacticiel qui m'a paru intéressant ===>>
Tapez le texte de l'url ici.
Il vous intéressera aussi, probablement.

________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviendrai que si nécessité de la compléter.

ucfoutu · Answer

Et je vous propose aussi cette lecture :
Tapez le texte de l'url ici.
(elle devrait vous "parler" mieux qu'à moi).


________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviendrai que si nécessité de la compléter.

vool · Answer

Salut Acive 

Ce que tu m'a proposé est intéressant mais le problème est que la fonction DonnéesRecuesDeLAutomate() comme tu la appeler je dois l'appelé dans button1_click tant que je n'est pas recu le caractère.

    
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim NbreDeSecQuiDureLeTest As Integer = 10 'Le test dure 10 sec
        SerialPort1.Write("?") 'démarrage du test
        ProgressBar1.Maximum = NbreDeSecQuiDureLeTest
        ProgressBar1.Value = 0
        Timer1.Interval = 1000
        Timer1.Enabled = True
    End Sub

    'Juste un exemple d'une sub car je ne sais pas comment tu reçois ce caractère:
    Private Sub DonnéesRecuesDeLAutomate()
        If Caractere "fin" Then ProgressBar1.Value ProgressBar1.Maximum
        'et tu peux même laisser tourner le timer
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If ProgressBar1.Value < ProgressBar1.Maximum Then ProgressBar1.Value += 1
    End Sub

vool · Answer

Public Sub RS232_DataReceived(ByVal sender As Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles RS232.DataReceived                           'Fonction permettant de lire sur le port RS232
    Me.Invoke(New EventHandler(AddressOf Affiche_reception))
End Sub

Public Sub Affiche_reception()               'Fonction permettant de récupérer ce qui est lu sur le port RS232                                                                         
    donnee = RS232.ReadExisting
End Sub


Je dois appelé ma fonction Affiche_réception() tant que je n'est pas recu le caractère

acive · Answer

D'accord, mais tu as bien lu nos avis concernant ta gestion de ton progressbar ainsi que son utilité nulle?

Mais si tu veux en mettre un pour faire plus joli, vas y.
C'est bien d'avoir mis une sub Affiche_réception qui est appelé par la réception d'un caractère, mais je crois que tu n'as pas bien géré la chaîne reçue en général n'importe quel automate renvoi également un retour de chariot comme un Chr(13), un Chr(10) ou les deux.
Essaye comme ça, (j'ai mis une attente de 100 millisecondes, et je vérifie si la chaine reçue contient ton caractère de "fin):
Option Strict On
Public Class Form1
    Dim NbreDeSecQuiDureLeTest As Integer = 10 'Le test dure 10 sec
    Dim TimerCom As New Timer
    Dim DonnéeReçue As String

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        RS232.Write("?") '"?" = caractère de démarrage du test
        ProgressBar1.Maximum = NbreDeSecQuiDureLeTest
        ProgressBar1.Value = 0
    End Sub

    Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        'ici il faut fermer le port
        If RS232.IsOpen Then RS232.Close()
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Timer1.Interval = 1000
        Timer1.Enabled = True
        TimerCom.Interval = 100
        TimerCom.Enabled = False
        AddHandler TimerCom.Tick, AddressOf TimerCom_Tick

        'ici il faut parametrer et ouvrir le port
        RS232.BaudRate = 9600
        RS232.StopBits = CType(1, IO.Ports.StopBits)
        RS232.Parity = IO.Ports.Parity.None
        RS232.PortName = "COM1"
        If RS232.IsOpen = False Then RS232.Open()
    End Sub

    Private Sub TimerCom_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs)
        DonnéeReçue = RS232.ReadExisting
        If DonnéeReçue.Contains("-") Then '("-" = caractère qui signifie la fin)
            ProgressBar1.Value = ProgressBar1.Maximum
        End If
        TimerCom.Enabled = False
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If ProgressBar1.Value < ProgressBar1.Maximum Then ProgressBar1.Value += 1
    End Sub

    Private Sub RS232_DataReceived(ByVal sender As Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles RS232.DataReceived
        TimerCom.Enabled = True
    End Sub
End Class



Cordialement


CF2i - Guadeloupe
Ingénierie Informatique

vool · Answer

Merci Acive.

Exécution de deux boucle while en même temps

36 réponses

Votre réponse

Discussions similaires