Exercice Visual Basic : Compte Epargne
Rédigé par GC Team, Publié le 07 Janvier 2012, Mise à jour le Samedi, 17 Décembre 2022 15:17![](/images/thumb/146/default.png)
Participez au vote ☆☆☆☆☆★★★★★
On veut réaliser une classe Compte Epargne.
Un compte épargne possède un numéro, un solde, un taux d’intérêt et des intérêts.
Un compte épargne est donc un compte qui permet de générer des intérêts. Il doit fournir une méthode permettant de calculer les intérêts. Il proposera également une méthode visualiser qui permet d’afficher le numéro, le solde et les intérêts.
Coder en VB.NET la classe CompteEpargne
Réaliser une petite application permettant de valider le bon fonctionnement de votre classe.
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 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 |
Public Class CompteEpargne Inherits compte Private taux_int As Double Private interet As Double Property _taux_int() Get Return taux_int End Get Set(ByVal value) value = taux_int End Set End Property Property _interet() Get Return interet End Get Set(ByVal value) value = interet End Set End Property Sub New() End Sub Sub New(ByVal numéro As Double, ByVal _solde As Double, ByVal _taux_int As Double) MyBase.New(numéro, _solde) taux_int = _taux_int End Sub Public Sub calculeinteret() crèditer(_solde * taux_int) interet = _solde * taux_int End Sub Public Overrides Sub afficher() MyBase.afficher() Console.WriteLine(vbTab & vbTab & interet & vbTab & taux_int) End Sub Protected Overrides Sub Finalize() Console.WriteLine("un compte est fermé") End Sub End Class --------------------------------------------------------------------------- Public Class compte Private numéro As Integer Private solde As Double Public listoperation(9) As opération Dim nb As Integer = 0 Property _numéro() As Integer Get Return numéro End Get Set(ByVal value As Integer) value = numéro End Set End Property Property _solde() As Double Get Return solde End Get Set(ByVal value As Double) value = solde End Set End Property Sub New() End Sub Sub New(ByVal _numéro As Integer, ByVal _solde As Double) numéro = _numéro solde = _solde End Sub Public Overridable Sub afficher() Console.WriteLine(numéro & vbTab & solde) End Sub Sub dèbiter(ByVal montant As Double) If solde < montant Then Console.WriteLine(" le solde est insuffisant") Else solde -= montant End If End Sub Sub crèditer(ByVal montant As Double) solde += montant End Sub Sub ajoutopèration(ByVal type As String, ByVal montant As Double) listoperation(nb Mod 10) = New opération(type, montant) nb += 1 End Sub Sub editerreleve() afficher() Dim op As opération For i = 0 To listoperation.GetUpperBound(0) op = listoperation(i) op.affiche() Next End Sub Protected Overrides Sub Finalize() Console.WriteLine("un compte est fermé") End Sub End Class |