Discussion :

[Amenos]

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 :

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

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 :

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

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 !!!

[HULK]

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 :

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

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

[Amenos]

J'ai fait :

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
 
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 .

[HULK]

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

Code :

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

1
2
 
Loop While Me.cbActiver.Checked = False

[Amenos]

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

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
 
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 ?

[HULK]

pour arreter un timer il faut utiliser tontimer.stop

[Amenos]

j'ai changer en :

Code :

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

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 :

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
 
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 !

[HULK]

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

[JauB]

iol te faut un THREAD pou ke sa plante pas

[Amenos]

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

[JauB]

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

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
 
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

[Amenos]

Merci JauB !!

sauvé :d

[JauB]

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

[NiamorH]

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 :

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
 
 
    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 :

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

Private Withevents tmrTimer1 as Timer

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


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

[Amenos]

merci , NiamorH !

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

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 !