Tableau shared dans un contructeur

Version imprimable

Bonsoir. j'ai besoin de votre aide pour résoudre un problème.
J'ai une classe Enfant avec un tableau shared. Je veux que chaque objet créé soit ajouté automatiquement au tableau. j'ai essayé ce constructeur mais sans succès:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Public Class Enfant Public nom As String Public age As Integer Public Shared tablo(20) As Enfant Public Shared x As Integer = 0 Public Sub New(ByVal n As String, ByVal a As Integer) Me.nom = n Me.age = a Enfant.tablo(x) = New Enfant(nom, age) x += 1 End Sub End Class
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 Module Module1 Sub Main() Dim enf1 As New Enfant("Kamal", 12) Dim enf2 As New Enfant("Nadia", 14) Dim enf3 As New Enfant("Sara", 10) Dim enf4 As New Enfant("Lamiae", 13) Dim enf5 As New Enfant("Pascal", 12) Dim enf6 As New Enfant("Omar", 14) Console.WriteLine(Enfant.tablo(1).nom) Console.ReadKey() End Sub End Module
Il me donne une erreur au niveau du constructeur: Une exception non gérée du type 'System.StackOverflowException' s'est produite dans ConsoleApplication1.exe
Merci de votre aide

27/06/2016, 14h50
Kyroon

Bonjour,

Je ne suis pas trop VB, mais ça ne change pas grand chose.

Le StackOverflow est logique puisqu’à chaque fois que tu créés un nouvel objet Enfant, dans son constructeur, tu en créés un autre nouvel objet Enfant, qui lui même en créé encore un dans son constructeur, etc.

J'ai un peu de mal à voir ce que tu cherche à faire (comme dans ton autre poste d'ailleurs), mais si j’interprète, tu veux avoir une liste d'objet Enfant.
En général, on fait une classe Enfant, qui la classe métier qui contient les propriétés de base (nom, prénom, age, ...) et une autre classe qui va te permettre de regrouper ces objets métiers (une liste).
Par exemple : List<Enfant> enfants = new List<Enfant>();
Ou alors en créant ta propre classe class Enfants : List<Enfant> et en l'utilisant de cette manière Enfants enfants = new Enfants();

Essaye aussi d'oublier un peu les tableaux et de travailler avec les listes et dictionnaire, tu te simplifiera la vie.

Bonne continuation.

Bonsoir
Merci Kyroon de votre réponse; maintenant je comprends mon erreur dans le constructeur (boucle infinie).
Parc contre je ne trouve pas encore de solution à mon problème:
Je veux que chaque objet créé soit ajouté automatiquement au tableau ou liste contenant les objets, par une instruction au niveau du constructeur de la classe Enfant.
je ne veux pas cette solution:

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
 
Module Module1
 
    Sub Main()
        Dim enf1 As New Enfant("Kamal", 12)
        Dim enf2 As New Enfant("Nadia", 14)
        Dim enf3 As New Enfant("Sara", 10)
        Dim enf4 As New Enfant("Lamiae", 13)
        Dim enf5 As New Enfant("Pascal", 12)
        Dim enf6 As New Enfant("Omar", 14)
 
        Dim listEnf As New List(Of Enfant)
        listEnf.Add(enf1)
        listEnf.Add(enf2)
        listEnf.Add(enf3)
        listEnf.Add(enf4)
        listEnf.Add(enf5)
        listEnf.Add(enf6)
 
 
        For Each elem In listEnf
            Console.WriteLine(elem.nom & " ==== " & elem.age)
        Next
        Console.ReadKey()
 
 
    End Sub
 
End Module

merci

28/06/2016, 09h47
Kyroon
Bonjour,

Tu ne peux pas, enfin pas proprement et je ne te le conseil pas.

Si tu veux que ton enfant soit ajouté directement à la liste, la meilleurs solution reste : listEnf.Add(New Enfant("Lamiae", 13));
Ce qui revient à faire exactement la même chose que ce que tu as fait, mais sans passé par une variable intermédiaire.

Une autre solution serait de travailler avec la classe Enfants (note le s) à laquelle tu pourrais ajouter une méthode Add(), qui prendrait en paramètre les propriétés d'un objet Enfant, cette méthode créerait l'objet Enfant et l'ajouterait à la liste.

Bon je te donne quand même la solution que je ne te conseil pas car un objet métier n'a pas besoin de savoir qui le manipule, mais si tu veux vraiment faire comme ça...
Ça serait de faire un constructeur qui prend en paramètre une liste, il te restera à faire dans le constructeur, le Add dans la liste.
Code:

1 2 3 4 public Enfant(List<Enfant> list) { list.Add(this); }
Bonne continuation.

Bonsoir.
merci beaucoup Kyroon, vous m'avez aidé à résoudre mon problème (mais je remarque que vous utilisez la syntaxe java et non VB, mais le principe est le même).
Je viens même de l'améliorer un peu, en utilisant une liste pour les filles et une autre pour les garçons.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Public Class Enfant
    Public nom As String
    Public age As Integer
    Public Shared f As New List(Of Enfant) 'Groupe des filles
    Public Shared g As New List(Of Enfant) 'Groupe des garçons
 
    Public Sub New(ByVal n As String, ByVal a As Integer, ByVal lista As List(Of Enfant))
        nom = n
        age = a
        Enfants.ajouter(Me, lista)
 
    End Sub
 
End Class

Code:

1
2
3
4
5
6
7
 
Public Class Enfants
    Public Shared Sub ajouter(ByVal enf As Enfant, ByVal lista As List(Of Enfant))
        lista.Add(enf)
 
    End Sub
End Class

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
 
Module Module1
 
    Sub Main()
 
        Dim enf1 As New Enfant("Kamal", 12, Enfant.g)
        Dim enf2 As New Enfant("Nadia", 14, Enfant.f)
        Dim enf3 As New Enfant("Sara", 10, Enfant.f)
        Dim enf4 As New Enfant("Lamiae", 13, Enfant.f)
        Dim enf5 As New Enfant("Pascal", 12, Enfant.g)
        Dim enf6 As New Enfant("Omar", 14, Enfant.g)
 
        Console.WriteLine("Le groupe des garçons:")
        For Each elem In Enfant.g
            Console.WriteLine(elem.nom & "   " & elem.age)
        Next
        Console.WriteLine()
        Console.WriteLine("Le groupe des filles:")
 
        For Each elem In Enfant.f
            Console.WriteLine(elem.nom & "   " & elem.age)
        Next
 
        Console.ReadKey()
 
 
    End Sub
 
End Module

ça marche.
une autre fois merci