Ajout timeout sur boucle Do_Loop

Version imprimable

Bonjour,
Je suis débutant en programmation VBnet et j'aurais eu besoin d'un peu d'aide sur un programme.
Mon programme fait les choses suivantes :
Sur clique d'un bouton
--> Vérification existance d'un programme (ex:spoolsv)
--> Arrêt du processus si existant
--> Vérification de la relance automatique du process
--> Fin du programme

En gros, lorsque j'ai tué mon process, je veux qu'on vérifie pendant un laps de temps (10s) que le process s'est relancé automatiquement.

J'utilise donc une boucle do ... Loop until ProcessExist = true
Le truc c'est que si le process ne se relance pas on se retrouve dans une boucle infinie, je cherche donc à y intégrer un timeout (timer).
Mais je n'arrive pas à faire fonctionner ce timer.

Voici le code que j'utilise :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Private Sub VerifProcess() Me.Timer1.Enabled = True Do ProcExist = SearchProc("notepad") Loop Until ProcExist = True Or Me.Timer1.Enabled = False End Sub Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick Me.Tim += 1 If Me.Tim = 100 Then Me.Timer1.Enabled = False End If End Sub
J'ai l'impression ici qu'on ne passe jamais dans le timer.

Merci d'avance pour votre aide

12/11/2018, 13h26
Momoth

Tu peux utiliser la classe StopWatch pour cela. Tu l'instancie et démarre avant le début de ta bouche et tu peux te baser sur le temps écoulé pour sortir de ta boucle.
12/11/2018, 13h45
indemyx

Citation:

Envoyé par Momoth

Tu peux utiliser la classe StopWatch pour cela. Tu l'instancie et démarre avant le début de ta bouche et tu peux te baser sur le temps écoulé pour sortir de ta boucle.

Merci pour ta réponse.
Je ne connaissais pas cette classe.

Peux tu me donner un exemple de comment appliquer cette fonction stp ?

Merci d'avance
12/11/2018, 13h45
Pol63

par défaut l'exécution ne peut être qu'à un endroit du code à la fois (refresh interface par le framework inclus)
donc en effet tant que tu es dans ta boucle le timer ne déclenche pas, et normalement l'interface utilisateur doit figer aussi

pour ca on utilise un mécanisme de multithreading (parmi plusieurs au choix) pour pouvoir faire plusieurs choses à la fois
12/11/2018, 13h48
indemyx

Citation:

Envoyé par Pol63

par défaut l'exécution ne peut être qu'à un endroit du code à la fois (refresh interface par le framework inclus)
donc en effet tant que tu es dans ta boucle le timer ne déclenche pas, et normalement l'interface utilisateur doit figer aussi

pour ca on utilise un mécanisme de multithreading (parmi plusieurs au choix) pour pouvoir faire plusieurs choses à la fois

Ok je comprends le principe, mais ne suis pas encore assez compétent pour voir comment mettre ça en place...

Du coup pourriez vous me donner un exemple de comment je pourrais gérer mon problème avec le multithreading svp ?
Merci d'avance
13/11/2018, 12h16
Pol63

y en a sur le net je pense
au choix
task / async/await
backgroundworker
thread
...
13/11/2018, 12h31
ZenZiTone

Citation:

Envoyé par indemyx

J'ai l'impression ici qu'on ne passe jamais dans le timer.

Quels sont les valeurs de Timer1.Interval et Tim?

Bonjour,
Voici un exemple :

Citation:

Sur clique d'un bouton
--> Vérification existance d'un programme (ex:spoolsv)
--> Arrêt du processus si existant
--> Vérification de la relance automatique du process
--> Fin du programme

Voici le code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        If VerifierProgramme("notepad++") = True Then
            For Each proc As Process In Process.GetProcessesByName("notepad++")
                If Not proc.HasExited Then
                    proc.Kill() 'forcer le processus à sortir.
                End If
                proc.CloseMainWindow() 'demander au processus de sortir.
                proc.WaitForExit(10000) 'attendez jusqu'à 10 secondes.
            Next proc
            Process.Start("notepad++")
        Else
            Label1.Text = "ousp!! Le processus n'existe de pas!"
        End If
    End Sub
 
    Private Function VerifierProgramme(ProcessName As String) As Boolean
        For Each clsProcess As Process In Process.GetProcesses()
            If clsProcess.ProcessName.StartsWith(ProcessName) Then
                Return True
            End If
        Next
        Return False
    End Function

Cordialement,

Bon désolé je reviens à la charge avec mes questions :

Mon code avance peu à peu (quand j'ai du temps), et du coup je bloque sur la chose suivante :
Je veux que mon bouton dans ma forme clignote pdt la durée du traitement du programme.

J'ai donc créé un time qui fait ceci :

Code:

1
2
3
4
5
6
7
8
9
 
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If (Me.Button1.BackColor = Color.LightGray Or Me.Button1.BackColor = Color.Red) Then
            Button1.BackColor = Color.LightGreen
        Else
            Button1.BackColor = Color.LightGray
        End If
 
    End Sub

Le truc étant j'aimerai que mon timer soit éxécuter en parallèle du reste de mon programme.
Je m'orientais donc vers du multithreading, mais j'ai beau épluché quelques tutos je ne m'en sors pas trop.

Merci d'avance pour votre aide.

Le code complet :

Code:

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
67
68
69
 
Public Class Form1
 
    Public Sub New()
        ' Cet appel est requis par le concepteur.
        InitializeComponent()
 
        ' Ajoutez une initialisation quelconque après l'appel InitializeComponent().
        Me.Timer1.Interval = 500
        Me.Timer1.Enabled = False
 
    End Sub
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.MouseDown
        Me.Timer1.Enabled = True
        'Arrêt du processus
        If SearchProc("notepad") = True Then
            KillProc()
        Else
            MessageBox.Show("Le processus de l'imprimante est introuvable")
            Me.Timer1.Enabled = False
            Me.Button1.BackColor = Color.Red
            Exit Sub
        End If
 
        'Vérification que le processus s'est relancé automatiquement
        VerifProcess()
    End Sub
 
    Private Function SearchProc(ByVal processname As String) As Boolean
        For Each clsProcess As Process In Process.GetProcesses()
            If clsProcess.ProcessName.Contains(processname) Then
                Return True
            End If
        Next
        Return False
    End Function
 
   Private Sub KillProc()
        Me.Timer1.Enabled = True
        Shell("taskkill /f /im notepad.exe")
    End Sub
 
    Private Sub VerifProcess()
        '
        System.Threading.Thread.Sleep(5000)
        Me.Timer1.Enabled = True
        If SearchProc("notepad") = True Then
            MessageBox.Show("Dépannage terminé")
            Me.Close()
        Else
            MessageBox.Show("Dépannage non terminé, relancer le programme")
            Me.Timer1.Enabled = False
            Me.Button1.BackColor = Color.Red
        End If
 
 
    End Sub
 
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If (Me.Button1.BackColor = Color.LightGray Or Me.Button1.BackColor = Color.Red) Then
            Button1.BackColor = Color.LightGreen
        Else
            Button1.BackColor = Color.LightGray
        End If
 
    End Sub
 
End Class

14/11/2018, 15h01
Pol63

utilises le backgroundworker
avec un peu de chance tu dois pouvoir le poser sur le form vu que c'est un component (sinon l'instancier)
appeler la méthode RunWorkerAsync permet de lancer le traitement, ce qui lève l'évènement DoWork qui est sur un thread secondaire, donc non bloquant pour l'interface
(là tu peux y mettre ton code qui est actuellement dans Button1_Click)
dans cette méthode tu peux accéder aux même variables que dans le reste du form, par contre il est impossible de manipuler les controles, ceci ne peut etre fait que sur le thread principal
à la fin du DoWork l'event RunWorkerCompleted est déclenché, ceclui ci est sur le thread principal donc tu peux modifier l'interface si nécessaire
23/11/2018, 09h09
indemyx

Du coup je m'en suis sorti avec du multi threading.

Merci à tous pour votre aide