Code "gestion d'élèves"

Public Class Main Dim Cp As Cpersonne Dim nom_eleve, prenom_eleve, adr, dat As String Dim Date_edit As Date Sub New() Console.WriteLine("Donnez le nom de l'élève :") nom_eleve = Console.In.ReadLine() Console.WriteLine("Donnez le prénom de l'élève :") prenom_eleve = Console.In.ReadLine Console.WriteLine("Donnez la date de l'élève (JJ-MM-AAAA):") dat = Console.In.ReadLine() Console.WriteLine("Donnez l'adresse de l'élève :") adr = Console.In.ReadLine() Console.ReadKey() End Sub Sub details() Console.ReadKey() Console.WriteLine("Donnez le nom de l'élève :") nom_eleve = Console.In.ReadLine() Console.WriteLine("Donnez le prénom de l'élève :") prenom_eleve = Console.In.ReadLine Console.WriteLine("Donnez la date de l'élève (JJ-MM-AAAA):") dat = Console.In.ReadLine() Console.WriteLine("Donnez l'adresse de l'élève :") adr = Console.In.ReadLine() Console.ReadKey() End Sub

Voici un début de piste : tu crées ta classe personne avec un constructeur (New) et les bons arguments. Les variables précédées d'un _ sont les variables membres de ta classe.

La classe CEtudiant hérite de la class CPersonne. Il lui faut un constructeur qui peut prendre aussi un tableau de notes (type Single) comme argument.

Elle fait appel au constructeur de la classe héritée (MyBase fait référence à CPersonne).

Cette classe CEtudiant ne contient que les notes comme variable membre.
La moyenne est une propriété qui calcule la moyenne des notes.

Have fun !!

Code:

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
 
Private Class CPersonne
        Private _Nom As String
        Private _Prenom As String
        Private _DateNaissance As Date
        Private _Adresse As String
 
        Public Sub New(ByVal Nom As String, ByVal Prenom As String, ByVal DateNaissance As Date, ByVal Adresse As String)
            _Nom = Nom
            _Prenom = Prenom
            _DateNaissance = DateNaissance
            _Adresse = Adresse
        End Sub
    End Class
 
    Private Class CEtudiant
        Inherits CPersonne
 
        Private _notes As Single()
 
        Public Sub New(ByVal Nom As String, ByVal Prenom As String, ByVal DateNaissance As Date, ByVal Adresse As String, ByVal Notes As Single())
            MyBase.New(Nom, Prenom, DateNaissance, Adresse)
            _notes = Notes
        End Sub
 
        Public ReadOnly Property Moyenne() As Single
            Get
                Dim sommeNotes As Single = 0
                For Each note As Single In _notes
                    sommeNotes += note
                Next
                Return sommeNotes / _notes.Length
            End Get
        End Property
 
    End Class
 
    Private Sub TEST()
        Dim personneTest As New CPersonne("Dupont", "Pierre", New Date(1970, 12, 25), "20 rue du Code")
        Dim etudiantTest As New CEtudiant("Dupont", "Marie", New Date(1972, 8, 3), "20 rue du Code", New Single() {10.0, 18.0, 5.0})
 
        Dim moyenneMarie As Single = etudiantTest.Moyenne
 
    End Sub