Hoi Elmar,
hatte mir das Wiki schon eingetrichtert, bekomme aber kein Ergebnis nach meinem Wunsch (Zeilenweise einlesen auf einer simplen TextListe) da die beiden angefürhrten HowTo's sich auf zyklisches einlesen spezifiezieren.
Hier mein Code für die simple Balkengrafik (benutzt RND-Funktion):
Private Sub CreateGraph_GradientByZBars(ByVal z1 As ZedGraphControl)
Dim myPane As GraphPane = z1.GraphPane
myPane.Title.Text = "Benzinverbrauch pro 100 km"
myPane.XAxis.Title.Text = "Messung"
myPane.YAxis.Title.Text = "Liter"
Dim list As New PointPairList()
Dim rand As New Random()
Dim i As Integer
For i = 0 To 30
Dim x As Double = CDbl(i) + 1
Dim y As Double = rand.NextDouble() * 10
Dim z As Double = i / 4.0
list.Add(x, y, z)
Next i
Dim myCurve As BarItem = myPane.AddBar("Multi-Colored Bars", list, Color.Blue)
Dim colors As Color() = {Color.Red, Color.Yellow, Color.Green, Color.Blue, Color.Purple}
myCurve.Bar.Fill = New Fill(colors)
myCurve.Bar.Fill.Type = FillType.GradientByZ
myCurve.Bar.Fill.RangeMin = 0
myCurve.Bar.Fill.RangeMax = 4
myPane.Chart.Fill = New Fill(Color.White, Color.FromArgb(220, 220, 255), 45)
myPane.Fill = New Fill(Color.White, Color.FromArgb(255, 255, 225), 45)
' Tell ZedGraph to calculate the axis ranges
z1.AxisChange()
End Sub 'CreateGraph_GradientByZBars
Private Sub SetSize()
zg1.Location = New Point(10, 10)
' Leave a small margin around the outside of the control
zg1.Size = New Size(ClientRectangle.Width - 10, ClientRectangle.Height - 10)
End Sub
da ich, wie gesagt nicht so der Grafik- bzw. Chartfreak bin stehe ich auf dem Schlauch ;-)
Ich benutze in diesem Beispiel die Benzinverbrauchsaten meines PKWs - jeweils die letzten 30 Verbrauchsdaten sollen angezeigt werden.
Doei
Franz
