Discussion :

[MADA BLACK]

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

[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

[MADA BLACK]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Phil Rob]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[MADA BLACK]

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