[Resolvido] Gráfico

[xanburzum 169]

<%

 

Sub ShowStackedBarChart(ByRef aValues, ByRef aLabels, ByRef strTitle, _

ByRef strXAxisLabel, ByRef strYAxisLabel, ByRef aColors, ByRef aToolTip, ByRef aBars)

 

' definir constantes

'Todas as unidades são em pixels da tela

Const GRAPH_WIDTH = 400 ' A largura do corpo do gráfico

Const GRAPH_HEIGHT = 300 ' A altura do corpo do gráfico

Const GRAPH_BORDER = 4 ' O tamanho da borda preta

Const GRAPH_SPACER = 2 ' O tamanho do espaço entre as barras

 

Const TABLE_BORDER = 0

'Const TABLE_BORDER = 10

 

' Declarar nossas variáveis

Dim i, ii, iTmp, aTmp()

Dim iMaxValue

Dim iBarWidth

Dim iBarHeight

Dim strColumnColor

 

' Obter o valor máximo do conjunto de dados

iMaxValue = 0

For I = 0 To UBound(aValues)

If iMaxValue < aValues(I) Then iMaxValue = aValues(I)

Next 'I

 

If iMaxValue = 0 Then Exit Sub

'Response.Write iMaxValue & "  " ' Debugging line

 

ReDim Preserve aTmp(UBound(aColors))

 

' Calcular a largura das barras

' largura total e dividir pelo número de itens.

' reduzi-la do tamanho do espaçador assim o resultado final

'Deve ser GRAPH_WIDTH ou menos!

iBarWidth = (GRAPH_WIDTH \ (UBound(aValues) + 1)) - GRAPH_SPACER

'Response.Write iBarWidth ' Debugging line

 

' Começar a desenhar o gráfico

%>

<TABLE BORDER="<%= TABLE_BORDER %>" CELLSPACING="0" CELLPADDING="0">

<TR>

<TD COLSPAN="3" ALIGN="center"><H2><%= strTitle %></H2></TD>

</TR>

<TR>

<TD VALIGN="center"><B><%= strYAxisLabel %></B></TD>

<TD VALIGN="top">

<TABLE BORDER="<%= TABLE_BORDER %>" CELLSPACING="0" CELLPADDING="0">

<TR>

<TD ROWSPAN="2">

<IMG SRC="./images/spacer.gif" BORDER="0"

WIDTH="1" HEIGHT="<%= GRAPH_HEIGHT %>">

</TD>

<TD VALIGN="top" ALIGN="right"><%= iMaxValue %> </TD>

</TR>

<TR>

<TD VALIGN="bottom" ALIGN="right">0 </TD>

</TR>

</TABLE>

</TD>

<TD>

<TABLE BORDER="<%= TABLE_BORDER %>" CELLSPACING="0" CELLPADDING="0">

<TR>

<TD VALIGN="bottom"><IMG SRC="./images/spacer_black.gif"

BORDER="0"

WIDTH="<%= GRAPH_BORDER %>"

HEIGHT="<%= GRAPH_HEIGHT %>"></TD>

<%

'Nós estamos agora no corpo do chart.

'Loop através dos dados que mostram as barras!

For I = 0 To UBound(aValues)

iBarHeight = Int((aValues(I) / iMaxValue) * GRAPH_HEIGHT)

 

' Este é um hack desde navegadores ignoram a 0, com uma dimensão de imagem!

If iBarHeight = 0 Then iBarHeight = 1

%>

<TD VALIGN="bottom"><IMG SRC="./images/spacer.gif"

BORDER="0"

WIDTH="<%= GRAPH_SPACER %>"

HEIGHT="1"></TD>

<TD VALIGN="bottom"><%

For ii = UBound(aColors) - 1 To 0 Step - 1

aTmp(ii) = Int((aBars(ii+1,I) / iMaxValue) * GRAPH_HEIGHT)

%><IMG SRC="./images/spacer_<%= aColors(ii) %>.gif"

BORDER="0" WIDTH="<%= iBarWidth %>"

HEIGHT="<%= aTmp(ii) %>"

ALT="<%= aBars(ii + 1, I) & vbTab & aToolTip(ii) %>"><br /><%

Next 'ii

%></TD><%

Next 'I

%>

</TR>

</TABLE>

<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0">

<! - Eu estava usando GRAPH_BORDER + GRAPH_WIDTH mas foi o último movimento do rótulo do eixo x ->

<TR>

<TD COLSPAN="<%= (UBound(aValues) + 1) %>"><IMG SRC="./images/spacer_black.gif"

WIDTH="<%= GRAPH_BORDER + ((UBound(aValues) + 1) * (iBarWidth + GRAPH_SPACER)) %>"

HEIGHT="<%= GRAPH_BORDER %>" BORDER="0"></TD>

</TR>

<%

 

%>

<% If IsArray(aLabels) Then %>

<TR>

<% For I = 0 To UBound(aValues)

iTmp = (GRAPH_BORDER + ((UBound(aValues) + 1) * _

(iBarWidth + GRAPH_SPACER))) / (UBound(aValues) +1)

iTmp = Int(Round(iTmp))

%>

<TD WIDTH="<%= iTmp %>" ALIGN="center"><FONT SIZE="2"><%= aLabels(I) %></FONT></TD>

<% Next 'I %>;

</TR>

<% End If %>

</TABLE>

</TD>

</TR>

</TABLE>

<%

End Sub

 

' Aqui é o código de exemplo de uma aplicação real,

'Vamos usar os dados estáticos para a nossa amostra. '

 

Dim i, ii, iNumSensors, iNumStates

Dim aValues(), aLabels(), aTooltip(), aColors(), aBars()

 

iNumSensors = 5

iNumStates = 4

ReDim Preserve aValues(iNumSensors)

ReDim Preserve aLabels(iNumSensors)

ReDim Preserve aTooltip(iNumStates)

ReDim Preserve aColors(iNumStates)

 

' Criar a matriz linha por uma barra

'Com quatro grandes estados (pilhas).

ReDim Preserve abars(iNumStates,iNumSensors)

For i = 0 to Ubound(abars,1)

For ii = 0 to Ubound(abars,2)

abars(i,ii) = 0

Next 'ii

Next 'i

 

'Definir a altura total de cada coluna

aValues(0) = 5

aValues(1) = 171

aValues(2) = 62

aValues(3) = 66

aValues(4) = 87

aValues(5) = 391

 

' definir os dados para as barras stacked

aBars(0,0) = 1

aBars(0,1) = 1

aBars(0,2) = 1

aBars(0,3) = 1

aBars(0,4) = 1

aBars(0,5) = 5

 

aBars(1,0) = 32

aBars(1,1) = 112

aBars(1,2) = 6

aBars(1,3) = 11

aBars(1,4) = 10

aBars(1,5) = 171

 

aBars(2,0) = 6

aBars(2,1) = 18

aBars(2,2) = 4

aBars(2,3) = 14

aBars(2,4) = 20

aBars(2,5) = 62

 

aBars(3,0) = 13

aBars(3,1) = 0

aBars(3,2) = 10

aBars(3,3) = 13

aBars(3,4) = 30

aBars(3,5) = 66

 

aBars(4,0) = 10

aBars(4,1) = 7

aBars(4,2) = 30

aBars(4,3) = 0

aBars(4,4) = 40

aBars(4,5) = 87

 

' definir os rótulos para o gráfico

aLabels(0) = "S1"

aLabels(1) = "S2"

aLabels(2) = "S3"

aLabels(3) = "S4"

aLabels(4) = "S5"

aLabels(5) = "Total"

 

' definir as cores do gráfico

aColors(0) = "red"

aColors(1) = "blue"

aColors(2) = "yellow"

aColors(3) = "lime"

 

' definir as dicas de ferramentas para o gráfico

aTooltip(0) = "Critical"

aTooltip(1) = "Serious"

aTooltip(2) = "Routine"

aTooltip(3) = "Cleared"

 

' está é a linha que chama a função para exibir o gráfico

ShowStackedBarChart aValues, aLabels, "Sensor Summary", "Sensor ID", "N", aColors, aTooltip, aBars

%>