Chart_Donnees.Series.Clear() list_max.Clear() If CheckBox_CordeG.Checked = True Then Chart_Donnees.Series.Add(serie_CordeG) Chart_Donnees.Series.Add(serie_CordeG_Pt) list_max.Add(Calcul.list_corde12) End If If CheckBox_CordeD.Checked = True Then Chart_Donnees.Series.Add(serie_CordeD) Chart_Donnees.Series.Add(serie_CordeD_Pt) list_max.Add(Calcul.list_corde22) End If If CheckBox_CordeDecaleG.Checked = True Then Chart_Donnees.Series.Add(serie_CordeG2) Chart_Donnees.Series.Add(serie_CordeG2_Pt) list_max.Add(Calcul.list_corde1) End If If CheckBox_CordeDecaleD.Checked = True Then Chart_Donnees.Series.Add(serie_CordeD2) Chart_Donnees.Series.Add(serie_CordeD2_Pt) list_max.Add(Calcul.list_corde2) End If If CheckBox_MachineG.Checked = True Then Chart_Donnees.Series.Add(serie_MachineG) Chart_Donnees.Series.Add(serie_MachineG_Pt) list_max.Add(Calcul.list_machine1) End If If CheckBox_MachineD.Checked = True Then Chart_Donnees.Series.Add(serie_MachineD) Chart_Donnees.Series.Add(serie_MachineD_Pt) list_max.Add(Calcul.list_machine2) End If
Private Sub Graphique1() Chart_Donnees.Series.Clear() Chart_Donnees.Titles(0).Text = "Aperçu des données" Chart_Donnees.Legends(0).LegendStyle = LegendStyle.Column Chart_Donnees.ChartAreas(0).Position = New ElementPosition(5, 10, 90, 90) serie_CordeD.LegendText = "Corde Droite" serie_CordeD2.LegendText = "Corde Droite décalé" serie_CordeG.LegendText = "Corde Gauche" serie_CordeG2.LegendText = "Corde Gauche décalé" serie_MachineD.LegendText = "Machine Droite" serie_MachineG.LegendText = "Machine Gauche" Dim list_serie As New List(Of Series) With list_serie .Add(serie_CordeD) .Add(serie_CordeD2) .Add(serie_CordeG) .Add(serie_CordeG2) .Add(serie_MachineD) .Add(serie_MachineG) End With serie_CordeD.Color = Color.Blue serie_CordeD2.Color = Color.Red serie_CordeG.Color = Color.Blue serie_CordeG2.Color = Color.Red serie_MachineD.Color = Color.Green serie_MachineG.Color = Color.Green For Each serie In list_serie serie.Points.Clear() With serie .BorderWidth = 3 .BorderColor = Color.Black .ChartType = SeriesChartType.Line End With Next Dim list_serie_Pt As New List(Of Series) With list_serie_Pt .Add(serie_CordeD_Pt) .Add(serie_CordeD2_Pt) .Add(serie_CordeG_Pt) .Add(serie_CordeG2_Pt) .Add(serie_MachineD_Pt) .Add(serie_MachineG_Pt) End With For Each serie In list_serie_Pt serie.Points.Clear() With serie .ChartType = SeriesChartType.Point .BorderWidth = 5 .MarkerSize = 8 .IsVisibleInLegend = False .Color = Color.White .BorderColor = Color.Black .MarkerStyle = MarkerStyle.Square End With Next 'Rempli chaque serie For Each Point In Calcul.list_corde12 serie_CordeG.Points.AddXY(Point.X, Point.Y) serie_CordeG_Pt.Points.AddXY(Point.X, Point.Y) Next For Each Point In Calcul.list_corde22 serie_CordeD.Points.AddXY(Point.X, Point.Y) serie_CordeD_Pt.Points.AddXY(Point.X, Point.Y) Next For Each Point In Calcul.list_corde1 serie_CordeG2.Points.AddXY(Point.X, Point.Y) serie_CordeG2_Pt.Points.AddXY(Point.X, Point.Y) Next For Each Point In Calcul.list_corde2 serie_CordeD2.Points.AddXY(Point.X, Point.Y) serie_CordeD2_Pt.Points.AddXY(Point.X, Point.Y) Next For Each Point In Calcul.list_machine1 serie_MachineG.Points.AddXY(Point.X, Point.Y) serie_MachineG_Pt.Points.AddXY(Point.X, Point.Y) Next For Each Point In Calcul.list_machine2 serie_MachineD.Points.AddXY(Point.X, Point.Y) serie_MachineD_Pt.Points.AddXY(Point.X, Point.Y) Next End Sub
Chart_Donnees.series.add(NomDeLaSérie)
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionDim list_serie_Pt As New List(Of Series)
If CheckBox_MachineD.Checked = True Then
If CheckBox_MachineD.Checked Then
Dim series1 As New Series("Price")