Exercice VB: Class Individu

Rédigé par GC Team, Publié le 04 Janvier 2012, Mise à jour le Mardi, 30 Novembre 1999 00:00
Participez au vote ☆☆☆☆☆★★★★★

Enoncé:

Un Individu est décrit par ses données membres privées :

  • un numéro de CIN
  • Un nom
  • Un prénom
  • Une adresse

1. Définir une classe Individu avec ses données membres et une méthode Affichage () qui affiche les informations de chaque objet créer a partir de cette classe.

2. Créer  une classe de test pour dérouler un scénario activant des objets particuliers de cette classe : créer deux individus et afficher leurs informations.

Exemple

Objet 1 :                                                           Objet 2 :

CIN        : BH14501                                           CIN        : FG 254170

Nom       : Maraji                                                Nom       : Alaoui

Prénom : Ahmed                                               Prénom   : Ilham

Adresse : 59 rues tata Agadir Adresse : 103 Place la gironde Casablanca

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

Public Class Individu
    Private NumCin As String
    Private nom As String
    Private Prénom As String
    Private adresse As String
    Property _NumCin() As String
        Get
            Return NumCin
        End Get
        Set(ByVal value As String)
            NumCin = value
        End Set
    End Property
    Property _nom() As String
        Get
            Return nom
        End Get
        Set(ByVal value As String)
            nom = value
        End Set
    End Property
    Property _prénom() As String
        Get
            Return Prénom
        End Get
        Set(ByVal value As String)
            Prénom = value
        End Set
    End Property
    Property _Adresse() As String
        Get
            Return adresse
        End Get
        Set(ByVal value As String)
            adresse = value
        End Set
    End Property
    Sub New()
    End Sub
    Sub New(ByVal Nu As String, ByVal No As String, ByVal P As String, ByVal A As String)
        _NumCin = Nu
        _nom = No
        _prénom = P
        _Adresse = A
    End Sub
    Public Overridable Sub afficher()
        Console.WriteLine(_NumCin & vbTab & _nom & vbTab & _prénom & vbTab & _Adresse)
    End Sub
End Class 
 
-------------------------------------------------------------------------------------------------
 
 
Public Class test
    Public Sub New()
        Console.WriteLine("******** [Programme de teste] ************")
        Console.WriteLine()
        Console.WriteLine("----------------------------------------------------------")
        Console.WriteLine("                         ---INDIVIDU---")
        Console.WriteLine()
   Dim individu1 As New Individu("AA192", "Alami", "Marwan", "Hay Nahda II")
        Dim individu2 As New Individu("AA111", "Belhajjam", "Naziha", "Hay Nahda II rabat")
        individu1.afficher()
        Console.WriteLine()
        individu2.afficher()
        Console.WriteLine()
        Console.WriteLine()
        Console.WriteLine("----------------------------------------------------------")
        Console.WriteLine("")
End Sub
End Class