Exercice VB: Class Formateur
Rédigé par GC Team, Publié le 04 Janvier 2012, Mise à jour le Vendredi, 16 Décembre 2022 22:15Participez au vote ☆☆☆☆☆★★★★★
Suite à l'exercice " Class Individu"
On dérive la classe Individu déjà vue par une classe Formateur
En plus des données membres Individu, la classe Formateur a comme données membres privées :
Masse horaire effective
Heure supplémentaire
Taux horaire effectif
Taux horaire supplémentaire
La méthode CalculSalaire () intègre un mode de calcul comme suit :
CalculSalaire = (Masse horaire effectif* taux horaire effectif) +
(Heure supplémentaire* taux horaire supplémentaire)
4. Construire la classe Formateur qui hérite de la classe Individu
5. Au niveau de la Classe de Test :
- Prévoir deux Formateurs et les instancier avec les constructeurs adéquats.
- Les afficher notamment CalculSalaire ( ).
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 81 82 83 |
Public Class Formateur Inherits Individu Private MassH As Double Private Heur_Sup As Double Private Taux_H_Effec As Double Private taux_H_Sup As Double Property _MassH() As Double Get Return MassH End Get Set(ByVal value As Double) MassH = value End Set End Property Property _Heur_Sup() As Double Get Return Heur_Sup End Get Set(ByVal value As Double) Heur_Sup = value End Set End Property Property _Taux_h_effec() As Double Get Return Taux_H_Effec End Get Set(ByVal value As Double) Taux_H_Effec = value End Set End Property Property _taux_H_Sup() As Double Get Return taux_H_Sup End Get Set(ByVal value As Double) taux_H_Sup = value End Set End Property Sub New() End Sub Public Sub New(ByVal N As String, ByVal No As String, ByVal P As String, ByVal A As String, ByVal M As Double, ByVal HS As Double, ByVal THE As Double, ByVal THS As Double) MyBase.New (N, No, P, A) _MassH = M _Heur_Sup = HS _Taux_h_effec = THE _taux_H_Sup = THS End Sub Public Sub New(ByVal M As Double, ByVal HS As Double, ByVal THE As Double, ByVal THS As Double) _MassH = M _Heur_Sup = HS _Taux_h_effec = THE _taux_H_Sup = THS End Sub Sub CalculSalaire() Console.WriteLine((MassH * Taux_H_Effec) + (Heur_Sup / taux_H_Sup)) End Sub Public Overrides Sub afficher() MyBase.afficher() Console.WriteLine(MassH & vbTab & Heur_Sup & vbTab & Taux_H_Effec & vbTab & taux_H_Sup) End Sub End Class --------------------------------------------------------------------------------------------------------- Public Class test Public Sub New() Console.WriteLine("******** [Programme de teste] ************") Console.WriteLine() Console.WriteLine("----------------------------------------------------------") Console.WriteLine(" ----FORMATEURS---") Console.WriteLine() Dim formateur1 As New Formateur(20, 40, 70, 33) Dim formateur2 As New Formateur(70, 22, 80, 65) Console.WriteLine("Salaire du premier formatteur" & vbTab & vbTab) formateur1.CalculSalaire() Console.WriteLine("Salaire du deuxième formatteur" & vbTab & vbTab) formateur2.CalculSalaire() Console.WriteLine() Console.WriteLine() Console.WriteLine("-----------------------------------------------------------") End Sub End Class |