Exercice VB: Class Formateur

Rédigé par GC Team, Publié le 04 Janvier 2012, Mise à jour le Vendredi, 16 Décembre 2022 22:15
Participez 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