initiation à la poo en VB.net

Version imprimable

1 pièce(s) jointe(s)

Bonsoir.
Je vous sollicite ce soir car j'ai du mal à utiliser cette maudite poo.
Pièce jointe 179265

En cliquant sur le bouton, le panel rouge doit se déplacer vers la droite dune distance = sa largeur.
avec la programmation procédurale c'est très facile. Mais comme je veux apprendre la poo, j'ai fais ce code, mais mon panel ne bouge pas. je ne sais pas comment s'y prendre

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Public Class Coureur
    Public position As Point
    Public taille As Size
    Public Sub New(ByVal p As Point, ByVal s As Size)
        Me.position = p
        Me.taille = s
    End Sub
    Public Sub avance()
        Me.position.X = Me.position.X + Me.taille.Width
    End Sub
 
End Class

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Public Class Form1
    Dim coureur1 As Coureur
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        coureur1 = New Coureur(Me.Panel1.Location, Me.Panel1.Size)
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        coureur1 = New Coureur(Me.Panel1.Location, Me.Panel1.Size)
        coureur1.position.X = Me.Panel1.Location.X
        coureur1.taille.Width = Me.Panel1.Width
        coureur1.avance()
    End Sub
End Class

Merci à vous

Bonjour,

Le panel n'est qu'une représentation graphique du coureur.
Après le new qui permet de déterminer la position du coureur vis à vis du panel, le panel ne doit plus servir pour déterminer des positions.
Il faut appeler la méthode qui permet au coureur d'avancer (de calculer), puis de positionner le panel avec la nouvelle position du coureur.
Code:

1 2 3 4 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click coureur1.avance() Me.Panel1.Location = coureur1.position End Sub
C'est la classe qui fait les calculs et traitements. L'interface graphique (la form) l'affichage des résultats.

[Edit]
D'ailleur pour être bien POO la classe peut s'écrire ainsi
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Public Class Coureur Private position As Point Private taille As Size Public Sub New(ByVal p As Point, ByVal s As Size) Me.position = p Me.taille = s End Sub Public Function avance() As Point Me.position.X = Me.position.X + Me.taille.Width Return position End Function End Class
Et l'appel
Code:

1 2 3 4 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Me.Panel1.Location = coureur1.avance() End Sub End Class
ainsi les données ne sont pas accessible de l'extérieur. (il n'y a ici aucune raison pour que les données soient modifiées depuis l'extérieur de la classe)

Merci pour votre réponse.

Citation:

Le panel n'est qu'une représentation graphique du coureur.

cette phrase résume tout, c'est ce qui m'échappait avant.
Et pour être tout à fait vrai:

Citation:

Après le new qui permet de déterminer la position du coureur vis à vis du panel

je préfère que tout vienne de l'objet:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Public Class Form1 Dim Salim As Coureuer Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Me.Panel1.BackColor = Color.Red Salim = New Coureuer(New Point(0, 20), New Size(40, 40)) Me.Panel1.Size = Salim.taille Me.Panel1.Location = Salim.position End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Me.Panel1.Location = Salim.avance() End Sub End Class
à part la couleur :D

31/05/2015, 15h08
rv26t

De rien,

Citation:

Envoyé par stracoma

je préfère que tout vienne de l'objet:

Vous avez très bien compris :ccool: