Creare dei grafici con OWC
Con lo script di oggi è possibile creare un grafico mediante l'oggetto OWC di Office 2000.
Alla fine avremo un file .gif che sarà possibile inserire senza problemi nella nostra pagina ASP
I tipi di grafici disponibili sono questi:
Tipo = 1 - Istogramma
Tipo = 3 - Istogramma inverito
Tipo = 6 - Linea spezzata
Tipo = 7 - Linea spezzata con punti
Tipo = 12 - Linea Curva
Tipo = 18 - Torta1
Tipo = 19 - Torta2
Tipo = 30 - Area piena
Tipo = 32 - Anello
Ed ecco il semplice codice da utilizzare
<%
'Creiamo l'oggetto
Set ChartObj = Server.CreateObject("OWC.Chart")
Set ChartConsts = ChartObj.Constants
set NewChart = ChartObj.Charts.Add
'Settiamo il tipo di grafico
NewChart.Type = 12
'Creiamo gli array che conterranno i dati da passare all'oggetto e necessari a creare il grafico
ReDim ARR_VISITE(2)
' ASSE Y
ARR_VISITE(0)=10.8
ARR_VISITE(1)=34.98
' ASSE X
ReDim ARR_GIORNI(2)
ARR_GIORNI(0)="10/10/01"
ARR_GIORNI(1)="11/10/01"
'Passiamo i valori al grafico
Set Serie = NewChart.SeriesCollection.Add
Serie.SetData ChartConsts.chDimCategories, ChartConsts.chDataLiteral, ARR_GIORNI
Serie.SetData ChartConsts.chDimValues, ChartConsts.chDataLiteral, ARR_VISITE
'Settiamo il path dell'immagine che verrà creata
ImagePath=server.mappath("reports/report.gif")
'Salviamo l'immagine
ChartObj.ExportPicture ImagePath,"gif", 1000, 400
set oChart=nothing
%>A questo punto avremo la nostra immagine gif che sarà possibile inserire nella nostra pagina HTML, semplicemente con un codice del tipo:
<img src="/reports/report.gif">
Rendere più avanzato questo script non è difficile e vi permetterà di costruire grafici al volo con poche e semplici linee di codice.
Commenti
Per inserire un commento, devi avere un account.
Fai il login e torna a questa pagina, oppure registrati alla nostra community.
