Visual Basic.NET - ¿Cómo puedo hacer un gráfico con varias series de valores?

 
Vista:
sin imagen de perfil
Val: 229
Ha disminuido 1 puesto en Visual Basic.NET (en relación al último mes)
Gráfica de Visual Basic.NET

¿Cómo puedo hacer un gráfico con varias series de valores?

Publicado por José Vicente (113 intervenciones) el 03/08/2020 12:49:18
Hola, buenos días, estoy intentando hacer un gráfico con varias series de valores pero no encuentro ninguna pista en Internet de como hacerlo.
¿Puede alguien decirme cómo? Gracias.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Phil Rob
Val: 3.353
Oro
Ha mantenido su posición en Visual Basic.NET (en relación al último mes)
Gráfica de Visual Basic.NET

¿Cómo puedo hacer un gráfico con varias series de valores?

Publicado por Phil Rob (1546 intervenciones) el 03/08/2020 14:37:26
Hola,

Este es un ejemplo de codigo que hace este :

Chart

Adjunto el proyecto de prueba Chart.zip.

No sé mas sobre este problema.

Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil
Val: 229
Ha disminuido 1 puesto en Visual Basic.NET (en relación al último mes)
Gráfica de Visual Basic.NET

¿Cómo puedo hacer un gráfico con varias series de valores?

Publicado por José Vicente (113 intervenciones) el 03/08/2020 17:37:26
Hola, buenas tardes, he intentado extrapolar tu gráfica a mi proyecto pero, a parte de no parecerse ni por asomo, el primer valor de la Bd no lo coge y no sé porqué. Te paso mi código para que le des un vistazo. Gracias por tu tiempo.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
Private Sub evolucion_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        ListBox1.Visible = True
        ListBox2.Visible = True
        ListBox3.Visible = True
        ListBox4.Visible = True
 
        conexion.Open()
 
        Dim consultaSql As String = "SELECT sistolica,diastolica,pulsaciones,saturacion FROM valores ORDER BY fecha;"
        Dim comando As OleDbCommand = New OleDbCommand(consultaSql, conexion)
        Dim lector As OleDbDataReader
 
        lector = comando.ExecuteReader
        lector.Read()
 
        ListBox1.Items.Clear()
        ListBox2.Items.Clear()
        ListBox3.Items.Clear()
        ListBox4.Items.Clear()
 
        While (lector.Read)
 
            ListBox1.Items.Add(lector(0))
            ListBox2.Items.Add(lector(1))
            ListBox3.Items.Add(lector(2))
            ListBox4.Items.Add(lector(3))
 
        End While
 
        lector.Close()
        conexion.Close()
 
        Dim contador As Integer = 0
        Dim elementos As Integer = ListBox1.Items.Count
 
        Chart1.Titles.Clear()
        Chart1.Titles.Add(" VARIACIONES EN LOS VALORES DE LAS TOMAS")
        Chart1.Series(0).LegendText = "Valores."
        Chart1.BackColor = Color.Aqua
        Chart1.BackSecondaryColor = Color.Gainsboro
        Chart1.BackGradientStyle = GradientStyle.TopBottom
        Chart1.BorderlineDashStyle = ChartDashStyle.Solid
        Chart1.BorderSkin.SkinStyle = BorderSkinStyle.Emboss
        Chart1.BorderlineColor = Color.Bisque
        Chart1.ChartAreas(0).AxisX.Interval = 2
        Chart1.ChartAreas(0).AxisY.Interval = 0.5
        Chart1.ChartAreas(0).AxisY.Minimum = 0
        Chart1.Series(0).Color = Color.Bisque
        Chart1.Series(0).Name = "TENSIÓN"
 
        For contador = 0 To elementos - 1
 
            Chart1.Series(0).Points.AddY(ListBox1.Items.Item(contador))
            Chart1.Series(0).Points.AddY(ListBox2.Items.Item(contador))
            Chart1.Series(0).Points.AddY(ListBox3.Items.Item(contador))
            Chart1.Series(0).Points.AddY(ListBox4.Items.Item(contador))
 
        Next
 
    End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Phil Rob
Val: 3.353
Oro
Ha mantenido su posición en Visual Basic.NET (en relación al último mes)
Gráfica de Visual Basic.NET

¿Cómo puedo hacer un gráfico con varias series de valores?

Publicado por Phil Rob (1546 intervenciones) el 03/08/2020 18:51:12
Quizá tenes mas facile si como en mi codigo, utilzas un DataAdapter para llenar una DataTable y que das este DataTable como valor para el DataSource de tu Chart ...

Si envias tu DB (supongo que este es un DB Access), ajustaré mi código de este mañana para mostrar los valores de la DB.

Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Phil Rob
Val: 3.353
Oro
Ha mantenido su posición en Visual Basic.NET (en relación al último mes)
Gráfica de Visual Basic.NET

¿Cómo puedo hacer un gráfico con varias series de valores?

Publicado por Phil Rob (1546 intervenciones) el 03/08/2020 21:56:13
Adjunto el proyecto que hecho este gráfico :

Chart2

Esperto que este te ayudará
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil
Val: 229
Ha disminuido 1 puesto en Visual Basic.NET (en relación al último mes)
Gráfica de Visual Basic.NET

¿Cómo puedo hacer un gráfico con varias series de valores?

Publicado por José Vicente (113 intervenciones) el 03/08/2020 22:36:59
Hola, buenas noches de nuevo, gracias. Estoy intentando mejorarlo.Repito. Muchas gracias.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Roy
Val: 20
Ha disminuido su posición en 4 puestos en Visual Basic.NET (en relación al último mes)
Gráfica de Visual Basic.NET

¿Cómo puedo hacer un gráfico con varias series de valores?

Publicado por Roy (5 intervenciones) el 03/08/2020 20:30:24
Cuando haces: lector.Read() el command pasa al siguiente registro, entonces en tu ciclo while en vez de iniciar el bucle en el registro 0 (que seria el primer registro) lo estas haciendo en el registro 1 (el segundo) ya que tienes un Read antes del While. Elimina el lector.Read() que tienes despues de: lector = comando.ExecuteReader.
Por otro lado, seria mas facil si en lugar de utilizar un DataReader cargaras los datos en un dataset y posteriormente utilizas ese dataset como DataSource para tu Chart
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar