Discussion :

[Fred 57220]

Bonjour

quelqu'un a t'il utilisé cette ActiveX : ActiveX Chart3D Nevron.
je n'arrive pas à comprendre sa programmation.

il me faudrait un exemple d'utilisation pour un nuage de points.

Cordialement

Fred

[Fred 57220]

Bonjour , comme pas de réponse

voila ce que j'ai grapillé.

AX_Graphe est le champ ActiveX contenant le composant.

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
69
70
71
72
73
74
75
76
77
78
79
 
 
//axe x
POUR i=1 _A_ TableOccurrence(TABLE)
  AX_Graphe>>Categories>>Add ("C1" ,True)
FIN
 
// axe y
AX_Graphe>>Series>>Add ("S1",True)
AX_Graphe>>ChartWidth (5)
AX_Graphe>>ChartHeight (5)
AX_Graphe>>ChartDepth (5)
 
AX_Graphe>>EventManager>>MouseDragMode (1)
 
//info(AX_Graphe>>Categories>>GetCount , AX_Graphe>>Series>>GetCount)
 
 
POUR nX =0 _A_ AX_Graphe>>Categories>>GetCount -1
	POUR nY =0 _A_ AX_Graphe>>Series>>GetCount-1
		// axe x
		AX_Graphe>>DataAt(nX,nY,0)>>Value2 = TABLE_DataGridViewDonneeBrut[nx+1,2]
		//axe y
		AX_Graphe>>DataAt(nX,nY,0)>>Value3 = TABLE_DataGridViewDonneeBrut[nX+1,3]
		//Axe z
		AX_Graphe>>DataAt(nX,nY,0)>>Value1 = Remplace(TABLE_DataGridViewDonneeBrut[nX+1,4],".",",")
 
		//TABLE_DataGridViewDonneeBrut[nx+1,2] =AX_Graphe>>DataAt(nX,nY,0)>>Value2
		//TABLE_DataGridViewDonneeBrut[nX+1,3] =AX_Graphe>>DataAt(nX,nY,0)>>Value3 
		//TABLE_DataGridViewDonneeBrut[nX+1,4] =AX_Graphe>>DataAt(nX,nY,0)>>Value1
 
		InitHasard()
		nR est un entier = Hasard(255)
		InitHasard()
		nG est un entier = Hasard(255)
		InitHasard()
		nB est un entier = Hasard(255)
 
		AX_Graphe>>DataAt(nX,nY,0)>>FillEffect>>SetSolidColor (RGB( nR,nG,nB))
		AX_Graphe>>DataAt(nX,nY,0)>>Material>>SetAmbientDiffuseColor (RGB( nR,nG,nB))
	FIN
FIN
 
 
AX_Graphe>>PresentGroups>>add(7)//pgtPoint
AX_Graphe>>PresentGroups>>GetAt(0)>>Common>>Range>>InfiniteX (True)
AX_Graphe>>PresentGroups>>GetAt(0)>>Common>>Range>>InfiniteY (True)
AX_Graphe>>PresentGroups>>GetAt(0)>>Common>>Range>>InfiniteZ (True)
 
AX_Graphe>>PresentGroups>>GetAt(0)>>Common>>Name = "Nuage de points"
AX_Graphe>>PresentGroups>>GetAt(0)>>Size (0.1)
AX_Graphe>>PresentGroups>>GetAt(0)>>PointStyle (4)
AX_Graphe>>PresentGroups>>GetAt(0)>>Common>>EnableUniformAppearance (True)
AX_Graphe>>PresentGroups>>GetAt(0)>>Common>>UniformAppearances>>GetAt(0)>>FillEffect>>SetSolidColor (9)
AX_Graphe>>PresentGroups>>GetAt(0)>>Common>>UniformAppearances>>GetAt(0)>>Material>>SetAmbientDiffuseColor (9)
AX_Graphe>>PresentGroups>>GetAt(0)>>Common>>LegendMode (4)
 
AX_Graphe>>PresentGroups>>GetAt(0)>>UseXValue (True)
AX_Graphe>>PresentGroups>>GetAt(0)>>useYValue (True)
 
AX_Graphe>>LightModel>>SetLightScheme (3)
 
AX_Graphe>>labelcollection>>addheader ("Point chart")
AX_Graphe>>Background>>filleffect>>setGradient (1,200,150,RGB(125,125,125))
 
AX_Graphe>>Axes(0)>> Title = "Axe Z"
AX_Graphe>>axes(0)>>formatString ("%V(1,True,1)")
AX_Graphe>>axes(0)>>ScaleMode (3)
 
AX_Graphe>>Axes(4)>> Title = "Axe X"
AX_Graphe>>axes(4)>>formatString ("%V(1,True,1)")
AX_Graphe>>axes(4)>>ScaleMode (3)
 
AX_Graphe>>Axes(5)>> Title = "Axe Y"
AX_Graphe>>axes(5)>>formatString ("%V(1,True,1)")
AX_Graphe>>axes(5)>>ScaleMode (3)
 
 
AX_Graphe>>redraw (True)

Cordialement

Fred