pictogram Auteur: Patrick Biker
Date: 18 mars 2006
Maj : 21 Mars 2015

Exemples évolués

Chaque exemple montre une utilisation pratique de la fonction du WLangage.

Quand plusieurs syntaxes sont possibles, chacune est illustrée indépendamment.

Revenir à la page des exemples évolués


Le code suivant permet de retourner une matrice d'amortissement. Le type d'amortissement est sélectionné par l'utilisateur grâce à des sélecteurs (SelectTypeAmort). Le montant, le taux et la durée de l'emprunt sont saisis par l'utilisateur dans des champs de saisie (Montant, Taux, Durée). La matrice d'amortissement s'affiche dans une table mémoire (TableMatrice).



-- Code de clic sur BtnAmortissement
// Déclaration des variables

ResAmortissement est un booléen
ResTypeAmort est un entier // Récupère le type d'amortissement
ResAjout est un booléen
Indice est un entier
// Récupération du type d'amortissement
SELON SelectTypeAmort
   CAS 1 : ResTypeAmort = finInFine
   CAS 2 : ResTypeAmort = finAmortissementConstant
   CAS 3 : ResTypeAmort = finAnnuitéConstante
FIN
// Calcul de l'amortissement
ResAmortissement = FinAmortissement ("MatriceAmort", ResTypeAmort, Montant, Taux, Durée)
// Erreur de calcul ?
SI ResAmortissement = Faux ALORS
   // Affichage du message d'erreur
   Erreur(ErreurInfo( errMESSAGE ))
SINON
   // Affichage de la matrice dans une table mémoire
   POUR Indice = 1 à MatNbLigne("MatriceAmort") ALORS
      ResAjout = TableAjoute(TableMatrice, MatLitLigne("MatriceAmort", Indice))
   FIN
FIN