[Resolvido] Gráfico OWC

[xanburzum 169]

Este é um exemplo fácil que mostra como usar o msowc.dll para gerar gráficos. Este trecho de código foi desenvolvido para ser utilizado como um include.

 

<% 


dim BarVal(8)
dim LineVal(8)
dim Val(8)

BarVal(1) = 4
BarVal(2) = 5
BarVal(3) = 6
BarVal(4) = 4
BarVal(5) = 5
BarVal(6) = 6
BarVal(7) = 8
BarVal(8) = 11

LineVal(1) = 5
LineVal(2) = 4
LineVal(3) = 6
LineVal(4) = 8
LineVal(5) = 9
LineVal(6) = 10
LineVal(7) = 8
LineVal(8) = 9

Val(1) = 1
Val(2) = 2
Val(3) = 3
Val(4) = 4
Val(5) = 4
Val(6) = 6
Val(7) = 7
Val(8) = 8



dim ObjChart
dim ChaCon
dim ObjCharts
dim SerCol

set ObjChart = Server.CreateObject("OWC.Chart")
set ChaCon = ObjChart.Constants
set ObjCharts = ObjChart.Charts.Add

'Adicionar bar
set SerCol = ObjCharts.SeriesCollection.Add
'adicionando a linha
set SerCol1 = ObjCharts.SeriesCollection.Add

ObjCharts.Type = ChaCon.chChartTypeColumnClustered

        SerCol.Caption = "Estimativa do rendimento"
        SerCol.SetData ChaCon.chDimCategories, ChaCon.chDataLiteral, Val
        SerCol.SetData ChaCon.chDimValues, ChaCon.chDataLiteral, BarVal
        '-------------------------------

        'esta é a minha linha no gráfico
        SerCol1.Caption = "Lucro Real"
        SerCol1.SetData ChaCon.chDimCategories, ChaCon.chDataLiteral, Val
        SerCol1.SetData ChaCon.chDimValues, ChaCon.chDataLiteral, LineVal
        'change    from the default bar graph to a line
        SerCol1.Type = ChaCon.chChartTypeLine
        '----------------------------

'Colocar um título ...opcional
ObjChart.HasChartSpaceTitle=True
ObjChart.ChartSpaceTitle.Caption = "Earnings Breakdown"

'Diga que você quer uma legenda no gráfico
ObjChart.HasChartSpaceLegend = True
ObjChart.ChartSpaceLegend.Position = ChaCon.chLegendPositionRight

ImagePath=server.mappath("reports/aspin.gif") 
 
ObjChart.ExportPicture ImagePath,"gif", 400, 200 
set ChaCon = nothing
set ObjCharts = nothing
set ObjChart = nothing %>
<img src="/reports/aspin.gif" width="400" height="200">