mschart

**bourvil** · 11/11/2003, 09h40

salut!
qq peut me dire comment utiliser mschart pour faire des graphe ds ma page asp?
merci

**[DreaMs]** · 12/11/2003, 16h08

Voici un extrait de mon code je pense que cela peut t'aider :

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
' Crée un objet Graphique
 
dim cspace
set cspace = Createobject("OWC10.Chartspace")
dim c
set c = cspace.Constants
dim cht
set cht = cspace.Charts.Add()
 
' Rajoute les données au graphique
 
cspace.Charts(0).Type = c.chChartTypePieExploded
cspace.Charts(0).HasTitle = True
cspace.Charts(0).HasLegend = True
 
cht.SetData c.chDimSeriesNames, c.chDataLiteral, "Camembert"
cht.SetData c.chDimCategories, c.chDataLiteral, serie
cht.SeriesCollection(0).SetData c.chDimValues, c.chDataLiteral, collection
 
cspace.Charts(0).Title.Caption = "Résultat par secteur"
 
' Renvoi l'image
 
Response.ContentType = "image/GIF"
Response.BinaryWrite cspace.GetPicture("GIF", 500, 300)

Ici "serie" et "collection" sont des chaines du type :

"1, 2, 23, 12, 5" ....
"Janvier, Février, Mars, Avril ..."

Le code précédent tu le mets dans un fichier que tu appels par exemple graph1.asp et puis après tu le fais afficher sous forme d'image :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
<img src="graph1.asp">

Voila ! Si tu veux des explications plus précises j'essayerais de t'aider

**bourvil** · 12/11/2003, 16h50

merci beaucoup je vais me debrouiller

**isa21493** · 21/06/2005, 12h53

j'ai essayé de faire ça mais ça marche pas:

dans test_graph.asp:

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
<Html> 
<Head>	
<TITLE> périmètre </TITLE>
<!-- titre de la page d'identification de MOUSTIC -->
 
</Head>
<Body background="fond8.jpg">
 
' Crée un objet Graphique 
 
<%dim cspace 
set cspace = Createobject("OWC10.Chartspace") 
dim c 
set c = cspace.Constants 
dim cht 
set cht = cspace.Charts.Add() 
 
' Rajoute les données au graphique 
 
cspace.Charts(0).Type = c.chChartTypePieExploded 
cspace.Charts(0).HasTitle = True 
cspace.Charts(0).HasLegend = True 
 
cht.SetData c.chDimSeriesNames, c.chDataLiteral, "Camembert" 
cht.SetData c.chDimCategories, c.chDataLiteral, "1,2,3" 
cht.SeriesCollection(0).SetData c.chDimValues, c.chDataLiteral, "Janvier, Février" 
 
cspace.Charts(0).Title.Caption = "Résultat par secteur" 
 
' Renvoi l'image 
 
Response.ContentType = "image/GIF" 
Response.BinaryWrite cspace.GetPicture("GIF", 500, 300)%>
</body>
</html>