MSChart Control para Visual Studio 2008 o 2010

Publicado: 11 marzo, 2011 en Simulacion

Para aquellas personas que deseen graficar una serie de datos ya sea en Basic o C#, existe un control llamado Chart, el cual es diferente al que existia en VB 6.0 (MSCHRT20.OCX) dicho componente lo pueden descargar del siguiente enlace:

http://www.omeyasweb.com/mschart-control-para-visual-studio-2008/

En el enlace se dan los pasos a seguir para poder instalarlo y agregarlo al entorno de programacion.

A continuacion pongo un programa de ejemplo realizado en Visual Basic 2008….

Ejemplo de Chart en VS 2008

Descarga el documento que incluye el codigo –> Chart

Anuncios
comentarios
  1. Luis dice:

    Cual es el password?

  2. Thony dice:

    Hola, esta genial el código que compartiste pero sabes tengo un problema hice todo el form con el código y al ejecutarlo escojo una opción del combobox y me salen los campos vacíos me podrías decir cual puede ser la solución ya que igual e revisado el código varias veces y es lo mismo del código que compartes tu, de ante mano muchas gracias y si esta la posibilidad de que compartas el proyecto. adios

  3. Thony dice:

    hola lo que pasa es que estoy trabajando en visual 2008 y estoy tratando de cargar los datos de un txt pero tengo un problema mi pregunta es si ingreso 0 como datos a graficar no lo hará? y alguna sugerencia para poder arreglar ese problema de antemano gracias y aqui le dejo el proyecto que estoy realizando.

    proyecto: https://docs.google.com/open?id=0B7oOKA-1UE7ebDlJQTVSaWFUVXc

    • hellpawn dice:

      Hola que tal según lo que pude observar de tu aplicación es que no gráfica debido a que no tiene una cantidad con la cual recorrer el ListBox, acá te dejo el código que modifique para que puedas graficar datos de algún archivo txt espero te sirva cualquier cosa aca andamos, saludos =) …

      If (TextBox1.Text String.Empty) Then
      Dim leer As New StreamReader(TextBox1.Text)
      Dim texto As String = “”
      Dim arrText As New ArrayList()

      Do
      texto = leer.ReadLine()
      If Not texto Is Nothing Then
      arrText.Add(texto)
      End If
      Loop Until texto Is Nothing
      leer.Close()

      For Each texto In arrText
      lst_datos.Items.Add(CInt(texto))
      cant = cant + 1
      Next

      Else
      MsgBox(“Seleccione el archivo a cargar”, MsgBoxStyle.Exclamation, “Error”)
      End If
      Try
      Catch ex As Exception
      MsgBox(ex.Message)
      End Try

    • carlos erick dice:

      Hola mira , la verdad se muy poco, pero me han encargado un trabajo el cual con una serie de datos, los cuales los he metido a un combo box los grafique, el eje x en funcion de los datos del combo 1 y el eje y en funcion del combo2 , pero la verdad no se u como crear todo esto ni el MsChart soy nuevo en esto . Poseo la version VB 6.0
      Debo poner algunas referencias o componentes para trabajar con este MSchart?
      Help plx. I really need help.
      Can you help me plx?

      • hellpawn dice:

        Que tal Carlos, referente a lo que comentas si debes de agregar algunas referencias como mencionas, si no mal recuerdo te posicionas en el panel de herramientas das clic derecho y eliges algo que diga agregar elementos o agregar componentes (la verdad no recuerdo muy bien ya que hace años que no uso VB6) o algo similar, al hacer eso deberá aparecer una ventana con pestañas y deberás elegir alguna que diga componentes “COM” u “OCX” en esa pestaña lo que debes hacer es buscar algo que dice “Microsoft Chart Control” cuando lo encuentres agrégalo, y con eso debería aparecer el control en tu cuadro de herramientas, en caso de que no encuentres esa opción lo que debes hacer es descargar el control “OCX” y agregarlo en la carpeta “System32” para posteriormente hacer todo el procedimiento anterior.

        Espero sea de ayuda lo que menciono, saludos y que estés bien

      • Vivas Danilo dice:

        Se les agradecería mucho si hicieran algun tutorial de como usar mschart para novatos como yo que nos cuesta leer un poco el codigo y lograr entenderlo pero solo es un comentario algo fuera de lugar pero como dije al inicio seria muy agradecido de que nos regalaran un torial con sus aportes gracias

  4. Martha Orjuela dice:

    Buenas tardes, he tenido una duda en cuanto al control MSChart, estoy graficando los datos consignados en una base de datos de Access y lo realizo de forma muy natural, pero deseo adicionar en la grafica una tabla con los datos exactos graficados o si es posible escribir el dato exacto sobre la barra correspondiente pero no he tenido exito, te agradezco la ayuda que me puedas prestar.

  5. carlos erick dice:

    Listo, ya he podido agregar el MSChart, pero el codigo para VB 6.0 es diferente al que tienes en el ejemplo :C , algun lugar donde podria ver informacion para VB 6.0 de los MSCharts.
    Saludos y en hora buena.

    • hellpawn dice:

      Hola que tal, te compartiré un ejemplo sencillo y a su vez un link donde podrás ver algunos ejemplos, espero te sirvan:

      Ejemplo: Graficar las notas de los estudiantes.
      Lo primero es modificarle el número de columnas del objeto mediante su atributo llamado columncount y le asignamos el valor de 1. Creamos un formulario, insertamos 2 botones, 2 listas, 2 text y un gráfico, el text1 será para leer la nota, el 2 para leer el nombre del estudiante, el boton1 es para agregar la nota leída en la lista1, el segundo para agregar el nombre en la lista2.

      Código:

      Private Sub Command1_Click()
      List1.AddItem Text1.Text
      List2.AddItem Text2.Text
      Text1.Text = “”
      Text2.Text = “”
      Text1.SetFocus
      End Sub

      Private Sub Command2_Click()
      chart.RowCount = List1.ListCount
      For i = 0 To List1.ListCount – 1
      chart.Row = i + 1
      chart.Data = Val(List1.List(i))
      chart.RowLabel = List2.List(i)
      Next i
      End Sub

      Explicación del Código
      * El atributo RowCount es para indicar la cantidad de columnas que tendrá nuestro gráfico.
      * El Row es para indicar la columna que vamos a graficar. En los gráficos se empieza desde la columna 1, debido a esto colocamos i+1.
      * El atributo Data es para indicar el valor que le vamos a asignar a esa columna.
      * El atributo RowLabel es una etiqueta que se coloca debajo de la barra o columna del gráfico con que estamos trabajando.

      LINK:

      http://www.recursosvisualbasic.com.ar/htm/tutoriales/mschart.htm

      Saludos!!!

      • Vivas Danilo dice:

        se que lo moderno y los avances hay que priorizarlos pero tambien habemos muchos que deseamos saber de visual basic 6.0

        Se les agradecería mucho si hicieran algun tutorial de como usar mschart para novatos como yo que nos cuesta leer un poco el codigo y lograr entenderlo pero solo es un comentario algo fuera de lugar pero como dije al inicio seria muy agradecido de que nos regalaran un torial con sus aportes gracias

  6. cristian dice:

    Estimado muy interezante el enlace, trato de hacer la lectura de un datagrid para generar el grafico se me ha complicado, tienes algun tip

    • hellpawn dice:

      hola que tal desconozco como estés recorriendo la información dentro del datagrid, mira hace algún tiempo use este código para graficar los datos de una columna de un MSFlexGrid, el código esta en VB no se si te de una idea a lo que necesitas, saludos

      For j = 1 To 9
      grafica.Series(0).Points.Add(grid.get_TextMatrix(j, 7)) ‘Datos a Graficar
      Next j

  7. cristian dice:

    gracias man, voy a intentar ponerlo en practica, aun no tenia idea de como empezar pero el tip me sirve

  8. manuel dice:

    Hola ,que tal, sabes estoy haciendo un programa y necesito graficar en una dispercion x&Y y no columnas, como le hago si el visual basic 2012. solo me muestra un chat en columnas.

    • hellpawn dice:

      hola que tal, una opción seria que lo manipularas mediante código, a continuación te comparto una fracción de código de un botón el cual grafica unos datos generados aleatoriamente y mostrados en un ListBox (lst_datos) en el ejemplo tengo 2 opciones a graficar mostradas en un ComboBox (cbo_tipo) que para el ejemplo es Grafica de Barras y Grafica de Lineas. Puse en NEGRITA la linea de codigo que tendrias que modificar y manipular dependiendo el grafico a utilizar y para tal efecto debes buscar en la ultima opcion o propiedad despues de … DataVisualization.Charting.SeriesChartType.ALGO

      Private Sub btn_graficar_Click(sender As Object, e As EventArgs) Handles btn_graficar.Click
      ‘variable local
      Dim j As Integer

      ‘limpiando chart
      chart.Series(0).Points.Clear()

      ‘grafica de barras
      If cbo_tipo.SelectedIndex = 0 Then
      chart.Series(0).ChartType = DataVisualization.Charting.SeriesChartType.Column
      chart.Series(0)(“DrawingStyle”) = “Cylinder”
      chart.Series(0).Color = Color.RoyalBlue
      For j = 0 To cant – 1
      chart.Series(0).Points.Add(lst_datos.Items.Item(j))
      Next
      ‘grafica de lineas
      ElseIf (cbo_tipo.SelectedIndex = 1) Then
      chart.Series(0).ChartType = DataVisualization.Charting.SeriesChartType.Line
      chart.Series(0).Color = Color.Green
      For j = 0 To cant – 1
      chart.Series(0).Points.Add(lst_datos.Items.Item(j))
      Next
      Else
      MsgBox(“Seleccione una Opcion!!!”)
      Exit Sub
      End If
      End Sub

  9. Wilmar Rojas dice:

    Excelente aporte, lo modifiqué para que en lugar de los número aleatorios tomara la información traída de una base de datos por medio de sql y quedó perfecto. muchas gracias por compartir el código. Tengo una inquietud acerca de como se modifica o se asigna información a el eje inferior. Por ejemplo deseo graficar el consumo de energía de un cliente durante unas fechas específicas. el eje izquierdo del consumo lo muestra pero el de las fechas que es el inferior, solo muestra un numero consecutivo. Agradezco tu colaboración.

    • hellpawn dice:

      Hola que tal gracias por tu comentario, una posible solución a lo que mencionas es que modifiques una linea de código:

      chart.Series(0).Points.Add(DATOS A GRAFICA)

      La podrías cambiar por la siguiente:

      chart.Series(0).Points.AddXY(DATOS EN X, DATOS EN Y)

      Ya solo seria cuestión de que los modifiques a tu elección dependiendo la colección de datos a utilizar

      Saludos =)

  10. Vivas Danilo dice:

    Se les agradecería mucho si hicieran algun tutorial de como usar mschart para novatos como yo que nos cuesta leer un poco el codigo y lograr entenderlo pero solo es un comentario algo fuera de lugar pero como dije al inicio seria muy agradecido de que nos regalaran un torial con sus aportes gracias

Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión /  Cambiar )

Google photo

Estás comentando usando tu cuenta de Google. Cerrar sesión /  Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión /  Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión /  Cambiar )

Conectando a %s