none
Como meter dos series en un ChartAreas? RRS feed

  • Pregunta

  • Hola, buen día tengan todos!

    Tengo un problemita que ya no le encuentro como solucionar, veran lo que quiero lograr es que en una grafica (chart) se vean dos series, una que ya este por decirlo estatica osea que en los ejes X  and Y ya no cambien, y la otra van a ser dinamicos pero que se encuentran dentro de X y Y que como dije anteriormente ya estarian definidos, les voy a mostrar la grafica en excel para que me de a entender mejor:

    Yo estoy usando este codigo pero los puntos no concuerdan con los ejes ya definidos:

      Private Sub Forma_Grafica()
            Chart1.Series(0).Points.Clear()
            Chart1.Series(1).Points.Clear()
            Chart1.Titles.Clear()
       Dim yValue() As Double = {2, -1.5}
            Dim xValue() As Double = {0, 0.6}
        For Each dato As Double In yValue
                Chart1.Series(0).Points.Add(dato)
                Dim x As Integer
                Dim y As Integer
                Chart1.Series(0).Points(x).AxisLabel = xValue(y)
                x += 1
                y += 1
            Next
    
       Dim yyValue() As Double = {0.24145, 0.01895, 0.16845, 0.24145, 0.01895, 0.20831}
            Dim xxValue() As Double = {0.09151, 0.18314, 0.09643, 0.09151, 0.18314, 0.27914}
      For i = 0 To 5
                Chart1.Series(1).Points.AddXY(yyValue(i), xxValue(i))
            Next
         Chart1.Series(0).IsVisibleInLegend = False
            Chart1.Series(1).IsVisibleInLegend = False
        End Sub

    Espero me brinden de su gran ayuda. 

    Saludos Cordiales!!!!!


    DikerJARP

    viernes, 30 de octubre de 2015 16:28

Respuestas

  • For i = 0 To 5
                   Chart1.Series(1).Points.AddXY(yyValue(i),xxValue(i))
     Next

    Creo que ahi esta el error. No seria asi?

    For i = 0 To 5
                Chart1.Series(1).Points.AddXY(xxValue(i),yyValue(i))
     Next

    Saludos


    • Marcado como respuesta DIKERJARP viernes, 30 de octubre de 2015 17:33
    viernes, 30 de octubre de 2015 17:07
  • Y para meter dos series en un ChartAreas haces lo siguiente

    Dim series As New Series
                            series.Name = nombre
                            series.ChartArea = "ChartArea2"
                            graph2.Series.Add(series)

    Y le pones a las series que quieras, el mismo nombre a la propiedad ChartArea

    Saludos!

    • Marcado como respuesta DIKERJARP viernes, 30 de octubre de 2015 17:33
    viernes, 30 de octubre de 2015 17:12

Todas las respuestas

  • For i = 0 To 5
                   Chart1.Series(1).Points.AddXY(yyValue(i),xxValue(i))
     Next

    Creo que ahi esta el error. No seria asi?

    For i = 0 To 5
                Chart1.Series(1).Points.AddXY(xxValue(i),yyValue(i))
     Next

    Saludos


    • Marcado como respuesta DIKERJARP viernes, 30 de octubre de 2015 17:33
    viernes, 30 de octubre de 2015 17:07
  • Y para meter dos series en un ChartAreas haces lo siguiente

    Dim series As New Series
                            series.Name = nombre
                            series.ChartArea = "ChartArea2"
                            graph2.Series.Add(series)

    Y le pones a las series que quieras, el mismo nombre a la propiedad ChartArea

    Saludos!

    • Marcado como respuesta DIKERJARP viernes, 30 de octubre de 2015 17:33
    viernes, 30 de octubre de 2015 17:12