salut pour tous.
comment faire un graphe depuis un table(stringgrid);
merci d'avence.
salut pour tous.
comment faire un graphe depuis un table(stringgrid);
merci d'avence.
ou alors tu t'en fais un...
tiens un exemple tout à fait basique mais que tu peux améliorer...
tu as une ébauche que tu peux largement améliorer...
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 unit UTraceur; interface uses graphics,Types; type TGrapheur=Class(TBitmap) private xo,yo:integer; public constructor create(largeur,hauteur:integer); procedure tracerepere(xopourcentage,yopourcentage,epaisseur:integer;axex,axey:string;couleur:Tcolor); Procedure tracecourbe(x,y:extended;maxx,maxy:integer); end; implementation constructor TGrapheur.create(largeur,hauteur:integer); begin inherited create; height:=hauteur; width:=largeur; end; procedure TGrapheur.tracerepere(xopourcentage,yopourcentage,epaisseur:integer;axex,axey:String;couleur:Tcolor); begin xo:=round(xopourcentage/100*Width); yo:=round(yopourcentage/100*height); with canvas do begin pen.width:=epaisseur; pen.color:=couleur; moveto(round(0.05*Width),yo); lineto(round(0.95*Width),yo); moveto(round(0.95*Width),yo); lineto(round(0.95*Width-width div 30),Round(yo-width div 80)); moveto(round(0.95*Width),yo); lineto(round(0.95*Width-width div 30),Round(yo+width div 80)); moveto(xo,width div 30); lineto(xo,height-width div 30); moveto(xo,width div 30); lineto(xo-width div 80,2*width div 30); moveto(xo,width div 30); lineto(xo+width div 80,2*width div 30); Font.Size:=width div 40; Textout(width-width div 10,yo+width div 80,axex); Textout(xo+width div 40,width div 30,axey); end; end; Procedure TGrapheur.tracecourbe(x,y:extended;maxx,maxy:integer); var GX,GY:integer; begin GX:=Round((width/Maxx)*x+xo); GY:=Round((-width/maxx)*y+yo); with canvas do begin moveto(-width div 100+GX,GY); lineto(width div 100+GX,GY); moveto(GX,GY-width div 100); lineto(GX,GY+width div 100); end; end; end.
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager