Discussion :

[stracoma]

Bonjour à vous.
J'ai réalisé quelques exercices simples sur les classes, classe mère et classe fille. Je me retrouve bloqué devant mon premier exercice concernant une classe fille et la classe "grand-mère"!
ma 1ère classe mère:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
Public MustInherit Class Humain
    Private nom As String
    Private prenom As String
    Private age As Integer
    Private salaire As Double
    ' ====== Les proprety =========
    '     nom
    Public Property P_nom() As String
        Get
            Return Me.nom
        End Get
        Set(ByVal value As String)
            Me.nom = value
        End Set
    End Property
    '    prenom
    Public Property P_prenom() As String
        Get
            Return Me.prenom
        End Get
        Set(ByVal value As String)
            Me.prenom = value
        End Set
    End Property
    '    age
    Public Property P_age() As Integer
        Get
            Return Me.age
        End Get
        Set(ByVal value As Integer)
            Me.age = value
        End Set
    End Property
    '     salaire
    Public Property P_salaire() As Double
        Get
            Return Me.salaire
        End Get
        Set(ByVal value As Double)
            Me.salaire = value
        End Set
    End Property
 
End Class

la sous classe fille:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
Public Class joueur
    Inherits Humain
    Private club As String
    Private champion As Integer
    Public Sub New(ByVal nnom As String, ByVal pprenom As String, ByVal ssalaire As Double, ByVal cclub As String, ByVal chchampion As Integer)
        MyBase.P_nom = nnom
        MyBase.P_prenom = pprenom
        MyBase.P_salaire = ssalaire
        Me.club = cclub
        Me.champion = chchampion
    End Sub
    ' ==== property =====
    '      club
    Public Property P_club() As String
        Get
            Return Me.club
        End Get
        Set(ByVal value As String)
            Me.club = value
        End Set
    End Property
    '     champion
    Public Property P_champion() As Integer
        Get
            Return Me.champion
        End Get
        Set(ByVal value As Integer)
            Me.champion = value
        End Set
    End Property
End Class

classe petite fille, c'est là où je bloque:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Public Class cycliste
    Inherits joueur
    Private nbrDeVelo As Integer
    Public Sub New(ByVal nnom As String, ByVal pprenom As String, ByVal ssalaire As Double, ByVal cclub As String, ByVal chchampion As Integer, ByVal nnbrDeVelo As Integer)
        MyBase.MyClass.P_Nom = nnom
        MyBase.P_prenom = pprenom
        MyBase.P_salaire = ssalaire
        MyBase.P_club = cclub
        MyBase.P_champion = chchampion
        Me.nbrDeVelo = nnbrDeVelo
    End Sub
End Class

mon constructeur est faux mais je ne sais pas comment faire.
Merci

[Pol63]

en cas d'héritage le sub new doit appeler mybase.new
si tu n'as pas de sub new il est créé implicitement (et fait mybase.new implicitement aussi si nécessaire)

donc si tu as une classe avec un sub new(param1 as string)
l'héritier doit faire mybase.new (unstring)
libre à lui de demander un string en paramètre pour le refiller à mybase.new

par contre en cas de double héritage, tu n'as pas à te soucier de la classe 2 crans avant
tu appelles mybase.new, et lui dans don sub new appellera mybase.new aussi

[stracoma]

Merci pour votre réponse.
Donc je crée mon constructeur de cette manière:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Public Sub New(ByVal nnom As String, ByVal pprenom As String, ByVal aage As Integer, ByVal ssalaire As Double, ByVal cclub As String, ByVal chchampion As Integer, ByVal nnbrDeVelo As Integer)
        MyBase.New(nnom, pprenom, aage, ssalaire, cclub, chchampion)
        Me.nbrDeVelo = nnbrDeVelo
    End Sub

J'ai essayé et ça marche