SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: bea en Miércoles 3 de Marzo de 2004, 12:39

Título: Activex
Publicado por: bea en Miércoles 3 de Marzo de 2004, 12:39
Por favor es urgente . Alguien puede ayudarme?

Tengo que hacer una pagina web en la que se muestre un grafico y he pensado en utilizar el componente MChart para hacerlo. Me he bajado el ActiveX Control Pad y tengo el siguiente codigo:

<HTML>
<HEAD>
    <script LANGUAGE="JavaScript">
<!--

function Procedure1() {
MSChart1.ShowLegend = 1;
MSChart1.Title = "Titulo";
MSChart1.ChartType = 1;
MSChart1.RowCount = 1;
MSChart1.ColumnCount = 6;
MSChart1.ColumnLabelCount = 6;
MSChart1.AllowDynamicRotation = 1;
MSChart1.AllowDithering = 1;
MSChart1.Legend.Location.LocationType = 4;

MSChart1.Column = 1;
MSChart1.ColumnLabel = "Elemento 1";
MSChart1.Column = 2;
MSChart1.ColumnLabel = "Elemento 2";
MSChart1.Column = 3;
MSChart1.ColumnLabel = "Elemento 3";
MSChart1.Column = 4;
MSChart1.ColumnLabel = "Elemento 4";
MSChart1.Column = 5;
MSChart1.ColumnLabel = "Elemento 5";
MSChart1.Column = 6;
MSChart1.ColumnLabel = "Elemento 6";

MSChart1.ChartData =  new Array(1,2,3,4,5,6);
MSChart1.Refresh();

}
-->
    </SCRIPT>
<TITLE>New Page</TITLE>
</HEAD>
<BODY onLoad="Procedure1();">
    <OBJECT ID="MSChart1" WIDTH=500 HEIGHT=500
     CLASSID="CLSID:3A2B370C-BA0A-11D1-B137-0000F8753F5D">
    </OBJECT>
</BODY>
</HTML>

pero no me funciona, me da un error de JavaScript: Argumento de funcion incorrecto. El problema esta en la linea en rojo, que es donde asigno el array con los valores al chart pero no funciona y no se como hacerlo de otra forma. Alguien puede ayudarme?
Muchas gracias
Título: Re: Activex
Publicado por: Brroz en Jueves 4 de Marzo de 2004, 12:55
Hola Bea.

No estoy muy puesto en el tema, pero prueba algo asi, que a lo mejor pita...

Código: Text
  1.  
  2. int arr[]=new int[6];
  3. for (int i=0;i&#60;arr.length;i++) {arr[i]=i+1;}
  4. MSChart1.ChartData = arr;
  5.  
  6.  

Sino, puedes probar a postear en el foro de java.

Otra opción es que pruebes usando vbScript en vez de JavaScript,  creo que prácticamente no tendrías que tocar el código (excepto cambiar el LANGUAGE del script, claro, y supongo que eliminar el ; final de las instrucciones).

Suerte.
Título: Re: Activex
Publicado por: bea en Jueves 4 de Marzo de 2004, 18:17
Pues no se que es lo que pasara con ChartData pero no funciona al asignarle un array. He buscado en la documentacion del MSChart y he visto que tbn se puede poner

MSChart1.Column = 1
MSChart1.Row = 1
MSChart1.Data = "1"

asi que ire uno a uno asignando los correspondientes valores.
De todas formas muchisimas gracias Brroz por ayudarme.
Chao
Título: Re: Activex
Publicado por: elmango80 en Jueves 4 de Marzo de 2004, 19:56
Eso es lo que tienes que hacer, utilizando ciclos repetitivos anidados te vas moviendo por las filas y las columnas de MSChart para asignale valores.

El codigo siguiente te sirve para un MSChart de una columna. VALOR es la variable que contiene el valor que deseas introducir.


Código: Text
  1.  
  2. Private Sub CargarDatos()
  3. Dim bytI As Byte
  4.  
  5.     MSChart1.Column = 1
  6.     For bytI = 1 To MSChart1.RowCount Step 1
  7.         MSChart1.Row = bytI
  8.         MSChart1.Data = VALOR
  9.     Next
  10. End Sub
  11.  
  12.  



:devil: ------------------ :angel: