vb.net Zedgraph
Habe nen kleines Prgramm geschrieben was alle 10 Sekunden den aktuellen Speicherplatz eines laufwerks anzeigt ,diesen in einer RichTextbox protokolliert, ihn in einer Log File abspeichert und bei Bedarf per E-mail versenden kann.
Zu guter letzt versuche ich mit Hilfe der Zedgraph Libary das ganze noch grafisch anzeigen zu lassen. Alle 10 Sekunden führt ein Timer also die nachfolgende Funktion aus um einen neuen Punkt zu erstellen.
Mein Problem ist das nur Punkte im Diagramm angezeigt werden und keine Linie.
Genauso wird ignoriert das Unterhalb der Linie der Bereich grün gefärbt werden soll. Ich steh nen bisschen auf dem Schlauch, aber vielleicht fällt einem von euch was im Code auf.
Code:
Private Sub CreateGraph(ByVal zgc As ZedGraphControl)
Dim x As Double
x = New XDate(DateTime.Now)
Dim myPane As GraphPane = zgc.GraphPane
Dim list = New PointPairList()
' Set the titles and axis labels
myPane.Title.Text = "Speicherplatz"
myPane.XAxis.Title.Text = "Zeitachse"
myPane.YAxis.Title.Text = "Freier Speicher in Gb"
' Farben bestimmen
'Punktierung einsetzen und Farbe bestimmen
'myPane.XAxis.MajorGrid.IsVisible = True
'myPane.YAxis.MajorGrid.IsVisible = True
'myPane.XAxis.MajorGrid.Color = Color.White
'myPane.YAxis.MajorGrid.Color = Color.White
myPane.Chart.Fill = New Fill(Color.Black)
myPane.Fill = New Fill(Color.White, Color.DimGray)
myPane.XAxis.Type = AxisType.Date
myPane.XAxis.Scale.Format = "hh:mm:ssss"
myPane.Legend.IsVisible = False
' Neue Linie erstelle (Formatierung)
list.Add(x, Label2.Text)
Dim myCurve As LineItem = myPane.AddCurve("Speicherplatz", list, Color.Lime, SymbolType.Circle)
myCurve.Line.Width = 200.0F
myCurve.Line.IsAntiAlias = True
myCurve.Line.Color = Color.Lime
myCurve.Symbol.Fill = New Fill(Color.White)
myCurve.Symbol.Size = 7
myCurve.Line.IsVisible = True
' Calculate the Axis Scale Ranges
zgc.AxisChange()
ZedGraphControl1.Invalidate()
