Permet de calculer des intérêts moratoires ou des versements fixes, il suffit de mettre la somme initiale, la durée le taux et il vous donne la somme finale.
Source / Exemple :
Public Class Interet
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Me.Width = 450 'définit la taille initiale de la form
Me.Height = 91
CHXARI.Visible = True 'on montre au départ la groupbox pour les versements
End Sub
Private Sub Form1_MouseDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDoubleClick
End 'si on clique 2 fois n'importe ou sur la form cela arrete le prog
End Sub
Private Sub Chxsuiari_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Chxsuiari.CheckedChanged
If Chxsuiari.Checked = True Then 'si le choix des versements est fait
CHXARI.Visible = True 'on montre les infos à remplir
CHGEO.Visible = False 'on cache les interets
Me.Width = 450 'on modifie la taille de la fenetre
Me.Height = 310
Else
CHXARI.Visible = False '
CHGEO.Visible = True 'sinon on inverse c les interet et pas les versements
End If
End Sub
Private Sub Chxsuigéo_Checkedchanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Chxsuigéo.CheckedChanged
'cette partie repete la précédente pour plus de succès
If Chxsuigéo.Checked = True Then
CHXARI.Visible = False
CHGEO.Visible = True
Me.Width = 450
Me.Height = 310
Else
CHXARI.Visible = True
CHGEO.Visible = False
End If
End Sub
Private Sub resulari_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles resulari.Click
Dim variable1 As Int64
If prixari.Text = "" Then 'si on a rien écri dans la case des versements
MsgBox("Donne moi la somme STP !!!", MsgBoxStyle.Exclamation, "ERREUR") 'alors on le dit
Else
If moari.Text = "" Then 'si on a pas mis de période
MsgBox("Donne moi la période STP !!!", MsgBoxStyle.Exclamation, "ERREUR") 'on le dit
Else
If SOMINIT.Text = "" Then 'si on a pas dit de somme initiale
MsgBox("Donnne moi la valeur initiale !!!", MsgBoxStyle.Exclamation, "ERREUR") 'on le dit
Else
variable1 = Val(SOMINIT.Text) + Val(moari.Text) * Val(prixari.Text) 'on récupère les valeurs et on calcul
toari.Text = Str(((Val(moari.Text) + 1) * (Val(SOMINIT.Text) + variable1)) / 2)
End If
End If
End If
'calcul d'une somme : S = (n+1)(U0 + Un)/2 => n = nombre de mois; U0 = somme ini; Un = U0 + n*(versement)
End Sub
Private Sub resultgeo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles resultgeo.Click
If tauxgeo.Text = "" Then 'si on a rien écri dans la case du taux attention c en %
MsgBox("Donne moi le taux STP !!!", MsgBoxStyle.Exclamation, "ERREUR") 'on le dit
Else
If mogeo.Text = "" Then 'si on a pas mis de période
MsgBox("Donne moi la période STP !!!", MsgBoxStyle.Exclamation, "ERREUR") 'on le dit
Else
If SOMINIT.Text = "" Then 'si on a pas dit de somme initiale
MsgBox("Donne moi la somme initiale STP !!!", MsgBoxStyle.Exclamation, "ERREUR") 'on le dit
Else
togeo.Text = (Val(SOMINIT.Text)) * ((1 - (Val(tauxgeo.Text) / 100) ^ (Val(mogeo.Text) + 1)) / (1 - Val(tauxgeo.Text) / 100))
End If
End If
End If
End Sub
'calcul d'une somme : S = U0* [(1-q^(n+1))/(1-q)]
'U0 = somme initiale
'q = taux
'n = période
End Class
Conclusion :
Attention, le programme marche qu'avec le framework 2.0. Mais le code est toujours utilisable.
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.