Exercice VB: Class Individu
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
| 1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071 | 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 SubEnd 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 SubEnd Class |