PC SOFT

FOROS PROFESIONALES
WINDEVWEBDEV y WINDEV Mobile

Inicio → WINDEV 2024 → Diagramme XY (nuage de points)
Diagramme XY (nuage de points)
Iniciado por constant.depiereux, 09,mar. 2006 07:11 - No hay respuesta
Publicado el 09,marzo 2006 - 07:11
Je ne parviens pas à faire fonctionner grorigine, grtitreaxe sur un diagramme nuage de points dans le code ci-après.

Le graphe s'affiche, titre y compris, mais les axes ne se redimensionnent pas (alors qu'à partir du graphe ouvert en test ou dans l'executable, c'est possible avec d'autres type de graphe).

Auriez-vous une explication, voire une solution?

D'avance merci.


Constant Depièreux

-----------------


grCrée(gsNuageGraph,gr3DSNuage, Vrai)

grTitle(gsNuageGraph,"Analyse du voisinage de "+Table.geoentitiessdsc,grEnHaut)

grTitreAxe(gsNuageGraph,"Longitude",grAbscisse)
grTitreAxe(gsNuageGraph,"Latitude",grOrdonnée)



// Exécution de la requête
bResExécution est un booléen = HExécuteRequête(REQ_coordonneesGPS)
// Erreur lors de l'exécution de la requête ?
SI bResExécution = Vrai ALORS
// Lecture du premier enregistrement du résultat de la requête
HLitPremier(REQ_coordonneesGPS)
i est un entier = 0
rMinLong est un réel = 90
rMaxLong est un réel = 0
rMinLat est un réel = 90
rMaxLat est un réel = 0
CurrentLong est un réel = 0
CurrentLat est un réel = 0

TANTQUE PAS HEnDehors
// Impression de la facture pour chaque enregistrement
i=i+1
CurrentLong = StandardizeCoordonnéesGPS(REQ_coordonneesGPS.Longitude)
CurrentLat = StandardizeCoordonnéesGPS(REQ_coordonneesGPS.Latitude)
SI CurrentLong>rMaxLong ALORS rMaxLong=CurrentLong
SI CurrentLong<rMinLong ALORS rMinLong=CurrentLong
SI CurrentLat>rMaxLat ALORS rMaxLat=CurrentLat
SI CurrentLat<rMinLat ALORS rMinLat=CurrentLat
grNuageAjouteDonnéeXY(gsNuageGraph,1,i,CurrentLong,CurrentLat)
HLitSuivant(REQ_coordonneesGPS) // Lecture de l'enregistrement suivant
FIN
SINON
// Affichage du message d'erreur
Erreur("La requête n'a pas été exécutée.")
FIN



grNuageReliePoint(gsNuageGraph,Faux)

Message(rMinLong+" - "+rMaxLong+" - "+rMinLat+" - "+rMaxLat)

grOrigine(gsNuageGraph,rMinLong,rMaxLong,grAbscisse)
grGraduation(gsNuageGraph,0,grAbscisse)
grOrigine(gsNuageGraph,rMinLat,rMaxLat,grOrdonnée)
grGraduation(gsNuageGraph,0,grOrdonnée)

grDestinationChamp(gsNuageGraph,IMG_Nuage)

grDessine(gsNuageGraph)