Poster un nouveau sujet Poster une réponse
Un prgm pour générer des graphiques propres et optimisés.
Auteur Message
ld
Avatar

Autorisation : Membre
Nb de messages : 373
Inscrit le : Jeu 23 Sep 2010, 16:05
Posté le : Dim 13 Sep 2015, 19:17   Citer 

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



----------------------
Note Éphéméride Chrono Bombrman BlueFishEncryptor Labygénérateur Nord BandeauDeTexte LunarPhase Syracuse Papy-Jump Convertisseur ! SolveurDeSudoku VérificateurDeCodesBanquaire PrgmADiviser CryptageDeVigenere MiniSolv Reed-Solomon Code128Géodésie
 Adresse email Haut de page Bas de page 
 
Mingerton



Autorisation : Membre
Nb de messages : 504
Inscrit le : Ven 07 Déc 2012, 20:09
Posté le : Dim 13 Sep 2015, 20:27   Citer 

Nice ! happy.gif

Je ne te ferai pas l'affront de l'optimiser (comme à mon habitude). Je crois pas que ça soit possible de toute manière.

----------------------
Mes articles
Mes programmes en ligne (je termine peu de projets)

Guide traduction Algo-Basic, par Linkakro
Catalogue des fonctions 82/83/84 FR/EN
 Adresse email Haut de page Bas de page 
 
ld
Avatar

Autorisation : Membre
Nb de messages : 373
Inscrit le : Jeu 23 Sep 2010, 16:05
Posté le : Lun 14 Sep 2015, 7:19   Citer 

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 ! winkle.gif

----------------------
Note Éphéméride Chrono Bombrman BlueFishEncryptor Labygénérateur Nord BandeauDeTexte LunarPhase Syracuse Papy-Jump Convertisseur ! SolveurDeSudoku VérificateurDeCodesBanquaire PrgmADiviser CryptageDeVigenere MiniSolv Reed-Solomon Code128Géodésie
 Adresse email Haut de page Bas de page 
 
Poster un nouveau sujet Poster une réponse





  Powered by Fire-Soft-Board v1.0.10 © 2004 - 2024 Groupe FSB
Page générée en 9 requêtes
BlackOne par Grimmlink