grafico a linee senza dll

[s|n3]

come da oggetto...devo realizzare un grafico a linee pescando i dati da un DB e sopratutto senza avere la possibilità di installare alcun componente sul server.

soluzioni consigliate?

[Corinna]

Ma un grafico a linee sarebbe un istogramma, Lello?
In tal caso è facile, se no mi sa che ti impicchi

[s|n3]

Originariamente inviato da Corinna
Ma un grafico a linee sarebbe un istogramma, Lello?
In tal caso è facile, se no mi sa che ti impicchi

no l'istogramma ci mettevo 2 secondi a farlo


se guardi qua

capisci di che grafico parlo

cmq ho scoperto che posso installare dll sul server per la modica cifra di 25 euri...quindi mi sa che opto per il componente microsoft




e cmq non assomiglio a lello arena

[Corinna]

U-G-U-A-L-E
Beh, ti sei risolto il problema da solo.
Felice di esserti stata perfettamente inutile

[s|n3]

Originariamente inviato da Corinna
U-G-U-A-L-E
Beh, ti sei risolto il problema da solo.
Felice di esserti stata perfettamente inutile

mica tanto risolto...ho qualke problemino con quel componente...se passi a dare uno sguardo a quell'altra discussione mica fai male

[kluster]

una cara e vecchia applet java?
se ti interessa:
il download
http://www.graphscharts.com/line-graphs/download.cfm
l'esempio per come utilizzarlo con asp + codice sorgente asp:
http://www.graphscharts.com/line-graphs/asp-example.cfm

[s|n3]

Originariamente inviato da kluster
una cara e vecchia applet java?
se ti interessa:
il download
http://www.graphscharts.com/line-graphs/download.cfm
l'esempio per come utilizzarlo con asp + codice sorgente asp:
http://www.graphscharts.com/line-graphs/asp-example.cfm

vado a vedere...però mi sa che non va bene...a me serve che crei un immagine sul server da allegare ad una mail

[DjLode]

Set ChartObj = Server.CreateObject("OWC10.ChartSpace") 
Set ChartConsts = ChartObj.Constants 
set NewChart = ChartObj.Charts.Add 

'6=linea spezzata
NewChart.Type = 6

'Imposta valori primo grafico 
Set Serie = NewChart.SeriesCollection.Add
Serie.Caption = ""
Serie.Line.Color = "RoyalBlue"
Serie.SetData ChartConsts.chDimCategories, ChartConsts.chDataLiteral, GraphLabels 
Serie.SetData ChartConsts.chDimValues, ChartConsts.chDataLiteral, lista

ChartObj.Charts(0).Axes(0).Font.Name = "Tahoma"
ChartObj.Charts(0).Axes(0).Font.Size = 7

ChartObj.Charts(0).Axes(1).HasMajorGridlines = false
ChartObj.Charts(0).Axes(1).HasMinorGridlines = false
ChartObj.Charts(0).Axes(1).MajorGridlines.Line.Weight = 1
ChartObj.Charts(0).Axes(1).MinorGridlines.Line.Color = "lightgrey"
ChartObj.Charts(0).Axes(0).HasMinorGridLines = false
ChartObj.Charts(0).Axes(0).MinorGridlines.Line.Color = "lightgrey"
ChartObj.Charts(0).PlotArea.Interior.SetSolid "white"

ChartObj.Charts(0).HasTitle=true
ChartObj.Charts(0).Title.Font.Name = "Verdana"
ChartObj.Charts(0).Title.Font.Size = "8"
ChartObj.Charts(0).Title.Font.Bold = true
ChartObj.Charts(0).Title.Caption = ""

'Salva l'immagine 
filename = "/tmp/" & Int(rnd*10000) & ".gif"
ImagePath=server.mappath(filename) 

ChartObj.Charts(0).HasLegend = True
ChartObj.Charts(0).Legend.Position = 2

ChartObj.Charts(0).HasTitle=true
ChartObj.Charts(0).Title.Font.Name = "Verdana"
ChartObj.Charts(0).Title.Font.Size = "8"
ChartObj.Charts(0).Title.Font.Bold = true

'Salviamo l'immagine
ChartObj.ExportPicture ImagePath,"gif", 670, 260 

set NewChart = nothing 
set ChartConsts = nothing 
set ChartObj = nothing

response.write "
<center>[img][/img]</center>"

In GraphLabels hai le labels e in lista i valori

[s|n3]

continua a darmi valori sballati



label e valori li generò così

for i = 0 to 250
	x = i * 7
	GraphLabels(i) = dateadd("d",+ x,date())
next
for i = 0 to 250
	lista(i) = i
next

edit:
mi sa che stiamo sbagliando 3d