Discussion :

[ayoko]

bonjour a tous.
j'ai un probleme avec un examen en VB et j'aimerai bien que vous m'aidiez
voici l'exo

Gestion des élèves de ........
.Classe Cpersonne Nom, Prenom , date , adrresse
. constructeur personne qui permet la saisie de ces attributs
.Cetudiant classe représentant un éleve heritant de Cpersonne
. Notes, moyenne
.Constructeur etudiant qui permet la saisie des attributs notes et calcule la moyenne
. Methode afficher_Un_etudiant
. Cclasse :
.Attribut Liste (liste des etudiants: collection arraylist soit hashtable
. Methode: ajoute_un_etudiant , affiche_les_etudiants

et voici ce que j'ai pu faire.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

étant une débutante ,c'est ce que j'ai pu faire et ca beugue un peu.
j'aimerai que vous m'aidiez svp
merci

[aixchile]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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