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