Bonjour mes senpai
La petite apprentie de CNED viens de terminer tous ses devoirs et voudrais avoir vos avis sur un exercice, (si correcte ou pas ^^).
Voic l'enoncé:
Dans la classCompteBancaire, vous devez rajouter la propriété AdresseTitulaire,qui représente l'adresse postale du titulaire du compte. Vous devez créer les accesseurs correspondants, en lecture et en ecriture. Le constructeur doit prendre en compte cette propriété.
1:Sans réecrire toute la classe, donnez la liste exhaustive des répercussions sur la classe, et écrivez chaque ligne concerné.
2: Donnez egalement la répercussion sur le programme principal qui instancie un objet de la classe.
et maintenant voici le code avant mon intervention: (un peu long hein ^^ )
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
45
46
47
48
49
50
51
52
53 Public Class ClassCompteBancaire Public Structure TOperation Public DateOp As Date Public Montant As Decimal Public Libelle As String End Structure Private NomTitulaire As String Private PrenomTitulaire As String Private DateOuverture As Date Private TypeCompte As String Private NbOperations As Integer Private Operation(1000) As TOperation Private Solde As Decimal Public Sub SetTitulaire(ByVal nom As String, ByVal prenom As String) NomTitulaire = nom PrenomTitulaire = prenom End Sub Public Function Gettitulaire() As String Gettitulaire = NomTitulaire + PrenomTitulaire End Function Public Function GetDateOuverture() As Date GetDateOuverture = DateOuverture End Function Public Function getTypeCompte() As String getTypeCompte = TypeCompte End Function Public Function GetSolde() As Decimal Dim solde_recalculeé As Decimal = 0, iOperation As Integer For iOperation = 0 To NbOperations solde_recalculeé = solde_recalculeé + Operation(iOperation).Montant Next GetSolde = Solde + solde_recalculeé End Function Public Sub New(ByVal PNomtitulaire As String, ByVal PPrenomTitulaire As String, ByVal PDateOuverture As Date, ByVal PTypeCompte As String) NomTitulaire = PNomtitulaire PrenomTitulaire = PPrenomTitulaire SetTitulaire(PNomtitulaire, PPrenomTitulaire) DateOuverture = PDateOuverture TypeCompte = PTypeCompte NbOperations = 0 Solde = 0 End Sub Public Sub AjoutOperation(ByVal PMontant As Decimal, ByVal PDateOp As Date, ByVal PLibelle As String) Operation(NbOperations).Montant = PMontant Operation(NbOperations).DateOp = PDateOp Operation(NbOperations).Libelle = PLibelle NbOperations = NbOperations + 1 Solde = Solde End Sub End Class
Moi j'ai rajouté ceci aux declarations des variables:
Code : Sélectionner tout - Visualiser dans une fenêtre à part Private AdresseTitulaire As String
Ceci pour lire et ecrire l'adresse du titulaire:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3 Public Function GetAdresseTitulaire() As String GetAdresseTitulaire = AdresseTitulaire End Function
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3 Public Sub SetAdresseTitulaire(ByVal NewAdress As String) AdresseTitulaire = NewAdress End Sub
Ceci sur le constructeur (pour qu'il le prenne en compte
Code : Sélectionner tout - Visualiser dans une fenêtre à part ByVal PAdresseTitulaire As String
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2 AdresseTitulaire = PAdresseTitulaire SetAdresseTitulaire(PAdresseTitulaire)
Et dans le programme principal qui etait comme ceci:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2 Dim Mon_Compte As New ClassCompteBancaire("DUPONT", "Jean", DateTime.Now, "Courant")
Je l'ai modifié comme celle-ci :
Voila, est-ce correcte et répond-t-il bien aux questions?
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2 Dim Mon_Compte As New ClassCompteBancaire("DUPONT", "Jean", "16 place general leclerc 78955 Carrieres sous poissy", DateTime.Now,"Courant")
Et aussi je suis désolée si c'est un peu trop détaillée ^^
Cordialement,
Merci du temps que vous donnerez a me repondre ^^
Byakuren.
Partager