[débutant] [VB.NET] Timer + label + checkbox ...

Voila je décrit la situation .

Attente : Je voudrait lors d'un clik sur une CheckBox déclencher un Timer et déclencher une fonction qui fait ce déplacer un label .

Je bloque sur le fait de cliquer sur la Checkbox et qu'un timer ce lance pour que ma fonction ( qui contient un "pour" ) s'arrette une foi que l'on reclike sur la Chekbox .

Mon code :

Evenment clik chekbox :
Code:

1 2 3 4 5 6 7 8 9 10 11 Private Sub cbActiver_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbActiver.CheckedChanged If Me.cbActiver.Checked Then Me.tmrTimer1.Enabled = True Call Timer() Else Me.tmrTimer1.Enabled = False End If End Sub
Ma fonction :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Private Sub Timer() Dim MaX As Integer Dim MaX1 As Integer MaX1 = lblclasse.Left Do lblclasse.Left = lblclasse.Left + 1 If lblclasse.Left >= +270 Then lblclasse.Left = MaX End If Loop While Me.cbActiver.Checked = False End Sub
Je n'arrive pas a comprendre comment faire pour que l'orsque je clik pour la Deuxieme fois sur la chekbox cela arrette ma boucle pour !!!

bah avant de cliquer la premiere fois sur ta checkbox, elle est soit à true (cochée) soit à false (non cochée). Ici on va imaginé qu'elle est pas cochée, donc la prochaine fois que tu va cliquer dessus tu vas la decocher

donc tu rajoute
Code:

1 2 3 if checkbox.checked = false Then tu arrete le timer

J'ai fait :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 Private Sub Timer() Dim MaX As Integer Dim MaX1 As Integer MaX1 = lblclasse.Left Do lblclasse.Left = lblclasse.Left + 1 If lblclasse.Left >= +270 Then lblclasse.Left = MaX End If If Me.cbActiver.Checked = False Then Me.tmrTimer1.Enabled = False End If Loop While Me.cbActiver.Checked = False End Sub
ce qui ce traduit par : quand la chekbox et décocher (false) alors le timer prend la valeur false donc la boucle s'arrette .
Mais sa plante mon formulaire , le label bouge bien en boucle , mais trop vite et apres plantage .
:cry:

bah si il passe a false, c'est normal que ca boucle puisque dans ton while tu as mis la conditions
Code:

1 2 Loop While Me.cbActiver.Checked = False

oui , pardon j'ai corriger sa de moi meme avan .
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 Private Sub Timer() Dim MaX As Integer Dim MaX1 As Integer MaX1 = lblclasse.Left Do lblclasse.Left = lblclasse.Left + 1 If lblclasse.Left >= +270 Then lblclasse.Left = MaX End If If Me.cbActiver.Checked = False Then Me.tmrTimer1.Enabled = False End If Loop While Me.cbActiver.Checked = True End Sub
Mais tjour pareil , je coche sa lance la fonction et apres je ne peut plus decocher la chekbox le label bouge bien , mais je ne peut rien faire et sa plante !

peut etre que je doit configuer le timer ?

pour arreter un timer il faut utiliser tontimer.stop

j'ai changer en :

Code:

1
2
3
4
5
6
7
 
Private Sub cbActiver_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbActiver.CheckedChanged
        If Me.cbActiver.Checked = True Then
            Call Timer()
            Me.tmrTimer1.Start()
        End If
    End Sub

et ma fonction :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
Private Sub Timer()
        Dim MaX As Integer
        Dim MaX1 As Integer
        MaX1 = lblclasse.Left
        Do
            lblclasse.Left = lblclasse.Left + 1
            If lblclasse.Left >= +270 Then
                lblclasse.Left = MaX
            End If
            If Me.cbActiver.Checked = False Then
                Me.tmrTimer1.Stop()
            End If
 
        Loop While Me.tmrTimer1.Enabled = True
    End Sub

marche tjour pas , au 1er clik sur la chek , la boucle ce passe une seul foi ensuite sa tourne et bug ! 8O

bah je sias pas trop maet un point d'arret et regarde ou ca plante

iol te faut un THREAD pou ke sa plante pas :!:

comment sa un thread ? je voi ce que c'est mais comment un crée un ?

bah sinon tu peux utiliser un DoEvents à la place d'un Thread. Tu peux procéder comme ça :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Private Sub Timer()
        Dim MaX As Integer
        Dim MaX1 As Integer
        MaX1 = lblclasse.Left
        Do
            'La ligne que j'ai ajouté
            Application.DoEvents()
            lblclasse.Left = lblclasse.Left + 1
            If lblclasse.Left >= +270 Then
                lblclasse.Left = MaX
            End If
            If Me.cbActiver.Checked = False Then
                Me.tmrTimer1.Stop()
            End If
 
        Loop While Me.tmrTimer1.Enabled = True
    End Sub

j'ai testé le code et ça marche bien :wink:

Merci JauB :hola: !!

sauvé :d

je t'en prie.
Bonne carrière 8)

salut Amenos,

Dis moi ton timer te sert à quoi finalement ?
J'ai l'impression que tu l'utilise comme un simple booléen.
Pourquoi ne te sert tu pas de l'évènement Tick ?

Je serais toi :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 Private Sub cbActiver_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbActiver.CheckedChanged tmrTimer1.Start() End Sub Private Sub tmrTimer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles tmrTimer1.Tick If Not cbActiver.Checked Then ' Si le label n'est pas coché tmrTimer1.Stop() Exit Sub End If ' Si on arrive ici c'est que le CheckBox est coché donc ' Tu fais ce que tu veux (bouger le label) End Sub
Bien sur il faut soit que tu ais placé le timer manuellement sur ta form, soit que tu l'ai déclaré comme ça :

Code:

Private Withevents tmrTimer1 as Timer

Pour que les évènements (Tick) du timer soient disponibles.

ps : au fait UO ça te dirais pas qqc ? :?: :wink:

merci , NiamorH !

sa marche , et j'avait bien définit le trmTimer1 avant . :D

juste que sa defille pas trés vite , mais ca c'est juste un détail .

ps: ui je scriptai sur UO après avoir joué . look tes MP !