Exercice Visual Basic : Examen Passage 2007 TSDI P1 Variante 2

Rédigé par GC Team, Publié le 04 Janvier 2012, Mise à jour le Samedi, 17 Décembre 2022 15:29
Participez au vote ☆☆☆☆☆★★★★★

Soit la class Stagiaire qui modélise un stagiaire , cette class comportera les attributs suivants :

Matricule                                            INT

Nom                                                   String

Prénom                                               String

Sexe                                                   String

Filière                                                 String

Note1                                                 Double

Note2                                                 Double

Note3                                                 Double

Questions :

1-      Codage de la class stagiaire :

  1. Ecrire la classe Stagiaire en interdissent l’accès aux attributs. (1 point)
  2. Ajouter les accesseurs et les modificateurs de chaque attribut. (1 point)
  3. Ajouter un compteur qui permet de compter le nombre des objets créés de la class stagiaire. (1 point)

2-      Ajouter un constructeur sans argument qui initialise le matricule ; le matricule doit avoir la valeur du compteur. (1 point) 

3-      Ajouter un constructeur avec 3 arguments qui initialise le nom, le prénom, et la filière. (1 point)

4-      Ajouter un constructeur qui initialise tous les attributs de la classe stagiaire. (1 point)

 

NB : à chaque instanciation d’un objet de stagiaire, le compteur s’incrémente et le matricule du stagiaire recevra la valeur du compteur.

5-      Ajouter une méthode RAZ qui initialise le compteur à 0. (0,5 point)

6-      Ajouter la méthode EQUALS qui teste l’égalité de 2 objets Stagiaire (2 objets stagiaires sont égaux s’ils ont le même matricule). (1 point)

7-      Ajouter une méthode CALCUL qui permet de calculer la moyenne générale de chaque stagiaire. (1,5 point)

8-      Crées une exception nommée ERRORNOTE qui se déclenche lors de la saisie d’une note qui est pas compris entre 0 et 20. (1 point)

9-      Ecrire un programme de test qui crée les objets suivants :

Matricule

Nom

Prénom

Sexe

Filière

Note1

Note2

Note3

1

karami

loubna

Femme

TSDI

 

 

 

2

Jamal

Youssef

Homme

TSDI

 

 

 

3

Ilham

Fayrouz

Homme

TSRI

12

13

15

Puis il les affiche. (2 points)

10-  Faire un programme permettant de réaliser le classement des stagiaire par moyenne (2 points)

11-  On veut créer un programme java qui gère l’ensemble des stagiaires, le programme java doit permettre les opérations suivantes :

  1. Afficher tous les stagiaires. (1 point)
  2. Ajouter un stagiaire. (1 point)
  3. Rechercher un stagiaire. (1 point)
  4. Modifier un stagiaire. (1 point)
  5. Supprimer un stagiaire. (1 point)
  6. 6) Afficher la meilleure moyenne des femmes et la meilleure moyenne des hommes (2 points) 
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
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286

Module Module1
    Dim al As New Collections.ArrayList
    Dim stag As New Stagiaire
    Public Sub menu()
        Console.WriteLine("*********************************** MENU *************************************")
        Console.WriteLine("*                                                                            *")
        Console.WriteLine("* Tapez -1- si vous voulez Afficher tous les stagiaires                      *")
        Console.WriteLine("* Tapez -2- si vous voulez Ajouter un stagiaire                              *")
        Console.WriteLine("* Tapez -3- si vous voulez Rechercher un stagiaire                           *")
        Console.WriteLine("* Tapez -4- si vous voulez Modifier un stagiaire                             *")
        Console.WriteLine("* Tapez -5- si vous voulez Supprimer un stagiaire                            *")
        Console.WriteLine("* Tapez -6- si vous voulez Quitter l'application                             *")
        Console.WriteLine("*                                                                            *")
        Console.WriteLine("******************************************************************************")
    End Sub
    Sub Main()
        Dim stag1 As New Stagiaire("karami", "loubna", "Femme", "TSDI")
        Dim stag2 As New Stagiaire("Jamal", "Youssef", "Homme", "TSDI")
        Dim stag3 As New Stagiaire("Ilham", "Fayrouz", "Homme", "TSRI", 12, 13, 15)
        al.Add(stag1)
        al.Add(stag2)
        al.Add(stag3)
        Console.WriteLine("************************** PROGRAMME DE TEST ****************************")
        stag1.affiche()
        stag2.affiche()
        stag3.afficher()
        Console.WriteLine("*************************************************************************")
        Console.WriteLine()
        Console.WriteLine()



        Dim a As Boolean = False
        Do

            Console.WriteLine()
            menu()
            Dim x As Integer = Console.ReadLine()



            If x = 1 Then
                Console.WriteLine()
                For i As Integer = 0 To al.Count - 1
                    al(i).afficher()
                Next



            ElseIf x = 2 Then
                Console.WriteLine()
                stag._Matricule = al.Count + 1
                Console.WriteLine("Entrez le nom du stagiaire a Ajouter")
                stag._Nom = Console.ReadLine
                Console.WriteLine("Entrez le prenom du stagiaire a Ajouter")
                stag._Prenom = Console.ReadLine
                Console.WriteLine("Entrez le Sexe du stagiaire a Ajouter")
                stag._Sexe = Console.ReadLine
                Console.WriteLine("Entrez la filiere du stagiaire a Ajouter")
                stag._Filiere = Console.ReadLine
                Console.WriteLine("Entrez la 1ere note du stagiaire a Ajouter")
                stag._Note1 = Console.ReadLine
                Console.WriteLine("Entrez la 2eme note du stagiaire a Ajouter")
                stag._Note2 = Console.ReadLine
                Console.WriteLine("Entrez la 3eme note du stagiaire a Ajouter")
                stag._Note3 = Console.ReadLine
                al.Add(stag)



            ElseIf x = 3 Then
                Console.WriteLine()
                Console.WriteLine("Entrez le matricule du stagiaire Rechercher")
                Dim q As Integer = Console.ReadLine
                Dim e As Boolean = False
                For i As Integer = 0 To al.Count - 1
                    stag = al(i)
                    If q = stag._Matricule Then
                        al(i).afficher()
                        e = True
                        Exit For
                    End If
                Next
                If e = False Then
                    Console.WriteLine("Ce stagiaire n'exist pas")
                End If



            ElseIf x = 4 Then
                Console.WriteLine()
                Console.WriteLine("Entrez le matricule du stagiaire que vous voulez Modifier")
                Dim q As Integer = Console.ReadLine
                Dim e As Boolean = False
                For i As Integer = 0 To al.Count - 1
                    stag = al(i)
                    If q = stag._Matricule Then
                        al(i).afficher()
                        Console.WriteLine("Entrez le nom du stagiaire")
                        stag._Nom = Console.ReadLine
                        Console.WriteLine("Entrez le prenom du stagiaire")
                        stag._Prenom = Console.ReadLine
                        Console.WriteLine("Entrez le Sexe du stagiaire")
                        stag._Sexe = Console.ReadLine
                        Console.WriteLine("Entrez la filiere du stagiaire")
                        stag._Filiere = Console.ReadLine
                        Console.WriteLine("Entrez la 1ere note du stagiaire")
                        stag._Note1 = Console.ReadLine
                        Console.WriteLine("Entrez la 2eme note du stagiaire")
                        stag._Note2 = Console.ReadLine
                        Console.WriteLine("Entrez la 3eme note du stagiaire")
                        stag._Note3 = Console.ReadLine
                        al(i) = stag
                        Console.WriteLine("Modification avec succées")
                        e = True
                        Exit For
                    End If
                Next
                If e = False Then
                    Console.WriteLine("Ce stagiaire n'exist pas")
                End If



            ElseIf x = 5 Then
                Console.WriteLine()
                Console.WriteLine("Entrez le matricule du stagiaire que vous voulez supprimer")
                Dim q As Integer = Console.ReadLine
                Dim e As Boolean = False
                For i As Integer = 0 To al.Count - 1
                    stag = al(i)
                    If q = stag._Matricule Then
                        al.RemoveAt(i)
                        Console.WriteLine("Suppression avec succées")
                        e = True
                        Exit For
                    End If
                Next
                If e = False Then
                    Console.WriteLine("Ce stagiaire n'exist pas")
                End If




            ElseIf x = 6 Then
                Console.WriteLine("Voulez vous vraiment quittez l'application (o/n)?")
                Dim z As String = Console.ReadLine.ToLower
                If z = "o" Then
                    a = True
                End If

            Else
                Console.WriteLine("Ressayer a nouveaux")
            End If

        Loop While (a = False)

    End Sub
End Module

--------------------------------------------------------------------------------

Public Class Stagiaire
    Private Matricule As Integer
    Private Nom As String
    Private Prenom As String
    Private Sexe As String
    Private Filiere As String
    Private Note1 As Double
    Private Note2 As Double
    Private Note3 As Double
    Shared compteur As Integer = 0
    Property _Matricule()
        Get
            Return Matricule
        End Get
        Set(ByVal Value)
            Matricule = Value
        End Set
    End Property
    Property _Nom()
        Get
            Return Nom
        End Get
        Set(ByVal Value)
            Nom = Value
        End Set
    End Property
    Property _Prenom()
        Get
            Return Prenom
        End Get
        Set(ByVal Value)
            Prenom = Value
        End Set
    End Property
    Property _Sexe()
        Get
            Return Sexe
        End Get
        Set(ByVal Value)
            Sexe = Value
        End Set
    End Property
    Property _Filiere()
        Get
            Return Filiere
        End Get
        Set(ByVal Value)
            Filiere = Value
        End Set
    End Property
    Property _Note1()
        Get
            Return Note1
        End Get
        Set(ByVal Value)
            Note1 = Value
        End Set
    End Property
    Property _Note2()
        Get
            Return Note2
        End Get
        Set(ByVal Value)
            Note2 = Value
        End Set
    End Property
    Property _Note3()
        Get
            Return Note3
        End Get
        Set(ByVal Value)
            Note3 = Value
        End Set
    End Property
    Public Sub New()
        Matricule = compteur
    End Sub
    Public Sub New(ByVal n As String, ByVal p As String, ByVal s As String, ByVal f As String)
        compteur += 1
        _Matricule = compteur
        _Nom = n
        _Prenom = p
        _Sexe = s
        _Filiere = f
    End Sub
    Public Sub New(ByVal n As String, ByVal p As String, ByVal s As String, ByVal f As String, ByVal n1 As Double, ByVal n2 As Double, ByVal n3 As Double)
        compteur += 1
        _Matricule = compteur
        _Nom = n
        _Prenom = p
        _Sexe = s
        _Filiere = f
        _Note1 = n1
        _Note2 = n2
        _Note3 = n3
    End Sub
    Public Sub RAZ()
        compteur = 0
    End Sub
    Public Sub EQUAL(ByVal s1 As Stagiaire, ByVal s2 As Stagiaire)
        If s1.Matricule = s2.Matricule Then
            Console.WriteLine("Ce stagiaire est déjà enregistré")
        End If
    End Sub
    Public Function CALCUL() As Double
        Return Math.Round(((Note1 + Note2 + Note3) / 3), 2)
    End Function
    Public Sub ERRORNOTE()
        If Note1 > 20 Or Note1 < 0 Then
            Console.WriteLine("La 1ere note est incorrecte")
        ElseIf Note2 > 20 Or Note2 < 0 Then
            Console.WriteLine("La 2eme note est incorrecte")
        ElseIf Note3 > 20 Or Note3 < 0 Then
            Console.WriteLine("La 3eme note est incorrecte")
        End If
    End Sub
    Public Sub affiche()
        Console.WriteLine(_Matricule & vbTab & _Nom & vbTab & _Prenom & vbTab & _Sexe & vbTab & _Filiere)
    End Sub
    Public Sub afficher()
        Console.WriteLine(_Matricule & vbTab & _Nom & vbTab & _Prenom & vbTab & _Sexe & vbTab & _Filiere & vbTab & _Note1 & vbTab & _Note2 & vbTab & _Note3)
    End Sub
End Class