Discussion :

[demonjhon]

Bonjour a tous,


Voici mon code ainsi que le résultat. Je ne comprend pas ce qui cloche !?

Des idées ?

Merci a tous !

[djejackk]

Bonjour,

Dans votre algo, vous ne positionnez qu'une seule valeur par mois : grAjouteDonnées "remplace" la donnée courante si elle est déjà fixée.
Si vous conservez cet algo, il faudrait plutôt passer par grIncrémenteDonnées.

[tbc92]

Pour poster du code, il ne faut pas poster une image, mais il faut copier le code, et il faut utiliser le bouton # (barre de boutons au dessus de la zone de saisie) pour que le code s'affiche correctement.

[demonjhon]

Merci avec ce code ça fonctionne déjà bien mieux ^^ Merci !

Par contre toujours un petit hic. Les étiquettes de l'axe x ne s'affiche pas "janvier février etc ..."

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
TANTQUE HEnDehors(Historique)= Faux
	mois_en_cours_hist = Historique.date..Mois
 
 
	SELON mois_en_cours_hist
		CAS 1
			grIncrémenteDonnée(GRF_nourri,1,mois_en_cours_hist,Historique.Quantité_distribué)
			grEtiquetteSérie(GRF_nourri,1,"Janvier")		
		CAS 2
			grIncrémenteDonnée(GRF_nourri,2,mois_en_cours_hist,Historique.Quantité_distribué)
			grEtiquetteSérie(GRF_nourri,2,"Février")
		CAS 3
			grIncrémenteDonnée(GRF_nourri,3,mois_en_cours_hist,Historique.Quantité_distribué)
			grEtiquetteSérie(GRF_nourri,3,"Mars")
		CAS 4
			grIncrémenteDonnée(GRF_nourri,4,mois_en_cours_hist,Historique.Quantité_distribué)
			grEtiquetteSérie(GRF_nourri,4,"Avril")
		CAS 5
			grIncrémenteDonnée(GRF_nourri,5,mois_en_cours_hist,Historique.Quantité_distribué)
			grEtiquetteSérie(GRF_nourri,5,"Mai")
		CAS 6
			grIncrémenteDonnée(GRF_nourri,6,mois_en_cours_hist,Historique.Quantité_distribué)
			grEtiquetteSérie(GRF_nourri,6,"Juin")
		CAS 7
			grIncrémenteDonnée(GRF_nourri,7,mois_en_cours_hist,Historique.Quantité_distribué)
			grEtiquetteSérie(GRF_nourri,7,"Juillet")
		CAS 8
			grIncrémenteDonnée(GRF_nourri,8,mois_en_cours_hist,Historique.Quantité_distribué)
			grEtiquetteSérie(GRF_nourri,8,"Aout")
		CAS 9
			grIncrémenteDonnée(GRF_nourri,9,mois_en_cours_hist,Historique.Quantité_distribué)
			grEtiquetteSérie(GRF_nourri,9,"Septembre")
		CAS 10
			grIncrémenteDonnée(GRF_nourri,10,mois_en_cours_hist,Historique.Quantité_distribué)
			grEtiquetteSérie(GRF_nourri,10,"Octobre")
		CAS 11
			grIncrémenteDonnée(GRF_nourri,11,mois_en_cours_hist,Historique.Quantité_distribué)
			grEtiquetteSérie(GRF_nourri,11,"Novembre")
		CAS 12
			grIncrémenteDonnée(GRF_nourri,12,mois_en_cours_hist,Historique.Quantité_distribué)
			grEtiquetteSérie(GRF_nourri,12,"Décembre")
 
		AUTRE CAS
	FIN
 
	HLitSuivant(Historique)
FIN
grDessine(GRF_nourri)

[djejackk]

Par contre toujours un petit hic. Les étiquettes de l'axe x ne s'affiche pas "janvier février etc ..."

Il faut regarder dans les options du graphe (dans la fenêtre de description).
(il y a peut être aussi une fonction pour afficher ou masquer ces étiquettes)

Et je ne pratique pas du tout les graphes "3D", mais il y a peut être des éléments qui ne sont pas affichés dans un tel cas.

[frenchsting]

Un petit avis sur ton code : dans ton selon tu fais 12 fois la même chose en fonction du numéro du mois. Si tu fais une modif, tu vas être obligé de la faire 12 fois...
J'aurais bien vu un code comme celui-ci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
TabMois es un tableau de chaines =["janvier", "février",...]
[......]
// Remplacement du selon :
SI 1<= mois_en_cours_hist <=12 ALORS
	grIncrémenteDonnée(GRF_nourri, mois_en_cours_hist, mois_en_cours_hist,Historique.Quantité_distribué)
	grEtiquetteSérie(GRF_nourri,1, TabMois[mois_en_cours_hist])
FIN

[tbc92]

L'amélioration proposée par Frenchsting fait que le bug devient plus visible: grIncrémenteDonnée(GRF_nourri, mois_en_cours_hist, mois_en_cours_hist,Historique.Quantité_distribué)Dans ton graphe, tu définis 12 séries, chaque série a 12 valeurs ... mais en fait, dans ton tableau de 12x12 données, tu n'as que 12 valeurs.

Normalement , tu devrais avoir 1 seule série.
Donc : grIncrémenteDonnée(GRF_nourri, 1 , mois_en_cours_hist,Historique.Quantité_distribué)Et si on se fie à la documentation, c'est GrEtiquetteCatégorie qui convient : Doc

Dans le graphe dessiné sur cette page de documentation, on a 2 séries, une en bleu et une en violet.

Il faut reconnaître que le vocabulaire concernant les graphes n'est pas toujours intuitif. La distinction entre séries et catégories... bof.

[demonjhon]

En effet, je me suis rendu compte de mon erreur au sujet des series et l'amélioration proposé par frenchsting
me parait des plus opportune et je vais peut être également l'appliqué a d'autres parties de
mon code.
Cela ne fait que 2 semaines que je code sur windev donc je suis en apprentissage si on peut dire !

Merci de votre aide