Bonsoir tout le monde, je demande votre aide.
J'ai trouvé ce code dans un tuto
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
Public MustInherit Class Instrument
 
    Public_Notes() As Integer
 
    Public Property Notes As Integer()
        Set(ByVal value() As Integer)
            _Notes = value
        End Set
        Get
            Return _Notes
        End Get
    End Property
 
End Class
 
Public Class Guitare
    Inherits Instrument 'Hérite d'Instrument
 
    Public_NbCordes As Integer
 
    Sub New(ByVal Notes() As Integer, ByVal NbCordes As Integer)
        MyBase.Notes = Notes 'On spécifie la propriété Notes de la mère
        _NbCordes = NbCordes
    End Sub
 
End Class
J'ai compris le principe, mais depuis 2 heures que j'essaie de créer un objet "maguitare" avec 30 notes et 6 cordes, sans succès.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
Module Module1
*
****Sub main()
********'* Dim maguitare As New Guitare(30, 6)
********'* Dim maguitare As New Guitare(Notes(30),6)
********'* Dim maguitare As New Guitare(MyBase.Notes(30), 6)
****End Sub
End Module
Rien ne marche. Est ce que quelqu'un peut me guider(je suis un vrai nul). Merci