none
INSERTAR AREAS A GRAFICOS EN VB RRS feed

  • Pregunta

  • HOLA ESTOY INTENTANDO CREAR UNOS GRAFICOS PERO NO SE CREA EL AREAS2 ESPERO ME PUEDAN AYUDAR LES DEJO EL CODIGO Y LA IMAGEN A VER SI ME PUEDEN AYUDAR EN RECTANGULO ROJO DEBERIA APARECER EL SEGUNDO GAFICO

    CONECT()
                Dim SSel As String
                SSel = "select  PESO,VOLUMEN,TORQUE,POSICION,LONGITUD,HORA from PLATO ORDER BY HORA ASC"
                Dim myCommand As New SqlCommand(SSel, CONN)
                Dim myReader As SqlDataReader = myCommand.ExecuteReader()

                'agrega las areas
                Chart2.ChartAreas.Add("ChartArea1")
                Chart2.ChartAreas.Add("ChartArea2")

                'agrega las series
                Chart2.Series.Add("Series1")
                Chart2.Series.Add("Series2")

                'agregar las series a los chartareas
                Chart2.Series("Series1").ChartArea = "ChartArea1"
                Chart2.Series("Series2").ChartArea = "ChartArea2"


                Chart2.Series("Series1").ChartType = SeriesChartType.Column
                Chart2.Series("Series1").Points.DataBindY(myReader, "VOLUMEN")


                Chart2.Series("Series2").ChartType = SeriesChartType.Line
                Chart2.Series("Series2").Points.DataBindY(myReader, "TORQUE")

                ' Set point labels
                Chart2.Series("Series1").IsValueShownAsLabel = True
                Chart2.Series("Series2").IsValueShownAsLabel = True

                ' Enable X axis margin
                Chart2.ChartAreas("ChartArea1").AxisX.IsMarginVisible = True
                Chart2.ChartAreas("ChartArea2").AxisX.IsMarginVisible = True

                
                Chart2.ResetAutoValues()
                CONECTOUT()



    Yusary Gomez

    viernes, 10 de mayo de 2013 18:45