Création d'un graph par programmation

Version imprimable

Bonjour à Tous,

Je cale sur le problème suivant:

Je souhaite obtenir autant de courbes que de série, mais je n'arrive qu'à avoir les courbes les une à la suite des autres
Code:

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 nValeur1 est un entier nValeur2 est un entier nValeur3 est un entier nValeur4 est un entier nValeur5 est un entier nValeur6 est un entier POUR TOUTE LIGNE DE TABLE_FREQ1 SI COL_SELECT=Vrai ALORS nValeur1 = TABLE_FREQ1[TABLE_FREQ1][1] nValeur2 = TABLE_FREQ1[TABLE_FREQ1][3] nValeur3 = TABLE_FREQ1[TABLE_FREQ1][4] nValeur4 = TABLE_FREQ1[TABLE_FREQ1][5] nValeur5 = TABLE_FREQ1[TABLE_FREQ1][6] nValeur6 = TABLE_FREQ1[TABLE_FREQ1][7] grAjouteDonnée("MonGraphe", 1, nValeur1) // Janvier grAjouteDonnée("MonGraphe", 2, nValeur2) // Février grAjouteDonnée("MonGraphe", 3, nValeur3) // Mars grAjouteDonnée("MonGraphe", 4, nValeur4) // Avril grAjouteDonnée("MonGraphe", 5, nValeur5) // Mai grAjouteDonnée("MonGraphe", 6, nValeur6) // Juin ... SINON FIN FIN
J'alimente le graph via une table qui affiche:

En ligne: un lieu
En colonne: Un niveau de consommation par mois (donc 12 colonnes)

Mon soucis est que ma table affiche 3 lignes et que je souhaite 3 courbes les unes au dessus des autres et non dans la continuité

Pourriez vous me guider et me mettre sur la voie
Bien à vous

24/06/2015, 08h55
Nicolas_Jeanneau

Bonjour,

je ne crois pas avoir vu de graphe avec les séries qui peuvent se cumuler. Je pense que le plus simple serait d'additionner les valeurs en amont dans la source de données ...

bon courage,

Nicolas
24/06/2015, 10h22
Raptor92

Réponse

Bonjour

Merci pour votre réponse
pour autant, dès lors que cela est possible dans un champ graph, cela doit l'être en programmation
Je continue à chercher

Bien à vous

Bonjour,

De ce que je comprends, le code suivant ne fera pas le résultat voulu :
Code:

1 2 3 4 5 6 7 ... grAjouteDonnée("MonGraphe", 1, nValeur1) // Janvier grAjouteDonnée("MonGraphe", 2, nValeur2) // Février grAjouteDonnée("MonGraphe", 3, nValeur3) // Mars grAjouteDonnée("MonGraphe", 4, nValeur4) // Avril grAjouteDonnée("MonGraphe", 5, nValeur5) // Mai grAjouteDonnée("MonGraphe", 6, nValeur6) // Juin ...
Votre indice 1...6 correspond à la série --> le lieux et non le mois
nValeur correspond bien à la valeur
Par contre c'est une boucle de 12 points par exemple pour 1 an (1 point par mois) qu'il vous faut pour afficher chaque mois de chaque série.

en pseudo code cela donnerait quelque chose comme cela :
Code:

1 2 3 4 5 6 POUR i = 1 A 12 //Nb de mois POUR j = 1 A nbLieux grAjouteDonnée("MonGraphe", j, MaBonneValeur[i][j]) FIN FIN
Cordialement

24/06/2015, 14h32
Raptor92

Re

Bonjour

Merci pour votre aide
Je tente mais sans succès pour le moment
Je continue de tenter d'adapter votre solution

Bien à vous

1 pièce(s) jointe(s)

Juste pour être sûr que je comprenne bien votre souci, le résultat doit être quelque chose comme ça :

Pièce jointe 181443

Le code correspondant sans boucle ressemble à cela :

Code:

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
grAjouteDonnée(GRF_Graphe,1,1)
grAjouteDonnée(GRF_Graphe,1,15)
grAjouteDonnée(GRF_Graphe,1,8)
grAjouteDonnée(GRF_Graphe,1,22)
grAjouteDonnée(GRF_Graphe,1,12)
grAjouteDonnée(GRF_Graphe,1,16)
grAjouteDonnée(GRF_Graphe,1,11)
grAjouteDonnée(GRF_Graphe,1,11)
grAjouteDonnée(GRF_Graphe,1,5)
grAjouteDonnée(GRF_Graphe,1,16)
grAjouteDonnée(GRF_Graphe,1,12)
grAjouteDonnée(GRF_Graphe,1,10)
 
 
grAjouteDonnée(GRF_Graphe,2,10)
grAjouteDonnée(GRF_Graphe,2,13)
grAjouteDonnée(GRF_Graphe,2,4)
grAjouteDonnée(GRF_Graphe,2,2)
grAjouteDonnée(GRF_Graphe,2,12)
grAjouteDonnée(GRF_Graphe,2,4)
grAjouteDonnée(GRF_Graphe,2,16)
grAjouteDonnée(GRF_Graphe,2,19)
grAjouteDonnée(GRF_Graphe,2,10)
grAjouteDonnée(GRF_Graphe,2,11)
grAjouteDonnée(GRF_Graphe,2,20)
grAjouteDonnée(GRF_Graphe,2,13)
 
grDessine(GRF_Graphe)

Cordialement

Bonsoir

En effet, c'est exactement ce que je recherche

Mon soucis est de remplir la partie quantité

1- J'ai une requête multiple qui remplie les quantités livrées dans les 12 colonnes de ma table (de janvier à décembre)
2- Il ressort entre 3 et 5 lignes compte tenu des 3 à 5 lieux livrés

Ta solution (qui fonctionne bien entendu), nécessite que la valeur soit celle figurant dans chacune des colonnes des mois et ceci pour chaque série

Et là............J'avoue sécher !!

Code:

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
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
 
 
// Création du graphe
grCrée("MonGraphe", grCourbe) 		
// Destination du graphe
// image1 est le nom du champ image qui se trouve dans la fenêtre.
grDestinationChamp("MonGraphe",IMG_GRPH)
// Titre du graphe
grTitre("MonGraphe", "")
//Définition des police du graphe
sMaPolice est une Police
// Création de la police
sMaPolice = PoliceCrée("Arial", 8, iNormal,iBlanc)
// Police des étiquettes
grPoliceEtiquette("MonGraphe", sMaPolice)
// Police de la légende
grPoliceLégende("MonGraphe", sMaPolice)
// Police du titre du graphe
grPoliceTitre("MonGraphe", sMaPolice)
// Police du titre des axes
grPoliceTitreAxe("MonGraphe", sMaPolice)
// Active le menu contextuel du graphe "MonGraphe"
grMenu("MonGraphe", Vrai)
// Affichage du pourcentage des valeurs
grLibellé("MonGraphe",grAffichePourcentage,Vrai)
// Affichage des valeurs
grLibellé("MonGraphe", grAfficheValeur, Vrai)
// La fonction grmasque permet des définir un format d'affichage des valeurs
grMasque("MonGraphe",grMasqueValeur,"999 999 999")
// Affichage des étiquettes
grLibellé("MonGraphe", grAfficheEtiquette, Vrai)
//Titre des axes
grTitreAxe("MonGraphe","MONTH",grAbscisse)
//grParamètre("MonGraphe", grGraduationsOptimiséesX, Vrai)
//grGraduation("MonGraphe",7,grAbscisse)
grTitreAxe("MonGraphe","LEVEL of INFESTATION",grOrdonnée)
// Affichage en relief
grRelief("MonGraphe", 5)
 
POUR i = 1 A TableOccurrence(TABLE_FREQ1)
 
        // -- On sélectionne les lignes que l'ont souhaite voir dans le graphe
	SI COL_SELECT[i]=Vrai ALORS
 
	grAjouteDonnée("MonGraphe",1,15)
	grAjouteDonnée("MonGraphe",1,8)
	grAjouteDonnée("MonGraphe",1,22)
	grAjouteDonnée("MonGraphe",1,12)
	grAjouteDonnée("MonGraphe",1,16)
	grAjouteDonnée("MonGraphe",1,11)
	grAjouteDonnée("MonGraphe",1,11)
	grAjouteDonnée("MonGraphe",1,5)
	grAjouteDonnée("MonGraphe",1,16)
	grAjouteDonnée("MonGraphe",1,12)
	grAjouteDonnée("MonGraphe",1,10)
 
 
	grAjouteDonnée("MonGraphe",2,10)
	grAjouteDonnée("MonGraphe",2,13)
	grAjouteDonnée("MonGraphe",2,4)
	grAjouteDonnée("MonGraphe",2,2)
	grAjouteDonnée("MonGraphe",2,12)
	grAjouteDonnée("MonGraphe",2,4)
	grAjouteDonnée("MonGraphe",2,16)
	grAjouteDonnée("MonGraphe",2,19)
	grAjouteDonnée("MonGraphe",2,10)
	grAjouteDonnée("MonGraphe",2,11)
	grAjouteDonnée("MonGraphe",2,20)
	grAjouteDonnée("MonGraphe",2,13)
 
	SINON
 
	FIN
 
FIN
 
// Dessin du graphe
grDessine("MonGraphe")

Bien à vous

24/06/2015, 22h03
Ry_Yo
L'idée est que si vous avez que les 12 mois de l'année, c'est de renommer les colonnes de ce Type : COL_MOIS_1, COL_MOIS_2, COL_MOIS_3, etc...

Comme ça vous passez en indirection pour récupérer les mois au fur est à mesure

Cela donnera un truc comme cela dans l'idée :
Code:

1 2 3 4 5 6 7 POUR TOUTE LIGNE DE maTable POUR i = 1 A 12 ... {"COL_MOIS_"+i,indChamp} ... ... FIN FIN
24/06/2015, 22h44
Raptor92

RE
Bonsoir
Code:

1 2 {"COL_MOIS_"+i,indChamp}
Cela me renvois "COL_JANV1" donc erreur

et en remplaçant par
Code:

1 2 {"COL_MOIS_"[i],indChamp}
Cela ne fonctionne pas

Et mille merci pour votre aide
Bien à vous
24/06/2015, 22h59
Ry_Yo

Le comportement que vous avez est tout à fait normal :aie:

De ce que je comprends, vos colonnes s'appelle : COL_JAN, COL_FEV, COL_MARS,etc....
Il faut les renommer en : COL_MOIS_1, COL_MOIS_2, etc...

Le code que vous avez écrit demande à Windev de chercher une colonne qui s'appelle COL_JANV1 or cette colonne n'existe pas dans votre table. D'où l'erreur...

Je pense qu'il me faut reposer le cerveau quelques heures

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
POUR i = 1 A 12	
		SI COL_SELECT[i]=Vrai ALORS
		//  Avec table1[i][1], nous récupérons le lieu
		// la valeur 1 correspond au numéro de la série. 
				grAjouteDonnée("MonGraphe",1, {"COL_MOIS_"+i,indChamp}) 
				grAjouteDonnée("MonGraphe",1, {"COL_MOIS_"+i,indChamp})
				grAjouteDonnée("MonGraphe",1, {"COL_MOIS_"+i,indChamp})
				grAjouteDonnée("MonGraphe",1, {"COL_MOIS_"+i,indChamp})
				grAjouteDonnée("MonGraphe",1, {"COL_MOIS_"+i,indChamp})
				grAjouteDonnée("MonGraphe",1, {"COL_MOIS_"+i,indChamp})
				grAjouteDonnée("MonGraphe",1, {"COL_MOIS_"+i,indChamp})
				grAjouteDonnée("MonGraphe",1, {"COL_MOIS_"+i,indChamp})
				grAjouteDonnée("MonGraphe",1, {"COL_MOIS_"+i,indChamp})
				grAjouteDonnée("MonGraphe",1, {"COL_MOIS_"+i,indChamp})
				grAjouteDonnée("MonGraphe",1, {"COL_MOIS_"+i,indChamp})
				grAjouteDonnée("MonGraphe",1, {"COL_MOIS_"+i,indChamp})
				FIN
			FIN

Les mois sont maintenant bien détectés, mais je n'arrive pas à créer les courbes les unes au dessus des autres
Je tenterais demain

Quoi qu'il en soit
merci beaucoup

Il reste encore 1 erreur et une boucle manquante :)
Code:

1 2 3 4 5 6 7 POUR i = 1 A 12 SI COL_SELECT[i]=Vrai ALORS // Avec table1[i][1], nous récupérons le lieu // la valeur 1 correspond au numéro de la série. grAjouteDonnée("MonGraphe",1, {"COL_MOIS_"+i,indChamp}) ....
A la ligne 3 ci-dessus : "i" correspond à l'indice des "colonnes" et non à l'indice des lignes, il faut donc une boucle supplémentaire qui parcours les lignes cf. mes posts précédents
A la ligne 6 ci-dessus : la valeur 1 que vous avez écrit doit correspondre à l'indice de la ligne car vous dites qu'un lieu ne peut correspondre qu'à une seule ligne du tableau, et comme plus haut on a créé notre boucle de parcours du tableau, on sait récupérer le bon indice de ligne.[/B]

Bonjour,

il faut juste paramétrer l'indice de série et de celui de la colonne peut être fixe dans 12 lignes de code.

En prenant un bout de ton code :

Code:

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
49
50
51
52
53
54
55
56
57
58
59
 
// Création du graphe
grCrée("MonGraphe", grCourbe) 		
// Destination du graphe
// image1 est le nom du champ image qui se trouve dans la fenêtre.
grDestinationChamp("MonGraphe",IMG_GRPH)
// Titre du graphe
grTitre("MonGraphe", "")
//Définition des police du graphe
sMaPolice est une Police
// Création de la police
sMaPolice = PoliceCrée("Arial", 8, iNormal,iBlanc)
// Police des étiquettes
grPoliceEtiquette("MonGraphe", sMaPolice)
// Police de la légende
grPoliceLégende("MonGraphe", sMaPolice)
// Police du titre du graphe
grPoliceTitre("MonGraphe", sMaPolice)
// Police du titre des axes
grPoliceTitreAxe("MonGraphe", sMaPolice)
// Active le menu contextuel du graphe "MonGraphe"
grMenu("MonGraphe", Vrai)
// Affichage du pourcentage des valeurs
grLibellé("MonGraphe",grAffichePourcentage,Vrai)
// Affichage des valeurs
grLibellé("MonGraphe", grAfficheValeur, Vrai)
// La fonction grmasque permet des définir un format d'affichage des valeurs
grMasque("MonGraphe",grMasqueValeur,"999 999 999")
// Affichage des étiquettes
grLibellé("MonGraphe", grAfficheEtiquette, Vrai)
//Titre des axes
grTitreAxe("MonGraphe","MONTH",grAbscisse)
//grParamètre("MonGraphe", grGraduationsOptimiséesX, Vrai)
//grGraduation("MonGraphe",7,grAbscisse)
grTitreAxe("MonGraphe","LEVEL of INFESTATION",grOrdonnée)
// Affichage en relief
grRelief("MonGraphe", 5)
 
POUR i = 1 _A_ TableOccurrence(TABLE_FREQ1)
        // -- On sélectionne les lignes que l'ont souhaite voir dans le graphe
	SI COL_SELECT[i]=Vrai ALORS
            grAjouteDonnée("MonGraphe",i, COL_MOIS_1[i]) 
            grAjouteDonnée("MonGraphe",i, COL_MOIS_2[i]) 
            grAjouteDonnée("MonGraphe",i, COL_MOIS_3[i]) 
            grAjouteDonnée("MonGraphe",i, COL_MOIS_4[i]) 
            grAjouteDonnée("MonGraphe",i, COL_MOIS_5[i]) 
            grAjouteDonnée("MonGraphe",i, COL_MOIS_6[i]) 
            grAjouteDonnée("MonGraphe",i, COL_MOIS_7[i]) 
            grAjouteDonnée("MonGraphe",i, COL_MOIS_8[i]) 
            grAjouteDonnée("MonGraphe",i, COL_MOIS_9[i]) 
            grAjouteDonnée("MonGraphe",i, COL_MOIS_10[i]) 
            grAjouteDonnée("MonGraphe",i, COL_MOIS_11[i]) 
            grAjouteDonnée("MonGraphe",i, COL_MOIS_12[i]) 
        FIN
FIN
 
 
// Dessin du graphe
grDessine("MonGraphe")

bon courage,

Nicolas

25/06/2015, 20h12
Ry_Yo
L'erreur concerne cette ligne :
Code:

1 2 POUR i = 1 _A_ TableOccurrence(TABLE_FREQ1) ...
L'erreur du compilateur indique simplement que vous ne pouvez pas vous servir de l'instruction "_A_ TableOccurrence(TABLE_FREQ1)" Et de remplacer cela par une variable locale
Code:

1 2 3 4 5 6 nNbLigne est un entier nNbLigne = TableOccurrence(TABLE_FREQ1) POUR i = 1 _A_ nNbLigne ... FIN
25/06/2015, 20h49
Raptor92

Remerciements

Cher Ami,

Je ne saurais vous remercier assez
En effet, votre aide me permet de finaliser mon projet tel que je le souhaitais

Encore merci
Bien à vous