Autorisation : Membre
Nb de messages : 373
Inscrit le : Jeu 23 Sep 2010, 16:05
Posté le : Dim 13 Sep 2015, 19:17
Salut les filles !
Il y a un moment que j'ai écris et que j'utilise un petit prgm appellé BANK.
Je ne l'ais jamais poster parce que je sais que chacun a sa façon bien à soi de faire ses comptes.
Ma banque m'envoit un relevé de compte mensuel, j'additionne le montant de tout mes livrets, et
l'actualise ainsi chaque mois dans ce prgm.
Il permet d'obtenir un graphique simple et représentatif de ses économies, les fluctuations, la valeur max et une
bête moyenne de son épargne mensuelle.
Et c'est toujours encouragent de voir grimper cette courbe quant on peut mettre un peu d'argent de côté
!
Prgm Bank, 274 octets :
Code
###########
Le GRAPH 1 doit être sur ON
Type : 2
ListeX:BANK2 ListeY:BANK
Marque: "."
:1+dim(LBANK->L ----- petit L des listes avant BANK.
:Menu("BANK","ACTU",1,"GRAPH",2,"SUPPR",3
:Lbl 1
:EffEcr
:Disp "TOTAL MOIS n°",L ----- "n" dans var/statistique "°" dans catalog
:Input N
:N->LBANK(L
:N->LBANK2(L
:Lbl 2
:EffDessin
:0->Xmin
:dim(LBANK->Xmax
:-300->Ymin
:max(LBANK->Ymax
:0->Xgrad
:1000->Ygrad
:Texte(8,5,"MAX ----- Un espace après X.
:Texte(8,20,max(LBANK
:Texte(16,5,"MOY"
:Texte(16,20,ent(Ymax/Xmax
:For(X,2,dim(LBANK
:Ligne(X,0,X,LBANK(X)-LBANK(X-1
:End
:Stop
:Lbl 3
:L-2->dim(LBANK
:L-2->dim(LBANK2
:Goto 2
Autorisation : Membre
Nb de messages : 373
Inscrit le : Jeu 23 Sep 2010, 16:05
Posté le : Lun 14 Sep 2015, 7:19
Oui et puis je n'ai pas dans l'idée de faire des efforts d'optimisation pour ce prgm. Il n'est pas lourd et la vitesse d'exécution ici on s'en fou un peu.
Mais au plaisir de te défier sur un prochain prgm !