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 |
Partager