Effectuer une pause

Question

Bonjours, à tous et bonne journée!

Bon je suis sur les nerfs car les incultes n'arrêtent pas de me proposer le system.threading.thread.sleep pour mon problème.

Bon voila je voudrais savoir si c'est possible de faire une fonction wait en vb.net(2008).

Bon et la je demande bel et bien wait et non sleep car sleep arête tout le programme moi je voudrais selement faire une pause dans un 'timer' parexemple :

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
  '...code
  if ... then
    Wait(36000000)
  end if
  '...code
end sub

Disons que mon wait dure 1 heure (juste histoire d'amplifier la chose), j'aimerais bien pouvoir continuer d'utiliser mon programme pendant ce temps...

lesdis · Answer

Bonjour,

Il faut bien utiliser le sleep, les gens ne sont pas des incultes, il suffit juste de savoir l'utiliser


Public Sub Wait(ByVal time As Integer)
        Dim temps_reference As Date = now
        While temps_reference.AddSeconds(time) > Now
            Threading.Thread.Sleep(10)
            Application.doevents
        End While
    End Sub


Tu peux aussi le doevents tout seul mais attention à la montée en charge du processeur 




Bonne Prog

Effectuer une pause

1 réponse

Votre réponse

Discussions similaires