IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VB.NET Discussion :

Code "gestion d'élèves"


Sujet :

VB.NET

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Nouveau candidat au Club
    Inscrit en
    Mai 2008
    Messages
    1
    Détails du profil
    Informations forums :
    Inscription : Mai 2008
    Messages : 1
    Par défaut Code "gestion d'élèves"
    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

  2. #2
    Nouveau candidat au Club
    Inscrit en
    Mai 2008
    Messages
    3
    Détails du profil
    Informations forums :
    Inscription : Mai 2008
    Messages : 3
    Par défaut
    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

Discussions similaires

  1. [POI] gestion de la quote/apostrophe en premier caractère
    Par msieur_tim dans le forum Documents
    Réponses: 0
    Dernier message: 23/02/2010, 15h48

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo