Grafica_Pastel en ASP

AnaLuisa · #1 (**permalink**) 09/06/2006, 13:28

Investigando aqui en el foro encontre lo siguiente para hacer grafica de pastel

<%@ language="vbscript" %>
<%
'Instancia del Objeto ChartDirector
Set cd = CreateObject("ChartDirector.API")

'Informa los datos para el gráfico
data = Array(250, 180, 150)

'Informa la etiquetas
labels = Array("Locaweb", "Locamail", "Locavoz")

'Cria una imagene con tamaño de 280 x 240 pixels
Set c = cd.PieChart(280, 240)

'Ajusta localicacion del gráfico (140, 120) y su tamaño en 80 pixels
Call c.setPieSize(140, 120, 80)

'Muestre el gráfico en 3D
Call c.set3D()

'Muestra un titulo al grafico
Call c.addTitle("Locaweb")

'Ajusta la transparencia
Call c.setColors(cd.transparentPalette)

'Ajusta los datos y el grafico
Call c.setData(data, labels)

'Separa la ultima ultima parte
Call c.setExplode(2)

'Exibe el gráfico en el browser
Response.ContentType = "image/png"
Response.BinaryWrite c.makeChart2(cd.PNG)

'elimina el objeto c
Set c = nothing

'elimina el Objeto ChartDirector
Set cd = nothing
%>

Claro que para que funcione tenemos que descargar el Chardirector. Ayer lo probe y funciono a la perfeccion pero hoy quiero ejecutar mi pagina y en vez de mostrarme la grafica me manda una pantalla donde pregunta si quiero guardar, abrir o cancelar el archivo, no tiene alguna idea de por que hace eso??

Agradesco mucho su atencion a este post.

El_Metallick · #2 (**permalink**) 09/06/2006, 17:45

mmmm es raro??? pero lo estas viendo en el mismo ordenador que esa vez que si te funcionó???

AnaLuisa · #3 (**permalink**) 12/06/2006, 08:28

Si lo vi en el mismo ordenador, perdon por no contestar pero despues de que abri forosdelweb para preguntar volvi a ejecutar mi pagina y o sorpresa se ejecuto perfectamente, y llege a la conclusion de que necesitaba tener abieto el explorer para que se ejecutara, esta raro pero funciono.

El_Metallick · #4 (**permalink**) 12/06/2006, 12:53

ok ;) me alegro que se te haya solucionado el problema... saludos

jquevedo · #5 (**permalink**) 01/08/2006, 16:59

ana luisa donde ubico los fuentes de Chardirector. si me puedes dar algun direccion te agradeceria muchismo

jusein

AnaLuisa · #6 (**permalink**) 02/08/2006, 08:43

De esta pagina descarge el Chartdirector, solo lo intalas en tu servidor, copias el codigo y listo reañliza la grafica, tambien consegui un codigo para grafica de pastel con este mismo componente por si lo necesitas.

http://www.advsofteng.com/download.html

AnaLuisa · #7 (**permalink**) 02/08/2006, 08:49

Te pongo la direccion de donde obtuve la informacion, checala te servira mucho igual si tienes algun problema me escribes

http://www.forosdelweb.com/showthrea...t=graficos+asp

jquevedo · #8 (**permalink**) 02/08/2006, 10:41

muchas gracias por el link esta de la pm.. como dicen por aca

gracias

Potro · #9 (**permalink**) 02/08/2006, 14:16

Hola que tal AnaLuisa tendras algun ejemplo con bases de datos o bien con algun otro tipo de grafico como lineas me interesa mucho ese espero me puedas ayudar con cualquiera de estas dos preguntas.

SALUDOS:::::::::

Potro · #10 (**permalink**) 02/08/2006, 15:44

Tambien por que me sale una leyenda hasta abajo de la imagen diciendo Chartdirector (unregistered) from www.advsofteng.com

AnaLuisa · #11 (**permalink**) 03/08/2006, 09:29

Estoy realizando un proyecto, y si tuve que manejar informacion extraida desde una base de datos, no te puedo enciar el codigo por que quiza no lo entiendas, pero te puedo ayudar diciendote, que debes de hacer tu consulta en una pagina y mandar exclusivamente los datos que se tengan que graficar a otra , en la cual tendras el codigo para realizar la grafica.

Por otro lado a mi tambien me aparece esa leyenda, trate de quitarla pero no lo permite.

Como observacion este componente lo debes de utilizar en Intranet no en Internet, esto lo dijo miakire y coincido con el.

Si quieres algo de codigo te mando mas o menos como hice la consulta.

Potro · #12 (**permalink**) 03/08/2006, 15:37

Eso me parece perfecto que me mandes algun ejemplito jijiji bueno gracias.

Otra cosa note que si meto el codigo dentro del <body> me marca error que acaso esto no se puede manejar con mas codigo html o asp.

SALUDOS::::::::

AnaLuisa · #13 (**permalink**) 04/08/2006, 08:48

Exactamente, si tu pones el codigo de grafica y yn response.write (en caso de ASP) te imprimira simbolos y no mostrara nada, has la prueba, solo pon el codigo de la grafica.

Potro · #14 (**permalink**) 04/08/2006, 10:41

No entendi nada jejeje lo que quiero hacer es meter esa grafica en una pagina asp con mas codigo se puede y si se puede como se hace

por que ya vi que si pongo solo el codigo sale todo perfecto pero combinando me marca signos raros...

SALUDOS:::::::

AnaLuisa · #15 (**permalink**) 04/08/2006, 12:39

Mira lo que hago yo es: en una pagina pongo el codigo que me saca los datos de la BD he imprimo lo que creo necesario, estos datos los envio a la pgina en la cual tengo el codigo de la grafica, es mas esto lo hago en una ventana emergente, a la cual envio unicamente los datos que quiero que sena graficados.

Potro · #16 (**permalink**) 04/08/2006, 13:19

ok te entiendo, entonces a lo que me dices no hay forma de poner ese codigo con mas etiquetas de html o codigo asp... perfecto gracias y hasta luego,...

SALUDOS::::

jquevedo · #17 (**permalink**) 12/08/2006, 08:09

buenos dias primero agradecer a Ana Luisa por el enlace, y me esta funcionando muy bien yo hice un pequeño programa con base de datos en sql si deseas el ejemplo te dejo mi direccion electronica ahi te la pego a ver si te sirve.

<%@ language="vbscript" %>
<%select case session("campanaresumida")
case "3"
set cnalcachofa=server.CreateObject("adodb.connection" )
cnalcachofa.Open "PROVIDER=MSDASQL;dsn=ALCACHOFA2005;uid=;pwd=; "
set rsresumen=server.CreateObject("adodb.recordset")
strresumen="select * from vista_salida_resumen where cont_id='" & session("productorresumida") & "' order by arti_descrip"
rsresumen.Open strresumen,cnalcachofa
'DATOS DEL PRODUCTOR
set rsproductor=server.CreateObject("adodb.recordset")
strproductor="select * from vista_productor where cont_id='" & session("productorresumida") & "'"
rsproductor.Open strproductor,cnalcachofa
productor = trim(rsproductor("pers_apat")) & " " & trim(rsproductor("pers_amat")) & " " & trim(rsproductor("pers_nom"))
rsproductor.close
set rsproductor=nothing
mensaje= "Insumos del Productor: " & productor
case "8"
set cnalcachofa=server.CreateObject("adodb.connection" )
cnalcachofa.Open "PROVIDER=MSDASQL;dsn=ALCACHOFA2006;uid=;pwd=; "
set rsresumen=server.CreateObject("adodb.recordset")
strresumen="select * from vista_salida_resumen where cont_id='" & session("productorresumida") & "' order by arti_descrip"
rsresumen.Open strresumen,cnalcachofa
'DATOS DEL PRODUCTOR
set rsproductor=server.CreateObject("adodb.recordset")
strproductor="select * from vista_productor where cont_id='" & session("productorresumida") & "'"
rsproductor.Open strproductor,cnalcachofa
productor = trim(rsproductor("pers_apat")) & " " & trim(rsproductor("pers_amat")) & " " & trim(rsproductor("pers_nom"))
rsproductor.close
set rsproductor=nothing
mensaje= "Cantidad Insumos del Productor: " & productor
i=0
do while not rsresumen.eof
i=i+1
rsresumen.movenext
loop
rsresumen.movefirst
dim label ()
redim label (i)
dim data ()
redim data(i)
j=0
do while not rsresumen.eof
label(j)=rsresumen("arti_descrip")
data(j)=rsresumen("cantidad")
j=j+1
rsresumen.movenext
loop
rsresumen.close
set rsresumen=nothing
end select
'COMIENZA LA CONSTRUCCION DE LA DATA
Set cd = CreateObject("ChartDirector.API")

' The colors for the bar chart
colors = Array(&Hb8bc9c, &Ha0bdc4, &H999966, &H333366, &Hc3c3e6)

' Create a XYChart object of size 300 x 220 pixels. Use golden background color. Use
' a 2 pixel 3D border.
Set c = cd.XYChart(850, 550, cd.goldColor(), -1, 2)

' Add a title box using 10 point Arial Bold font. Set the background color to
' metallic blue (9999FF) Use a 1 pixel 3D border.
Call c.addTitle(mensaje, "arialbd.ttf", 10).setBackground( _
cd.metalColor(&H9999ff), -1, 1)

' Set the plotarea at (40, 40) and of 240 x 150 pixels in size
Call c.setPlotArea(40, 40, 800, 450)

' Add a multi-color bar chart layer using the given data and colors. Use a 1 pixel 3D
' border for the bars.
Call c.addBarLayer3(data, colors).setBorderColor(-1, 1)

' Set the labels on the x axis.
'Call c.xAxis().setLabels(label)

' output the chart
Response.ContentType = "image/png"
Response.BinaryWrite c.makeChart2(cd.PNG)
Response.End
%>

ojala te sirva.

att.

Jusein Quevedo Cabrera
Agrodoral S.A.

Potro · #18 (**permalink**) 14/08/2006, 07:19

jquevedo Muchas gracias por el ejemplo..

Te escribire a tu mail jeje...

SALUDOS:::::::::

Mafervzla01 · #19 (**permalink**) 15/11/2007, 13:36

Hola necesito que alguien me ayude urgente, estoy desarrolando una aplicacion en asp que tiene que graficar datos de access, me sugirieron usar ChartDirector asi que lo baje de la pagina, tengo la carpeta que contiene los archivos dendtro del directorio de la aplicacion.

Copie el codigo que muestran al principio y me sale el siguiente error

Script error detected at line 3.
Source line: Set cd = CreateObject("ChartDirector.API")
Description: El componente ActiveX no puede crear el objeto: 'ChartDirector.API'

por favor ayudenme a solucionar este error que asi podre continuar con mi aplicacion

Gracias

Myakire · #20 (**permalink**) 15/11/2007, 17:25

Ya leíste el contenido de los post?
ya lo instalaste?
ya leíste la documentación?

No estés reviviendo temas de años de no consultarse para repetir preguntas, por favor