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
| 'CREATION DU GRAPHIQUE:
'Créer un Chart
Dim Chart1 As New Chart
' Creation d'un Chart Area
Dim chartArea1 As New ChartArea()
' Ajout ChartArea au Chart
Chart1.ChartAreas.Add(chartArea1)
'Ajout d'une Series nommée "mémoires"
Chart1.Series.Add("Memoires")
'Ajout de 1 DataPoint
Dim p1 As New DataPoint
p1.XValue = 1
p1.YValues = {5}
p1.Label = "Mémoire"
Chart1.Series("Memoires").Points.Add(Val(prog))
'On indique d'afficher cette Series sur le ChartArea1
Chart1.Series("Memoires").ChartArea = "ChartArea1"
' On positionne le Chart
Chart1.Location = New System.Drawing.Point(0, 0)
' On indique les dimensions du Chart
Chart1.Size = New System.Drawing.Size(360, 260)
' On ajoute le Chart à la form
Me.Controls.Add(Chart1) |
Partager