Calcul d'intéret

Soyez le premier à donner votre avis sur cette source.

Vue 11 452 fois - Téléchargée 650 fois

Description

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.

Codes Sources

A voir également

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.