Timer et boucle

Version imprimable

Timer et boucle

Bonjour et joyeux Noël à vous
Je vous sollicite pour résoudre un problème. Je dois faire un code qui fait déplacer une fenêtre sur l'écran de gauche à droite et qui s'arrête à une certaine distance que je spécifie.
J'ai essayé ce code, mais il plante

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 Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Left = 0
        Me.Top = 0
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
        Timer1.Interval = 50
        Do
            Me.Timer1.Enabled = True
        Loop While Me.Left < 200
 
    End Sub
 
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Me.Left = Me.Left + 5
 
    End Sub
End Class

pouvez-vous m'expliquer pourquoi?

25/12/2014, 09h39
stracoma

Pour moi,je comprends la chose comme suit:
On prend comme référence le point A (pixel) le plus haut (top) et le plus gauche (left) de la fenêtre . sa valeur est donné par rapport à mon écran, sachant, par convention , que le point de mon écran situé à l'angle sup gauche vaut (0,0). Donc si Me.left=100 alors A est à une distance de 100 pixels du bord gauche de l'écran.
est ce vrai?

Bonjour

pas besoin de loop

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Button1_MouseClick(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles Bt_Calcul.MouseClick
        Timer1.Start()
        Timer1.Interval = 100
 
    End Sub
 
    Private Sub Timer1_Tick(sender As Object, e As System.EventArgs) Handles Timer1.Tick
        Me.Left += 3
        If Me.Left > Me.Width \ 2 Then
            Timer1.Stop()
        End If
    End Sub

selon ton code le timer est exécuté à la sortie de ta boucle

plutôt

Code:

1
2
3
4
5
6
Private Sub Timer1_Tick(sender As Object, e As System.EventArgs) Handles Timer1.Tick
        Me.Left += 20
        If Me.Left > My.Computer.Screen.WorkingArea.Width  Then
            Timer1.Stop()
        End If
    End Sub

essaie de faire si ta fenêtre atteint le coté droit revenir vers la gauche et le contraire

Citation:

Envoyé par stracoma

Pour moi,je comprends la chose comme suit:
On prend comme référence le point A (pixel) le plus haut (top) et le plus gauche (left) de la fenêtre . sa valeur est donné par rapport à mon écran, sachant, par convention , que le point de mon écran situé à l'angle sup gauche vaut (0,0). Donc si Me.left=100 alors A est à une distance de 100 pixels du bord gauche de l'écran.
est ce vrai?

Oui

Citation:

Envoyé par stracoma

Bonjour et joyeux Noël à vous
Je vous sollicite pour résoudre un problème. Je dois faire un code qui fait déplacer une fenêtre sur l'écran de gauche à droite et qui s'arrête à une certaine distance que je spécifie.
J'ai essayé ce code, mais il plante
...
pouvez-vous m'expliquer pourquoi?

Plusieurs problèmes surviennent dans ton code.
1er - ta boucle "Do ... Loop ..." accapare la main et ne donne pas accès au reste du code (le timer ne court-circuite pas ta boucle et la fenêtre reste à sa place)
2ème - tu n'arrête pas le timer, si celui-ci est déclencher à chaque Tick il va indéfiniment pousser ta fenêtre.

Pou voir le premier problème, tu peux rajouter une instruction issu de vb6 (à ne pas faire dans vb.net, présent seulement à titre didactique)
Code:

1 2 3 4 5 6 7 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Timer1.Interval = 50 Do Me.Timer1.Enabled = True Application.DoEvents() ' pour voir à titre didacique, ne pas utiliser Loop While Me.Left < 200 End Sub
Maintenant ta fenêtre va se déplacer, mais elle va sortir de l'écran, Pourquoi ?
Parceque le timer va continuer de se déclencher et rajouter 5 à Me.Left indiffiniment (enfin jusqu'à un débordement qui provoquera une erreur).

Il faut donc une autre approche.
Comme l'indique shayw, il n'y a pas besoin de boucle puisque le timer va se déclencher à intervale régulier.
C'est donc lui qui va vérifier la condition (if condition) et augmenter la valeur de Me.Left (then +) ou s'arrêter (else stop).
Tu peux donc faire ton init
Code:

1 2 3 4 5 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Me.Left = 0 Me.Top = 0 Timer1.Interval = 50 End Sub
Le bouton déclenche le timer
Code:

1 2 3 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Me.Timer1.Enabled = True End Sub
Et l'évènement tick du timer va gérer le positionnement de la fenêtre (et son arrêt)
Code:

1 2 3 4 5 6 7 8 9 10 Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick ' ... exercice : écrire la ligne de code "if" 'if ... then ... else ... ' (ou les 5 lignes si décomposé pour plus de clartée) 'if ... ' ... 'else ... ' ... 'end if ... End Sub

25/12/2014, 14h49
ACIVE_CS
Bonjour, bonnes fêtes à tous,
Le but étant de simplifier en vb.net (pas de vb6), sans timer, sans boucle do/loop, uniquement un simple for/next en 4 lignes de code, testé et fonctionnel :
Code:

1 2 3 4 5 For i As Integer = PositionXDuForm To (LargeurDelEcran - LargeurDuForm) Dim Emplac As Point = New Point(i, PositionYDuForm) PositionDuForm = Emplac next
Bon... vous avez compris que la déclaration de 'Emplac' dans la boucle n'a rien à y faire, mais ça m'a fait économiser une ligne de code...:chin:

Citation:

Envoyé par shayw

plutôt

Code:

1
2
3
4
5
6
Private Sub Timer1_Tick(sender As Object, e As System.EventArgs) Handles Timer1.Tick
        Me.Left += 20
        If Me.Left > My.Computer.Screen.WorkingArea.Width  Then
            Timer1.Stop()
        End If
    End Sub

essaie de faire si ta fenêtre atteint le coté droit revenir vers la gauche et le contraire

avec ce code difficile de vérifier si la fenêtre s'arrête ou se déplace à l'infini. Mais vérification faite avec:

Code:

1
2
3
4
5
6
 Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Me.Left += 20
        If Me.Left > My.Computer.Screen.WorkingArea.Width - 50 Then
            Timer1.Stop()
        End If
    End Sub

25/12/2014, 16h17
ACIVE_CS
Re:
Pourquoi '- 50' ?
Pourquoi pas '- me.width' ?
si tu changes la largeur du form le - 50 ne sera plus adapté sinon
D'ailleurs tu fais le 'Me.Left += 20' avant de vérifier sa position, pas logique...

regarde ce que j'ai mis:
Code:

1 2 3 For i As Integer = PositionXDuForm To (LargeurDelEcran - LargeurDuForm) 'Ce qui fait: For i As Integer = Me.Location.X To Screen.PrimaryScreen.Bounds.Width - Me.Width

Ou pour respecter la condition donnée dans le premier post. (et l'utilisation du timer)

Code:

If Me.Left < 200 Then Me.Left = Me.Left + 5 Else Me.Timer1.Enabled = False

donc le code du timer
Code:

1 2 3 Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick If Me.Left < 200 Then Me.Left = Me.Left + 5 Else Me.Timer1.Enabled = False End Sub
@acive_cs
Sinon la boucle "For" donne une autre approche, [Edit]mais il n'y a pas la temporisation. (tout est trop rapide)

Citation:

Envoyé par ACIVE_CS

Bon... vous avez compris que la déclaration de 'Emplac' dans la boucle n'a rien à y faire, mais ça m'a fait économiser une ligne de code...

Il n'y a même pas besoin de cette variable (Me.Location = New Point(i, 0))[/Edit]

25/12/2014, 17h27
shayw

Salut Acive

Le timer c'est pour l'animation ;)

Bonnes fêtes à tous,

Ok les gars, si vous voulez un peu plus d'animation:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
 
Public Class Form1
    Dim Key As Boolean = False
 
    Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
        Key = True
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.KeyPreview = True
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.Text = "Appuyez sur une touche pour sortir de cette galère..."
        Dim Vitesse As Integer = 10
        Dim Pos_1 As Integer = Me.Location.X
        Dim Pos_2 As Integer = Me.Location.Y
        Dim Random As New Random(), Rnd As Integer
        Dim Emplac As Point
        Dim SensX As Boolean
        Dim SensY As Boolean
        Do
            Rnd = Random.Next(1, 9)
            If SensX = True Then
                Emplac = New Point(Me.Location.X + Rnd, Me.Location.Y)
                If Me.Location.X + Rnd >= (Screen.PrimaryScreen.Bounds.Width - Me.Width) Then SensX = False
            Else
                Emplac = New Point(Me.Location.X - Rnd, Me.Location.Y)
                If Me.Location.X - Rnd <= 0 Then SensX = True
            End If
            Me.Location = Emplac
            Application.DoEvents()
            Threading.Thread.Sleep(Vitesse)
            Rnd = Random.Next(1, 9)
            If SensY = True Then
                Emplac = New Point(Me.Location.X, Me.Location.Y + Rnd)
                If Me.Location.Y + Rnd >= (Screen.PrimaryScreen.Bounds.Height - Me.Height) Then SensY = False
            Else
                Emplac = New Point(Me.Location.X, Me.Location.Y - Rnd)
                If Me.Location.Y - Rnd <= 0 Then SensY = True
            End If
            Me.Location = Emplac
            Application.DoEvents()
            If Key = True Then Exit Do
        Loop
    End Sub
 
End Class

Oupsss... j'ai du exagérer sur la bûche de noël, mais elle fondait, il fait 30°C à l'extérieur chez moi... :D:D:D

25/12/2014, 21h03
shayw

mets Dim Vitesse As Integer = 0 ;)

je consaste que plus la vitesse est petite plus cela va vite donc pour ralentir il faut accèlérer

un bug après l'avoir stoppé et cliquez le bouton ça bouge comme une tortue

Tu connais
http://members.iinet.net.au/~pontipak/redsquare.html
25/12/2014, 21h18
ACIVE_CS

Ah ah ah...

Citation:

pour ralentir il faut accèlérer

On a vu ça avec schumacher à 30 à l'heure sur des skis... ce gars la... il ne faut pas le faire descendre en dessous de 250 :D:D:D

Citation:

un bug après l'avoir stoppé et cliquez le bouton

J'ai jamais dit qu'il fallait re-cliquer sur le bouton...:frenchy:
(j'ai même pas testé d'ailleurs)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
Public Class Form1
    Dim value As Integer
    Dim Key As Boolean = False
    Private counter As Integer
    Private lb As New Label
 
    Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
        lb.Text = "Mais non pour arrêter il faut trouver la bonne touche"
        Threading.Thread.Sleep(600)
        If e.KeyValue = value Then
            Key = True
        End If
        counter -= 1
        If counter = 1 Then
            lb.Text = "encore un essais"
        End If
        If counter = 0 Then
            Key = True
        End If
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Me.Load
        Me.KeyPreview = True
        lb.Font = New Font("arial", 12, FontStyle.Bold)
        lb.AutoSize = True
        lb.Text = "Appuyez sur une touche pour sortir de cette galère..."
        lb.Location = New Point(10, 10)
        Me.Controls.Add(lb)
        counter = 4
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
        Dim Vitesse As Integer = 10
        Dim Pos_1 As Integer = Me.Location.X
        Dim Pos_2 As Integer = Me.Location.Y
        Dim Random As New Random(), Rnd As Integer
        Dim Emplac As Point
        Dim SensX As Boolean
        Dim SensY As Boolean
        value = Random.Next(Convert.ToInt32("a"c), Convert.ToInt32("z"c))
        Do
            Rnd = Random.Next(1, 9)
 
 
            If SensX = True Then
                Emplac = New Point(Me.Location.X + Rnd, Me.Location.Y)
                If Me.Location.X + Rnd >= (Screen.PrimaryScreen.Bounds.Width - Me.Width) Then SensX = False
            Else
                Emplac = New Point(Me.Location.X - Rnd, Me.Location.Y)
                If Me.Location.X - Rnd <= 0 Then SensX = True
            End If
            Me.Location = Emplac
            Application.DoEvents()
            Threading.Thread.Sleep(Vitesse)
            Rnd = Random.Next(1, 9)
            If SensY = True Then
                Emplac = New Point(Me.Location.X, Me.Location.Y + Rnd)
                If Me.Location.Y + Rnd >= (Screen.PrimaryScreen.Bounds.Height - Me.Height) Then SensY = False
            Else
                Emplac = New Point(Me.Location.X, Me.Location.Y - Rnd)
                If Me.Location.Y - Rnd <= 0 Then SensY = True
            End If
            Me.Location = Emplac
            Application.DoEvents()
            If Key = True Then Exit Do
        Loop
        Key = False
 counter = 4
        lb.Text = "Appuyez sur une touche pour sortir de cette galère..."
    End Sub
 
 
 
End Class

(Après je dois revenir au sujet de la boucle)
Maintenant j'ai ce code

Code:

1
2
3
4
5
6
 Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If Me.Left = My.Computer.Screen.WorkingArea.Width - Me.Width Then
            Me.Timer1.Stop()
        End If
        Me.Left = Me.Left + 5
    End Sub

je me suis amusé à utiliser Me.right:

Code:

1
2
3
4
5
6
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If Me.Right = My.Computer.Screen.WorkingArea.Width Then
            Me.Timer1.Enabled = False
        End If
        Me.Left = Me.Left + 5
    End Sub

je voudrai savoir si My.Computer.Screen.WorkingArea.Width et Height représentent la résolution de l'écran

25/12/2014, 22h42
stracoma

Pourquoi le code accepte "Me.Left = Me.Left" + 5 et n'accèpte pas "Me.Right = Me.Right + 5" (donne erreur)?
Est ce que parce que Me.left est une constante pour Me, et que Me.Right peut changer si la fenêtre est redimensionnable?

Citation:

Envoyé par ACIVE_CS

Bonnes fêtes à tous,

Ok les gars, si vous voulez un peu plus d'animation:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
 
Public Class Form1
    Dim Key As Boolean = False
 
    Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
        Key = True
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.KeyPreview = True
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.Text = "Appuyez sur une touche pour sortir de cette galère..."
        Dim Vitesse As Integer = 10
        Dim Pos_1 As Integer = Me.Location.X
        Dim Pos_2 As Integer = Me.Location.Y
        Dim Random As New Random(), Rnd As Integer
        Dim Emplac As Point
        Dim SensX As Boolean
        Dim SensY As Boolean
        Do
            Rnd = Random.Next(1, 9)
            If SensX = True Then
                Emplac = New Point(Me.Location.X + Rnd, Me.Location.Y)
                If Me.Location.X + Rnd >= (Screen.PrimaryScreen.Bounds.Width - Me.Width) Then SensX = False
            Else
                Emplac = New Point(Me.Location.X - Rnd, Me.Location.Y)
                If Me.Location.X - Rnd <= 0 Then SensX = True
            End If
            Me.Location = Emplac
            Application.DoEvents()
            Threading.Thread.Sleep(Vitesse)
            Rnd = Random.Next(1, 9)
            If SensY = True Then
                Emplac = New Point(Me.Location.X, Me.Location.Y + Rnd)
                If Me.Location.Y + Rnd >= (Screen.PrimaryScreen.Bounds.Height - Me.Height) Then SensY = False
            Else
                Emplac = New Point(Me.Location.X, Me.Location.Y - Rnd)
                If Me.Location.Y - Rnd <= 0 Then SensY = True
            End If
            Me.Location = Emplac
            Application.DoEvents()
            If Key = True Then Exit Do
        Loop
    End Sub
 
End Class

Oupsss... j'ai du exagérer sur la bûche de noël, mais elle fondait, il fait 30°C à l'extérieur chez moi... :D:D:D

Il existe toujours plusieurs méthodes ;), mais ta boucle ressemble à une usine à gaz (plus de 30 lignes) alors qu'avec le timer 4 lignes suffises

Code:

1
2
3
4
5
6
    Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
        If Droite Then If Me.Left < My.Computer.Screen.WorkingArea.Width - Me.Width Then Me.Left = Me.Left + deplacement Else Droite = Not Droite
        If Not Droite Then If Me.Left > 0 Then Me.Left = Me.Left - deplacement Else Droite = Not Droite
        If Descend Then If Me.Top < My.Computer.Screen.WorkingArea.Height - Me.Height Then Me.Top = Me.Top + deplacement Else Descend = Not Descend
        If Not Descend Then If Me.Top > 0 Then Me.Top = Me.Top - deplacement Else Descend = Not Descend
    End Sub

Le code complet

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Public Class Form1
    Const deplacement As Integer = 10 ' décalage dans le déplacement
    Dim Descend As Boolean = True   ' mouvement vertical
    Dim Droite As Boolean = True    ' mouvement horizontal
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Left = 0
        Me.Top = 0
        Timer1.Interval = 50
    End Sub
 
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Me.Timer1.Enabled = Not Me.Timer1.Enabled
    End Sub
 
    Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
        If Droite Then If Me.Left < My.Computer.Screen.WorkingArea.Width - Me.Width Then Me.Left = Me.Left + deplacement Else Droite = Not Droite
        If Not Droite Then If Me.Left > 0 Then Me.Left = Me.Left - deplacement Else Droite = Not Droite
        If Descend Then If Me.Top < My.Computer.Screen.WorkingArea.Height - Me.Height Then Me.Top = Me.Top + deplacement Else Descend = Not Descend
        If Not Descend Then If Me.Top > 0 Then Me.Top = Me.Top - deplacement Else Descend = Not Descend
    End Sub
 
End Class

Cliquez sur le bouton pour démarrer et arrêter (if you can :)).

[Edit] [mode hors sujet] J'espère que la bûche était bonne. (30° 8-) faut que je déménage) [/Edit]

25/12/2014, 22h45
shayw

Citation:

je voudrai savoir si My.Computer.Screen.WorkingArea.Width et Height représentent la résolution de l'écran

je ne pense pas plutot Screen.PrimaryScreen.Bounds.Width et Screen.PrimaryScreen.Bounds.height
25/12/2014, 22h50
ACIVE_CS

stracoma:
Evite les

Code:

Me.Left = My.Computer

Utilise plutôt:

Code:

Me.Left >= My.Computer

Par expérience tu éviteras pas mal de doutes...

Sinon tu as compris le principe...
Sache que

Code:

Me.Left = Me.Left + 5

Peut aussi se traduire en vb.net en

Code:

Me.Left += 5

Sinon il est bien au bon endroit dans le timer sauf que t'aurais du faire un 'exit sub' après le stop

Shayw: pas mal la devinette entre a et z, j'ai du mettre 5 minutes avant de comprendre ce qu tu voulais faire :D
25/12/2014, 22h50
shayw

Citation:

Envoyé par stracoma

Pourquoi le code accepte "Me.Left = Me.Left" + 5 et n'accèpte pas "Me.Right = Me.Right + 5" (donne erreur)?
Est ce que parce que Me.left est une constante pour Me, et que Me.Right peut changer si la fenêtre est redimensionnable?

parceque Property 'Right' is 'ReadOnly'

Citation:

et n'accèpte pas "Me.Right = Me.Right + 5

Citation:

Il existe toujours plusieurs méthodes , mais ta boucle ressemble à une usine à gaz (plus de 30 lignes) alors qu'avec le timer 4 lignes suffises

C'est pour ça qu'au début, j'ai écrit ce bout "de rien du tout" sans timer, sans do/loop (pour ce que stracoma voulait faire) ...
Code:

1 2 3 4 5 For i As Integer = Me.Location.X To (Screen.PrimaryScreen.Bounds.Width - Me.Width) Dim Emplac As Point = New Point(i, Me.Location.Y) : Me.Location = Emplac Threading.Thread.Sleep(1) Next

Je retourne à ma boucle.
rv26t

Citation:

Plusieurs problèmes surviennent dans ton code.
1er - ta boucle "Do ... Loop ..." accapare la main et ne donne pas accès au reste du code (le timer ne court-circuite pas ta boucle et la fenêtre reste à sa place)
2ème - tu n'arrête pas le timer, si celui-ci est déclencher à chaque Tick il va indéfiniment pousser ta fenêtre.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Public Class Form1
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Left = 0
        Me.Top = 0
    End Sub
 
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Me.Left += 5 ' cette instruction est exéutée tant que Me.Timer1.Enabled = True
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Timer1.Interval = 50
        Do ' exécute d'abord
            Me.Timer1.Enabled = True  'donc  Me.Left = Me.Left + 5 (vaut 5)
            'puis je vérifie si 5<200, c'est True, donc je recommence la boucle
            'Quand Me.left arrive à 200, je sors de la boucle, Me.Timer1.Enabled devient false, l'incrémentation de s'arrête
        Loop While Me.Left < 200
 
    End Sub
 
End Class

Je ne trouve pas encore la chose qui m'échappe

Je ne suis pas sur que nous parlons tous le même langage.... :mrgreen:
Essaye ça:

Code:

1
2
3
4
5
6
7
8
9
10
 
Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim Emplac As Point
        For i As Integer = Me.Location.X To (Screen.PrimaryScreen.Bounds.Width - Me.Width)
            emplac = New Point(i, Me.Location.Y) : Me.Location = Emplac
            Threading.Thread.Sleep(1)
        Next
    End Sub
End Class

Maintenant si tu veux absolument un timer ça peut se faire également.

25/12/2014, 23h44
stracoma

J'ai déjà un code qui marche. Et cette fenêtre qui se déplace est juste un exercice pour moi pour comprendre les boucles et le fonctionnement du timer. Je ne peux pas adopter un autre code, même meilleur, sans que je comprenne mon erreur
26/12/2014, 00h19
rv26t

La boucle "do ... loop ..." exécute ce qu'elle contient et ne laisse pas la main à l'appli. (c'est pour cela que dans mon post5 j'ai rajouté une instruction à titre didactique qui donne la main à l'appli; mais qu'il ne faut pas utiliser parceque l'on peut programmer plus proprement avec un timer, et c'est du vb6 à proscrire)

Quand la boucle "do ... loop ..." est lancée, seul

Code:

Me.Timer1.Enabled = True

s'éxécute.
En fait il peut y avoir des comportements différents (notemment en debug), mais cela peut/va poser des problèmes avec l'exécutable.

Ce qui se passe
Do' exécute d'abord
Me.Timer1.Enabled = True ~~'donc Me.Left = Me.Left + 5 (vaut 5)~~ à chaque tour de boucle la propriété est mise à vrai, pas d'incrémentation
'puis je vérifie si ( 5 ) 0<200, c'est True, donc je recommence la boucle
~~'Quand Me.left arrive à 200, je sors de la boucle, Me.Timer1.Enabled devient false, l'incrémentation de s'arrête~~ comme il n'y a pas eu d'incrémentation, la boucle continu tout le temps (et rien ne stipule l'arrêt du timer ni dans la boucle, ni hors de la boucle)
Loop While Me.Left < 200 'boucle indéfiniment
La boucle s'exécute sans fin.
Note : dans ton code rien ne stipule l'arrêt du timer, ni dans la boucle, ni hors de la boucle.

Ou tu utilises le timer (qui va laisser du temps au système), ou tu utilises une boucle qui est bloquante pour l'appli pendant son exécution et tu fais les additions (Me.Left = Me.Left + 5 avec une temporisation) à l'intèrieur de celle-ci.

re:
Je suis tout à fait d'accord avec rv26 et vu que fais des efforts pour comprendre je te mets deux façons différentes avec un timer.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
 
Public Class Form1
 
 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Timer1.Enabled = False
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Timer1.Interval = 1
        Timer1.Enabled = True
    End Sub
 
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If Me.Left < ((Screen.PrimaryScreen.Bounds.Width - Me.Width) - 10) Then
            Me.Left += 20
        Else
            Timer1.Enabled = False
        End If
    End Sub
End Class
 
'Ou encore :
 
Public Class Form1
 
 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Timer1.Enabled = False
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Timer1.Interval = 1
        Timer1.Enabled = True
    End Sub
 
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If Me.Left < (Screen.PrimaryScreen.Bounds.Width - Me.Width) Then
            Dim P As Point = New Point(Me.Location.X + 20, Me.Location.Y)
            Me.Location = P
        Else
            Timer1.Enabled = False
        End If
    End Sub
End Class

ACIVE_CS , merci pour votre aide, mais ce code je l'ai déjà fait sans problème. Mais j'explore toutes les pistes pour apprendre.
rv26t a bien compris mon soucis,ce qui m'a permis de trouver ce qui m’échappait. Donc:
dans la boucle
Code:

1 2 3 Do Me.Timer1.Enabled = True Loop While Me.Left < 200
l'instruction ne va pas au-delà de Me.Timer1.Enabled = True, et ne cède pas la main à:
Code:

1 2 3 Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick Me.Left += 5 ' cette instruction est exéutée tant que Me.Timer1.Enabled = True End Sub
du coup, l'incrémentation ne s'exécute pas de tout, Me.Left indéfiniment =valeur initiale.

Merci à vous tous

Bonjour
Bien comprendre quand le timer est exécuté

ex

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
private Sub sub1 ()
   timer1.start 
'timer1tick est exécuté seulement après sub3,et même si le temps d'éxecution de la boucle  et sub3 est supérieur à timer1.interval 
   For i = 0 to 1000000
       sub2(i) 
    Next
   sub3
 End sub
 
private Sub sub3() 
 blabla
End sub
 Private Sub sub2(i As Integer)
    Dim TOTO As Boolean
     Do
          blabla()
      Loop Until TOTO
    End Sub
 
 Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick44
    blabla
End sub

26/12/2014, 12h01
ACIVE_CS

Bonjour stracoma,
Je crois que rv26 a déjà tenté de t'expliquer plus haut,
Le "Timer1.Enabled = true" tu dois le faire QU'UNE SEULE FOIS, jamais dans une boucle quelconque
Ton do/loop ne sert à strictement rien, sauf à te bloquer tout

Je pense que tu n'as pas bien compris le fonctionnement du timer
Par défaut il est désactivé quand tu le glisses dans ta form (enabled = false donc)

Quand tu décideras de le faire tourner tu tapes une fois "Timer1.Enabled = true" et la il va exécuter le code que tu as mis dans "Timer1_Tick" toutes les x millisecondes (x étant le chiffre préalablement réglé dans le "Timer1.interval")
La il va tourner toujours jusqu'à que tu lui dises "timer1.enabled = false" par exemple