1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
| Private Sub UpdateLocationToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles UpdateLocationToolStripMenuItem1.Click
graphique.Chart1.ChartAreas.Clear()
graphique.Chart1.Series.Clear()
Dim chartArea1 As New ChartArea()
graphique.Chart1.ChartAreas.Add(chartArea1)
Dim series1 As New Series("succes %")
For w As Integer = 0 To 100
If tableau_structure(w).tcapops = "Update Location" Then
Dim pourcentage As Integer = (tableau_structure(w).succes * 100 / tableau_structure(w).tentatives)
series1.Points.AddXY(tableau_structure(w).operateurs, pourcentage)
End If
Next
series1.ChartArea = chartArea1.Name
graphique.Chart1.Series.Add(series1)
graphique.Show()
End Sub |
Partager