Timeout dans une boucle

Question

Bonjour,
Dans mon code Vb.net ci-dessous, j'aimerais mettre un timeout de 20mins
pour pouvoir sortir de cette boucle si le répertoire reste vide.
Avez-vous une solution?
Merci

'Tant que le Nbre de fichier dans Rep est vide on boucle
 NbFiles = 0
 While NbFiles = 0
  Dim Rep As String = "C:\Toto" 
  'Files est un tableau qui se remplit dès qu'un fichier arrive dans Rep
  Dim files As String()= System.IO.Directory.GetFiles(Rep)
  'Longueur du tableau = Nb de fichiers dans Rep
  NbFiles = files.Length
 End While

NHenry · Answer

Bonjour, 

Utilises Environment.TickCount, c'est une valeur en millisecondes, ensuiite à toi de trouver comment faire, c'est très simple.

Préfère utiliser Do/Loop à la place de While/End While.

Pour éviter de bloquer ton appli, regardes pour utiliser un thread ou un BackGroundWorker.

Pense aussi à faire une pause, pour soulager le CPU avec : System.Threadding.Thread.Sleep(1)
Tu peux même mettre plus pour éviter de faire tourner trop vite et libérer des ressources de calcul.

---------------------------------------------------------------------
[list=ordered][*]Pour poser correctement une question et optimiser vos chances d'obtenir des réponses, pensez à lire le règlement CS et aussi ce lien[*]Quand vous postez un code, merci d'utiliser la coloration syntaxique (3ième icône en partant de la droite : )
[*]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
---
Mon site

ehjoe · Answer

Bonjour,


Option Explicit On
Public Class Form1

  Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Timer1.Interval = 1000000
    Timer1.Enabled = True
  End Sub

  ' mettre un objet timer et dans sa procédure le code
  Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    Dim nbfiles As Byte = 0
    While NbFiles = 0
      Dim Rep As String = "C:\Toto"
      Dim files As String() = System.IO.Directory.GetFiles(Rep)
      nbfiles = files.Length
    End While
  End Sub

End Class


Si c'est ce que tu veux, le nom c'est "TIMER"

Cordialement, Joe.

4u4me4us · Answer

A partir du code de "EhJoe" je te propose


Option Explicit On
Public Class Form1

  Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Timer1.Interval = 120000'pour avoir  les 20mins 
    Timer1.Enabled = True
  End Sub

  ' mettre un objet timer et dans sa procédure le code
  Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    Dim nbfiles As Byte = 0
   Dim files As String() = System.IO.Directory.GetFiles("C:\Toto")
    if files.Length > 0
      nbfiles = files.Length 
    End if
  End Sub

End Class


P.S. je ne vois pas très bien le rôle de nbfiles  vu que tue as files.Length.

ucfoutu · Answer

Bonjour,

moi, ce que je comprends pas, c'est l'utilisation de :
While NbFiles =  0 
alors qu'on a exprimé le voeu :
pour pouvoir sortir de cette boucle si le répertoire reste vide. 

Quelle est l'utilité d'attendre alors 20mins ?  dans quel but  ? Comprends pas, moi !
____________________
Réponse exacte ?  => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

Utilisateur anonyme · Answer

Bonsoir,
Je rappelle que le framework permet de surveiller un dossier grâce au composant FileWatcher :
Option Strict On
Public Class Form1
    Dim FSW As New IO.FileSystemWatcher
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        FSW.Path = "c:	est"
        AddHandler FSW.Created, AddressOf FichierCree

    End Sub
    Private Sub FichierCree(ByVal sender As Object, ByVal e As IO.FileSystemEventArgs)
        MessageBox.Show("un fichier " & e.Name & " vient d'être créé dans " & IO.Path.GetDirectoryName(e.FullPath))
    End Sub
End Class

4u4me4us · Answer

Bien vu "banana32"

Utilisateur anonyme · Answer

J'ai oublié un détail dans mon exemple car il faut indiquer au composant de réagir (ou pas avec false) aux événements avec :
FSW.EnableRaisingEvents = True
Bonne prog.

edpimi · Answer

Merci pour ta réponse banana32 
mais moi je dois attendre que un fichier se crée dans le repertoire "c:	oto" avant de continuer la suite de mon traitement
donc comment faire sans utiliser de boucle while?

ehjoe · Answer

Bonjour,

Ben tu utilises directement... oh pardon, tu t'adressais à Banana n°32, désolé, je n'avais pas vu, je le laise répondre, cordialement, Joe.

Utilisateur anonyme · Answer

Comme dit EhJoe, tu utilise l'événement directement en te passant de ta boucle.

@EhJoe
32 est le numéro administratif de mon département. (gers) 
A bientôt.

ehjoe · Answer

Bonsoir Banana ...


@EhJoe, 32 est le numéro administratif de mon département


Ah, enchanté, alos moi c'est 75 

Cordialement, Joe.

Timeout dans une boucle

11 réponses

Votre réponse

Discussions similaires