1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24
| Public Sub showChart()
'Dim file1 As String = File.ReadAllText("C:\Users\ism\Documents\SharpDevelop Projects\D_test\test.csv")
'Forms.MessageBox.Show(file1)
Dim MyValue As New List(Of KeyValuePair(Of Integer, Double))()
MyValue.Add(New KeyValuePair(Of Integer, Double)(0, -0.007505519))
MyValue.Add(New KeyValuePair(Of Integer, Double)(50, -0.00397351))
MyValue.Add(New KeyValuePair(Of Integer, Double)(100, 0.0008830022))
MyValue.Add(New KeyValuePair(Of Integer, Double)(110, 0.01324503))
MyValue.Add(New KeyValuePair(Of Integer, Double)(115, 0.004415011))
MyValue.Add(New KeyValuePair(Of Integer, Double)(120, 0.006181016))
MyValue.Add(New KeyValuePair(Of Integer, Double)(125, 0.08609272))
MyValue.Add(New KeyValuePair(Of Integer, Double)(130, 0.5209713))
MyValue.Add(New KeyValuePair(Of Integer, Double)(135, 0.2980132))
MyValue.Add(New KeyValuePair(Of Integer, Double)(140, 0.1205298))
MyValue.Add(New KeyValuePair(Of Integer, Double)(150, 0.04238411))
MyValue.Add(New KeyValuePair(Of Integer, Double)(200, 0.007505519))
MyValue.Add(New KeyValuePair(Of Integer, Double)(250, 0.008388521))
Chart.DataContext = MyValue
End Sub |
Partager