Executer le code chaque minute

Version imprimable

01/10/2018, 02h46
MADA BLACK

Executer le code chaque minute

Hello Forums
Hello tout le monde
SVP si vous pouvez m'aider a resoudre ce probleme
J'ai Button1 et textBox1
Comment faire si j'ecris dans TextBox1 le nombre (1) alors Button1 sera automatiquement cliqué chaque 1 minute (Button1_Click(Me, EventArgs.Empty))
Si j'ecris dans TextBox1 le nombre (2) alors Button1 sera automatiquement cliqué chaque 2 minutes .
Si j'ecris dans TextBox1 le nombre (3) alors Button1 sera automatiquement cliqué chaque 3 minutes .
Biensure on ne peut pas depasser le nombre 60
Merci beaucoup d'avance pour l'aide
Amicalement
MADA
01/10/2018, 13h55
Pol63

timer (en winforms on peut le poser sur le form)
.interval = 60000
.start

sur l'event tick vérifier si (now - _datelastexec).totalminutes > minutes du textbox
auquel cas tu peux appeler ta méthode qui exécute du code

_datelastexec étant une variable date à créer et à setter

Merci pol63 pour l'aide
Si je supprime carrement TextBox1 et j'execute Button1 chaque 30 minutes .comment va etre la methode svp
J'ai trouve ce code qui execute le code mais malheureusement chaque une heure + 3 minutes ..

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
    Public Class Form1
        Private Sub InitTimer()
            Dim currDate As DateTime = Date.Now
            Dim startMinute As Integer = 3
            Dim startTime As New TimeSpan(currDate.Hour, startMinute, 0)
            Dim secondsToNextRun As Integer = (3600 + startMinute * 60) -
                                             ((currDate.Minute * 60) + currDate.Second +
                                             If(currDate.TimeOfDay.Ticks > startTime.Ticks, 0, 3600))
 
        calculate ms from s (add 1ms, for the case that secondsToNextRun = 0)
            Timer1.Interval = secondsToNextRun * 1000 + 1
            Timer1.Enabled = True
        End Sub
        Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
            If Timer1.Interval <> 3600000 Then
                Timer1.Interval = 3600000
            End If
 
            Button1_Click(Me, EventArgs.Empty)
 
        End Sub

Le timer peut effectivement être « Déposé » sur le Form et il peut aussi être déclaré dans la classe du Form, mais ne pas oublier le WithEvents :
Code:

1 2 3 Public Class FormdeBase Dim WithEvents MonTimer As New Timer ‘ … … …
Et puis, il faut savoir que :

Le Timer démarre / s’arrête sur l’appel de ses méthodes Start / Stop ;
Que Timer émet un événent Tick chaque fois que son Interval de temps est accompli ;
Que cet interval de temps s’intialise en milliseconde par la valeur octroyée à sa propriété Interval.

Exemple :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Private Sub InitEtDemarreMonTimer() MonTimer.Interval = 1000 ' 1000 millisec = 1 sec, 60000 millisec = 1 minute, 3600000 millisec = 1 heure, … MonTimer.Start() End Sub Private Sub ArreteMonTimer() MonTimer.Stop() End Sub Private Sub MonTimer_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles MonTimer.Tick ' Fais ce que tu dois à cet instant ! End Sub

01/10/2018, 16h57
MADA BLACK

Merci Phil Rob
Parfaitement resolu par votre impeccable code
Merci beacoup pour l'aide
Amicalement
MADA