timer avec variable globale et locale

Version imprimable

Bonjour.
Je crois que je n'ai pas bien assimilé la notion de variable globale:
http://zupimages.net/up/15/21/y8ne.jpg
je cherche a faire bouger le panel: ce code marche:

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
    Dim x As Integer = 0
    'Dim p As New Point(x, x)
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.Timer1.Enabled = True
    End Sub
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Me.Timer1.Interval = 50
        x += 5
        Dim p As New Point(x, x)
        Me.Panel1.Location = p
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim p As New Point(x, x)
        Me.Panel1.Location = p
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Me.Timer1.Enabled = False
    End Sub
End Class

mais ce code ne marche pas:

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
    Dim x As Integer = 0
    Dim p As New Point(x, x)
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.Timer1.Enabled = True
    End Sub
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Me.Timer1.Interval = 50
        x += 5
        'Dim p As New Point(x, x)
        Me.Panel1.Location = p
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'Dim p As New Point(x, x)
        Me.Panel1.Location = p
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Me.Timer1.Enabled = False
    End Sub
End Class

Merci

Bojour,

Dans

Code:

1
2
3
4
5
6
7
8
    Dim p As New Point(x, x)
    ' ...
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Me.Timer1.Interval = 50
        x += 5 ' on augmente x, mais il ne sera jamais affecté à un nouveau point
        'Dim p As New Point(x, x)
        Me.Panel1.Location = p ' p vaut la valeur de l'initialisation (0,0)
    End Sub

p est créé une fois pour toutes avec une valeur et n'est plus jamais modifié.

Pour fonctionner, il faut à chaque fois recréer un nouveau point que l'on attribut à p

Code:

1
2
3
4
5
6
7
8
9
10
11
    Dim p As Point
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        x += 5
        p = New Point(x, x) ' ici un nouveau point est créé avec la valeur de x qui a augmenté
        Me.Panel1.Location = p
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Timer1.Interval = 50
        p = New Point(x, x)
        Me.Panel1.Location = p
    End Sub

Autant initialiser l'intervale du timer dans le load, ou éventuellement dans le clic du bouton si on veut le changer.

Pour info, tu peux affecter directement les valeurs de point sans passer par une variable intermédiaire.

Code:

1
2
3
4
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        x += 5
        Me.Panel1.Location = New Point(x, x)
    End Sub

Ainsi il y a moins de risque d'erreur.

Merci pour votre explication. et si j'ai bien compris, une variable de type basique (integer par exemple) déclarée globale peut changer après, mais une variable de type objet non et ne peut changer que via "objet.attribut" (dans notre cas p.X et p.Y)
Si ça peut aider certains novices comme moi, voilà une petite démonstration:
http://zupimages.net/up/15/21/k9qs.jpg
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Public Class Form1 Dim x As Integer = 10 Dim p1 As New Point(x, x) Dim p2 As New Point(x, x) Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click x += 15 p2.X = x p2.Y = x Me.Label1.Text = p1.X.ToString Me.Label2.Text = p1.Y.ToString Me.Label3.Text = p2.X.ToString Me.Label4.Text = p2.Y.ToString Me.Label5.Text = x.ToString End Sub End Class
Merci

24/05/2015, 19h56
rv26t

Citation:

Envoyé par stracoma

Merci pour votre explication. et si j'ai bien compris, une variable de type basique (integer par exemple) déclarée globale peut changer après, mais une variable de type objet non et ne peut changer que via "objet.attribut" (dans notre cas p.X et p.Y)

Une variable de type objet peut changer p = New Point(x, x) ' ici un nouveau point est créé p contient un nouvel objet ou l'on met à jour les propriétés avec les paramètres du constructeur.
24/05/2015, 20h23
stracoma

Ok.
Une idée de plus.
Merci