Datum und Urzeit mit zedgraph anzeigen?

  • VB.NET

Es gibt 3 Antworten in diesem Thema. Der letzte Beitrag () ist von Manu67100.

    Datum und Urzeit mit zedgraph anzeigen?

    Hallo,
    Also ich habe ein problem ( ;( ) :
    Ich habe eine textdatei in der pro zeile daten die ausgelesen werden geteilt werden in:
    [datum]
    [ Zeit ]
    [Antwort]

    Wie kann ich den neuen punkt angeben? (jahr, datum , Uhrzeit)
    -list.Add("22.11.2010 18:41:44", "52") Funktioniert nicht!
    Hier den aktuellen code:

    VB.NET-Quellcode

    1. Public Sub CreateChart(ByVal zgc As ZedGraphControl)
    2. Dim myPane As GraphPane = zgc.GraphPane
    4. ' Set the titles and axis labels
    5. myPane.Title.Text = "Anser Time of pings"
    6. myPane.XAxis.Title.Text = "Date"
    7. myPane.YAxis.Title.Text = "Ms"
    9. ' Make up some data points from the Sine function
    10. Dim list As New PointPairList()
    11. Dim list2 As New PointPairList()
    12. For i As Integer = 0 To 35
    13. Dim x As Double = New XDate(2010, i + 1, 1)
    14. Dim y As Double = Math.Sin(CDbl(i) * Math.PI / 15.0)
    15. Dim y2 As Double = 2 * y
    17. list.Add("22.11.2010 18:41:44", "52")
    18. 'list.Add(x, y)
    20. Next
    22. ' Generate a green curve , and "My Curve 2" in the legend
    23. Dim myCurve2 As LineItem = myPane.AddCurve("Usage", list, Color.Green, SymbolType.None)
    24. ' Fill the area under the curve with a white-red gradient at 45 degrees
    25. myCurve2.Line.Fill = New Fill(Color.White, Color.Red, 45.0F)
    26. ' Make the symbols opaque by filling them with white
    27. myCurve2.Symbol.Fill = New Fill(Color.White)
    30. ' Set the XAxis to date type
    31. myPane.XAxis.Type = AxisType.[Date]
    33. ' Fill the axis background with a color gradient
    34. myPane.Chart.Fill = New Fill(Color.White, Color.LightGoldenrodYellow, 45.0F)
    36. ' Calculate the Axis Scale Ranges
    37. zgc.AxisChange()
    38. End Sub



    Ich habe noch keine erfahrung mit zedgraph. 8|
    Ich freue mich auf Antworten
    Mfg manu :)

    Dieser Beitrag wurde bereits 9 mal editiert, zuletzt von „Manu67100“ ()

    Danke, aber leider bietet GDI nicht die Zeit funktion:

    VB.NET-Quellcode

    1. ' Set the XAxis to date type
    2. myPane.XAxis.Type = AxisType.[Date]

    Mfg Manu
    Habe Das Problem gelöst.

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Manu67100“ ()

    Zegraph zeichnet keine Kurve, Fehler im Code?

    Hallo,
    Ich versuche seit ein paar Tagen Verzeiweifelt nach einer lösung hier ist sie ... Doch er funktioniert nicht... ;(
    Ich benütze folgenden code doch zedgraph zeichnet keine kurve warum?

    VB.NET-Quellcode

    1. Dim pth As String = "C:\"
    2. Private Sub frmStats_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    3. CheckForIllegalCrossThreadCalls = False
    4. Readsplit(Charts, pth + result.log")
    5. End Sub
    9. Private Function Readsplit(ByVal zgc As ZedGraphControl, ByVal path As String)
    10. Dim list As New PointPairList()
    11. Dim myPane As GraphPane = zgc.GraphPane
    13. myPane.XAxis.Type = AxisType.[Date]
    16. ' Set the Titles
    17. myPane.Title.Text = "My Test Graph"
    18. myPane.XAxis.Title.Text = "Date"
    19. myPane.YAxis.Title.Text = "Results"
    21. Dim Oldstr As String
    22. Dim newStr As String
    23. Dim Text1 As IO.StreamReader
    25. Dim xp As String
    26. Dim yp As String
    28. Text1 = File.OpenText(path)
    30. While (Text1.Peek() > -1)
    31. Oldstr = Text1.ReadLine
    35. Dim text As String
    36. Dim result As String
    37. Dim strdate As String
    38. Dim astrArray As Object
    41. text = Oldstr
    42. astrArray = Split(text, ";")
    43. strdate = astrArray(0)
    44. result = Trim(astrArray(1))
    45. list.Add(ConvertDateToXdate(strdate), result)
    47. MsgBox(list)
    49. End While
    50. Text1.Close()
    52. ' Generate a green curve , and "My Curve 2" in the legend
    53. Dim myCurve2 As LineItem = myPane.AddCurve("Usage", list, Color.Green, SymbolType.Plus)
    54. ' Fill the area under the curve with a white-red gradient at 45 degrees
    55. myCurve2.Line.Fill = New Fill(Color.White, Color.Red, 45.0F)
    56. ' Make the symbols opaque by filling them with white
    57. myCurve2.Symbol.Fill = New Fill(Color.White)
    60. ' Fill the axis background with a color gradient
    61. myPane.Chart.Fill = New Fill(Color.White, Color.LightGoldenrodYellow, 45.0F)
    64. zgc.AxisChange()
    65. End Function
    67. Public Function ConvertDateToXdate(ByVal [date] As DateTime) As XDate
    68. Return New XDate([date].ToOADate)
    69. End Function


    Hier ist noch ein auszug von der textdatei:

    Quellcode

    1. 23.11.2010 19:14:25;94
    2. 23.11.2010 19:14:35;79
    3. 23.11.2010 19:14:45;96
    4. 23.11.2010 19:14:55;91



    Ich freue mich auf lösungen
    Mfg Manu

    *Topics zusammengeführt*

    Dieser Beitrag wurde bereits 6 mal editiert, zuletzt von „Marcus Gräfe“ ()

Facebook
Telefonspende