CALCUL D'INTÉRET

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

Télécharger le zip