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
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
| Module Module1
Sub Main()
Dim salaries = {
New Salarie("Leconte", "Henri", 1234, 14000),
New Salarie("Blanche", "Samy", 850, 14500),
New Salarie("Sendy", "Brown", 850, 13000),
New Salarie("Zaki", "Kamal", 1020, 12500)
}
Dim copieSalarie = salaries(1)
Console.WriteLine(Salarie.NombreSalaries)
Console.WriteLine(salaries(0).Prenom)
Console.WriteLine(salaries(0).Salaire)
Console.WriteLine(salaries(1).Nom)
Console.WriteLine(salaries(1).Matricule)
Salarie.Detruire(salaries(1))
Console.WriteLine(Salarie.NombreSalaries)
Console.WriteLine(copieSalarie.Nom)
Console.WriteLine(copieSalarie.Matricule)
End Sub
End Module
Public Class Salarie
Public Const TauxCS As Double = 11 / 100
Private Shared _NombreSalaries As Integer = 0
Public Sub New()
_NombreSalaries += 1
End Sub
Public Sub New(matricule As Integer)
Me.New()
Me.Matricule = matricule
End Sub
Public Sub New(matricule As Integer, nom As String)
Me.New(matricule)
Me.Nom = nom
End Sub
Public Sub New(nom As String, prenom As String, matricule As Integer, salaire As Double)
Me.New(matricule, nom)
Me.Prenom = prenom
Me.Salaire = salaire
End Sub
Public Sub New(autre As Salarie)
Me.New(autre.Nom, autre.Prenom, autre.Matricule, autre.Salaire)
End Sub
Public Shared ReadOnly Property NombreSalaries As Integer
Get
Return _NombreSalaries
End Get
End Property
Public Property Nom As String
Public Property Prenom As String
Public Property Matricule As Integer
Public Property Salaire As Double
Public ReadOnly Property SalaireNet As Double
Get
Return Salaire * (1 - TauxCS)
End Get
End Property
Public Shared Sub Detruire(ByRef salarie As Salarie)
salarie = Nothing
_NombreSalaries -= 1
End Sub
End Class |
Accès aux attributs d'une classe
Répondre avec citation
) et ton "destructeur" ou ton "constructeur par copie" (on se croirait vraiment en c++ 
) autant le constructeur par copie "peut" avoir une utilisé (et encore avec des propriétés en lecture/écriture et un constructeur avec tous les paramètres c'est pas gagné) ; autant le "destructeur" ne détruit rien (il déréférence UNE variable il suffit d'une autre variable référençant le même objet pour qu'il ne soit pas détruit). et puis c'est quoi cette manie de faire des compteurs d'instance ; je pourrais aussi mentionner la répétition dans tes divers constructeurs (pourquoi incrémenter ton compteur d'instance dans chaque constructeur plutôt que de faire appeler le constructeur de base dans les autres ?)
( © 
Partager