Discussion :

[stracoma]

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

[rv26t]

Bonjour,

Déjà il faudrait corriger 2 erreurs

Code :

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

1
2
3
Public MustInherit Class Instrument
     Private _Notes() As Integer
'...

et

Code :

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

1
2
3
4
Public Class Guitare
    Inherits Instrument 'Hérite d'Instrument
     Private _NbCordes As Integer
'...

Ensuite créer ainsi

Code :

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

1
2
3
4
5
        Dim desNotes(0 To 29) As Integer
        For i As Integer = 0 To 29
            desNotes(i) = i + 1
        Next
        Dim MaGuitare As Guitare = New Guitare(desNotes, 6)

Mais quel est l'intérêt d'utiliser des tableaux en POO ?
Il faut utiliser des collections.

[stracoma]

rv26t, Merci infiniment.
J'ai cru comprendre le principe mais j'ai tord.Mais avec votre intervention ça devient clair