ld le 13/09/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: "."
2nde/format
CoorRec
CoorAff
QuadNAff
AxesAff
EtiqNAff
ExprAff
###########
: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
ld le 14/09/2015 à 07: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 !
