Bonjour

je voudrai par programmation réaliser mon graphe. mais j'ai uns seul chose que je n'arrive pas à faire et je ne trouve pas.

j'aimerai mettre une croix à l'emplacement des points de ma courbe. dans la description du graphe cela est possible mais je n'ais pas trouvé d'instruction pour le faire par progammation.


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
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
SI grExiste(CST_NOMGRAPHE) ALORS grSupprimeTout(CST_NOMGRAPHE)
 
grCrée(CST_NOMGRAPHE,grCourbe)
 
// Définir la destination du graphique
grDestinationChamp(CST_NOMGRAPHE, GraphePRP)
//Construit paramètre
 
grTitre(CST_NOMGRAPHE, "Courbe de l'article : "+_psCodArt+" du "+LST_SOURCE..ValeurMémorisée+" du "+DateVersChaîne(DATEDEB,"JJ/MM/AAAA")+" au "+DateVersChaîne(DATEFIN,"JJ/MM/AAAA"), grEnHaut)
grTitreAxe(CST_NOMGRAPHE, "Prix en (€)", grOrdonnée)
 
 
 
nNbreTarifACh=TableauOccurrence(gfclTarifs:csTarifAch_Tab)
 
grLégende(CST_NOMGRAPHE, grADroite)
grEtiquetteSérie(CST_NOMGRAPHE, 1, LST_SOURCE..ValeurAffichée)
grEpaisseurTrait(CST_NOMGRAPHE, 1, 3)
//grGraduation(CST_NOMGRAPHE,1,grAbscisse)
 
grQuadrillage(CST_NOMGRAPHE,Vrai,grAbscisse)
grQuadrillage(CST_NOMGRAPHE,Vrai,grOrdonnée)
 
SI nNbreTarifACh>0 ALORS
 
	SI gfclTarifs:csTarifAch_Tab[1]:sDatedeb=DATEDEB ALORS
		SI gfclTarifs:csTarifAch_Tab[nNbreTarifACh]:sDatedeb=DATEFIN ALORS
			grOrigine(CST_NOMGRAPHE,1, nNbreTarifACh, grAbscisse)
		SINON	
			grOrigine(CST_NOMGRAPHE,1, nNbreTarifACh+1, grAbscisse)
			grEtiquetteCatégorie(CST_NOMGRAPHE, nNbreTarifACh+1, DateVersChaîne(DATEFIN,"JJ/MM/AAAA"))
		FIN
 
	SINON	
		SI gfclTarifs:csTarifAch_Tab[nNbreTarifACh]:sDatedeb=DATEFIN ALORS
			grOrigine(CST_NOMGRAPHE,0, nNbreTarifACh, grAbscisse)
		SINON	
			grOrigine(CST_NOMGRAPHE,0, nNbreTarifACh+1, grAbscisse)
			grEtiquetteCatégorie(CST_NOMGRAPHE, nNbreTarifACh+1, DateVersChaîne(DATEFIN,"JJ/MM/AAAA"))
		FIN
		grEtiquetteCatégorie(CST_NOMGRAPHE, 0, DateVersChaîne(DATEDEB,"JJ/MM/AAAA"))
	FIN
 
	PL_CalculBorneOrdonner(LST_SOURCE..ValeurMémorisée,nNbreTarifACh,nBorneMinOr, nBorneMaxOr)
	grOrigine(CST_NOMGRAPHE,nBorneMinOr, nBorneMaxOr, grOrdonnée)
 
	POUR nIndice = 1 A nNbreTarifACh
		SELON LST_SOURCE..ValeurMémorisée
			CAS "PAB"
				grAjouteDonnée(CST_NOMGRAPHE, 1, nIndice, gfclTarifs:csTarifAch_Tab[nIndice]:mPab)
			CAS "PAF"
				grAjouteDonnée(CST_NOMGRAPHE, 1 ,nIndice, gfclTarifs:csTarifAch_Tab[nIndice]:mPaf)
			CAS "PAN"
				grAjouteDonnée(CST_NOMGRAPHE, 1,nIndice, gfclTarifs:csTarifAch_Tab[nIndice]:mPan)
			CAS "PANN"
				grAjouteDonnée(CST_NOMGRAPHE, 1, nIndice, gfclTarifs:csTarifAch_Tab[nIndice]:mPann)
			CAS "PANNN"
				grAjouteDonnée(CST_NOMGRAPHE, 1, nIndice, gfclTarifs:csTarifAch_Tab[nIndice]:mPannn)
 
			AUTRE CAS
 
		FIN
		grEtiquetteCatégorie(CST_NOMGRAPHE, nIndice, DateVersChaîne(gfclTarifs:csTarifAch_Tab[nIndice]:sDatedeb,"JJ/MM/AAAA"))
		//info(gfclTarifs:csTarifAch_Tab[nIndice]:mPannn)
	FIN
	grLissage(CST_NOMGRAPHE, Vrai)
FIN
grDessine(CST_NOMGRAPHE)