| Pregunta: | 44322 - GRáFICO RADIAL |
| Autor: | Walter Portocarrero F. |
| Hola, un saludo para todos, de casualidad alguien ha utilizado el Office Web Components, sobre una págian asp, especificamente el gráfico de tipo Radial, necesito hacer algunas consultas al respecto, o si alguien conoce alguna dirección donde pueda sacar información al respecto.
Ya de antemano gracias por cualquier aporte. Saludos | |
| Respuesta: | Antonio Buiza |
| Si,
yo lo he usado varias ocasiones para generar graficos dinámicamente en los especiales de elecciones y demás. La idea es la siguiente: 1) Crear el objeto 2) Cargar las series de datos y las propiedades de estilo 3) Exportar el resultado como imagen. A continuación te pongo un ejemplo de código: Nota, VH y VS corresponden a los vectores de valores, como es el caso de 1 serie hay 2 vectores, el de etiquetas y el de valores. Dim CS, C, Con Set CS=Server.CreateObject("OWC10.ChartSpace") Set Con = CS.Constants CS.DisplayFieldButtons = False Set C = CS.Charts.Add() C.Interior.SetTwoColorGradient Con.chGradientHorizontal, Con.chGradientVariantStart, RGB(255, 247, 231), RGB(247, 219, 160) C.PlotArea.Interior.SetTwoColorGradient Con.chGradientHorizontal, Con.chGradientVariantStart, RGB(15, 30, 50), RGB(50, 50, 160) C.Type = Con.chChartTypeSmoothLineMarkers C.HasLegend = True C.SetData Con.chDimSeriesNames, Con.chDataLiteral, "Participació" C.SetData Con.chDimCategories, Con.chDataLiteral, VH C.SeriesCollection(0).SetData Con.chDimValues, Con.chDataLiteral, VS C.SeriesCollection(0).Line.Color=RGB(0, 200, 255) C.SeriesCollection(0).Line.Weight=3 C.HasLegend=False For Each Axis In C.Axes Axis.HasTitle = True If Axis.Type = Con.chCategoryAxis Then Axis.Title.Caption = "Hores" Else Axis.Title.Caption = "Número Vots" End If Next CS.ExportPicture Server.MapPath(".")&"\participaciohoraria("& Replace(hora, ":", "-") &").gif","gif", 230, 230 Espero te sirva de ejemplo. Recomendación: utiliza un control OWC incrustado en un formulario de VB para depurar ya que es algo complejo que salga a la primera desde un ASP ya que no ves la interficie del control hay que hacerlo "a ciegas". Saludos. ABuiza. | |