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 :
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")
Voila, est-ce correcte et répond-t-il bien aux questions?
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.