Bonjour,

J'essai de me dépatouiller d'un soucis sans succès.

j'ai le cas suivant, une classe mère contient une liste d'éléments issues d'une autre classe contenant des enfants.

Classes "Avt" (mère) possèdent 2 enfants "AvtC" et "AvtA"

Class "ElementBase" (mère) possèdent 2 enfants "ElementC" et "ElementA"

En fait, dans "la réalité" lea classe AvtC contient une liste d'éléments "ElementC" et la classe AvtA contient une liste d'éléments "ElementA"

Mais pour éviter plein de select case, if etc, lors de l'exploitation, voulant éviter de faire 2 fonctions traitant les données dans un cas les "A" et l'autre les "C", une cinquantaine de ligne quasi identique, avec des différences sur des fonctions présente dans l'un pas dans l'autre.

j'ai donc remonté la liste dans la classe mère "Avt" qui contient donc une list(of Element Base), de ce fait j'ai des fonctions communes ( Ex : NbElement, comptant directement la liste)

Mon soucis est lors que je veux accéder justement à cette liste, ou travailler dessus. je ne peux pas caster un list(of Classe Mère en classe enfant)

j'ai essayé de passer par les IEnumerable, avec des ToList() etc.. bref c'est l'usine à gaz, je pense mal m'y prendre.

J'espère avoir bien expliqué, j'ai encore la tête tout encombré.

Merci de votre aide.

Ci dessous une représentation épuré des classes

Public Class ElementBase
    public Name as string
    

    Public Sub new(name as string)
        me.name=name
    end sub

end Class

Public Class ElementC
    inherits ElementBase

    Private ExtensionName as string

    public sub new(Name as string, specificName as string)
        mybase.new(name)
        me.ExtensionName = specificName
    end sub

end Class
Public Class ElementA
    inherits ElementBase


    public sub new(Name as string)
        mybase.new(name)
    end sub

end Class


Public Class AvtBase

    private LstElement as List(Of ElementBase)

    Public Function NbElement as integer

        return LstElement.count

    end function

end Class

Public Class AvtC
  inherits AvtBase    

    Public sub SpecificMethod_C As integer
    end sub
end class

Public Class AvtA
 inherits AvtBase


    Public sub SpecificMethod_A As String
    end sub

end class

Bonjour,

Je pense que votre conception est un peu foireuse. En fait, je ne vois pas l'intérêt de placer la liste dans AvtBase.

Placez une liste de ElementA dans AvtA et une liste de ElementC dans AvtC.

Je pense que vous pouvez remplacer la classe AvtBase par une interface, IAvt par exemple. Par cette interface vous exposerez les méthodes nécessaires au traitement "commun" qui sera fait de ces deux classes.

Ensuite, pas de casts à faire. 
Imaginons deux liste d'objets, une liste d'objets A, et une liste d'objets B. A et B implémentent la même interface, IExempleInterface.

Vous pouvez tout à fait faire quelques choses du genre : 

Interface IExempleInterface
    Function doSmtg() As String
End Interface

Public Class A
    Implements IExempleInterface

    Public Function doSmtg() As String
        Return "un traitement quelconque"
    End Function
End Class

Public Class B
    Implements IExempleInterface

    Public Function doSmtg() As String
        Return "un autre traitement quelconque"
    End Function
End Class

Public Class ExempleExec
    Public Shared Sub Exemple(ByVal lesA As List(Of A), ByVal lesB As List(Of B))
        Dim lst As List(Of IExempleInterface) = New List(Of IExempleInterface)()
        lst.AddRange(lesA)
        lst.AddRange(lesB)

        For Each ex As IExempleInterface In lst
            ex.doSmtg()
        Next
    End Sub
End Class

Si ce n'est pas clair, je vous propose de regarder des cours de programmation orienté objet sur youtube. Il y en a pleins de biens

Vous pouvez aussi passer par des classes génériques, mais je ne suis pas sûr que cela soit ce que vous vouliez faire.

-
Edité par earp91 6 juillet 2021 à 17:08:21

Bonjour,

Je pense aussi que je m'y prends mal, justement à la base j'étais parti dans le placement des différents éléments dans chaque classe de type de Avt

Sauf que je devais d'un côté retourner d'un côté la liste typé "ElementC" et de l'autre "ElementA"

J'avais tenté de faire une interface (pas l'habitude) mais pareil, je dois typer mon retour. 

nota : je ne peux pas avoir de mélange.

j'essai d'expliquer un peu plus concrètement :

Avt = Avancement 

El = Element, dans chaque élément, j'ai des stades d'avancements(Nom, pourcentage du Stade(ce qu'il représente sur l'élément), Avancement du stade sous forme décimal), l'ensemble des stades d'un élément = 100%

exemple : Element1 est divisé en 3 stades : début(15%), milieu(75%), fin(10%), c'est variable d'un élément à l'autre.

dans un Avt, j'ai X élements.

Dans les AvancementC j'ai des élémentC, dans les AvancementA, j'ai des élementA.

Les elementC et elementA ont des choses en communs, comme les stades, un nom. mais l'élémentC à un élément supplémentaire : étage.

Exemple AvancementC : 

BAT1 - RDC : début(15%), milieu(75%), fin(10%)

BAT1 - Etage1 : début(10%), milieu(85%), fin(5%)

BAT2 - RDC : début(15%), milieu(75%), fin(10%)

BAT2 - Etage1 : début(10%), milieu(85%), fin(5%)

BAT2 - Etage3 : Tout(95%), finition(5%)

Exemple AvancementA :

Cloture : Installation(90%), Controle(10%)

Chaussée : Installation(10%), coulage(75%), bordure(15%)

J'ai donc lors de l'impression d'une partie d'un document, l'envoi d'un "AvancementC" ou "AvancementA" pour réaliser un tableau, dans tout les cas je compte mes éléments, je les parcours.

J'ai limité ici un peu les infos, car j'ai aussi sur les éléments, des champs supplémentaires et différents.

J'espère avoir plus clairement expliqué les choses.

earp91 a écrit:

Bonjour,

Je pense que votre conception est un peu foireuse. En fait, je ne vois pas l'intérêt de placer la liste dans AvtBase.

Placez une liste de ElementA dans AvtA et une liste de ElementC dans AvtC.

Je pense que vous pouvez remplacer la classe AvtBase par une interface, IAvt par exemple. Par cette interface vous exposerez les méthodes nécessaires au traitement "commun" qui sera fait de ces deux classes.

Ensuite, pas de casts à faire. 
Imaginons deux liste d'objets, une liste d'objets A, et une liste d'objets B. A et B implémentent la même interface, IExempleInterface.

Vous pouvez tout à fait faire quelques choses du genre : 

Interface IExempleInterface
    Function doSmtg() As String
End Interface

Public Class A
    Implements IExempleInterface

    Public Function doSmtg() As String
        Return "un traitement quelconque"
    End Function
End Class

Public Class B
    Implements IExempleInterface

    Public Function doSmtg() As String
        Return "un autre traitement quelconque"
    End Function
End Class

Public Class ExempleExec
    Public Shared Sub Exemple(ByVal lesA As List(Of A), ByVal lesB As List(Of B))
        Dim lst As List(Of IExempleInterface) = New List(Of IExempleInterface)()
        lst.AddRange(lesA)
        lst.AddRange(lesB)

        For Each ex As IExempleInterface In lst
            ex.doSmtg()
        Next
    End Sub
End Class

Si ce n'est pas clair, je vous propose de regarder des cours de programmation orienté objet sur youtube. Il y en a pleins de biens

Vous pouvez aussi passer par des classes génériques, mais je ne suis pas sûr que cela soit ce que vous vouliez faire.

-
Edité par earp91 il y a environ 1 heure

Imports System
Imports System.Collections.Generic
Imports System.Linq
Imports System.Text
Imports System.Threading.Tasks

Namespace Subset
    Public Class StadeAvancement
        Private designation As String
        Private pourcentageAvancement As Integer

        Public ReadOnly Property Description As String
            Get
                Return String.Format("{0}({1}%)", designation, pourcentageAvancement)
            End Get
        End Property
    End Class

    Interface IAvanceeChantier
        Sub PrintDescription()
    End Interface

    Public Class AvanceeChantierClassique
        Implements IAvanceeChantier

        Public designationChantier As String
        Public stadesAvancements As List(Of StadeAvancement)

        Public Sub PrintDescription()
            Console.WriteLine(String.Format("{0} : {1}", designationChantier, String.Join(",", stadesAvancements.[Select](Function(p) p.Description))))
        End Sub
    End Class

    Public Class AvanceeChantierAEtages
        Implements IAvanceeChantier

        Private chantier As AvanceeChantierClassique
        Private designationEtage As String

        Public Sub PrintDescription()
            Console.WriteLine(String.Format("{0} - {1} : {2}", chantier.designationChantier, designationEtage, String.Join(",", chantier.stadesAvancements.[Select](Function(p) p.Description))))
        End Sub
    End Class

    Public Class Exemple
        Private Shared Sub PrintTousLesChantiers(ByVal desChantiersClassiques As AvanceeChantierClassique, ByVal desChantiersAEtages As AvanceeChantierAEtages)
            Dim lesChantiers As List(Of IAvanceeChantier) = New List(Of IAvanceeChantier)()
            lesChantiers.Add(desChantiersClassiques)
            lesChantiers.Add(desChantiersAEtages)

            For Each chantier As IAvanceeChantier In lesChantiers
                chantier.PrintDescription()
            Next
        End Sub
    End Class
End Namespace

Imports System
Imports System.Collections.Generic
Imports System.Linq
Imports System.Text
Imports System.Threading.Tasks

Namespace Exemple
    Public Class StadeAvancement
        Private designation As String
        Private pourcentageAvancement As Integer

        Public ReadOnly Property Description As String
            Get
                Return String.Format("{0}({1}%)", designation, pourcentageAvancement)
            End Get
        End Property
    End Class

    Public Class AvanceeChantierClassique
        Protected designationChantier As String
        Protected stadesAvancements As List(Of StadeAvancement)

        Public Overridable Sub PrintDescription()
            Console.WriteLine(String.Format("{0} : {1}", designationChantier, String.Join(",", stadesAvancements.[Select](Function(p) p.Description))))
        End Sub
    End Class

    Public Class AvanceeChantierAEtages
        Inherits AvanceeChantierClassique

        Private designationEtage As String

        Public Overrides Sub PrintDescription()
            Console.WriteLine(String.Format("{0} - {1} : {2}", designationChantier, designationEtage, String.Join(",", stadesAvancements.[Select](Function(p) p.Description))))
        End Sub
    End Class

    Public Class Exemple
        Private Shared Sub PrintTousLesChantiers(ByVal desChantiersClassiques As AvanceeChantierClassique, ByVal desChantiersAEtages As AvanceeChantierAEtages)
            Dim lesChantiers As List(Of AvanceeChantierClassique) = New List(Of AvanceeChantierClassique)()
            lesChantiers.Add(desChantiersClassiques)
            lesChantiers.Add(desChantiersAEtages)

            For Each chantier As AvanceeChantierClassique In lesChantiers
                chantier.PrintDescription()
            Next
        End Sub
    End Class
End Namespace

-
Edité par earp91 8 juillet 2021 à 13:11:28