ZedGraph - X Achse Zeit beschriften

  • VB.NET

Es gibt 7 Antworten in diesem Thema. Der letzte Beitrag () ist von vbneuling88.

    ZedGraph - X Achse Zeit beschriften

    Hallo, anbei mein Quellcode von Zedgraph

    bis jetzt ist es so, dass der Wert geschrieben wird auf der Y Achse und auf der X achse ein INT nur inkrementiert wird. Wie kann man es lösen, dass statt des INT's die Uhrzeit in Folgenden Format stetht "HH:mm:ss" und wie muss ich die PointPairList beschreiben (hier sind ja nur Double erlaubt...)

    habe bei Google schon sehr lange gesucht, habe aber nichts gefunden, da ich ein totaler neuling in sachen VB bin

    VB.NET-Quellcode

    1. Imports ZedGraph
    3. Public Class frmGraph1
    6. Dim graph_x_achse_min As Double = 0
    7. Dim graph_x_achse_max As Double = 2
    8. Dim graph_y_achse_min As Int32 = 0
    9. Dim graph_y_achse_max As Int32 = 100
    10. Dim x_max_change As Boolean = False
    12. Private Sub frmGraph1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
    17. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    18. '
    21. CreateGraph(zg1)
    22. txtWert_min.Text = 0
    23. txtWert_max.Text = 100
    24. Timer1.Enabled = True
    28. End Sub
    29. Public Sub GraphInit()
    31. End Sub
    35. Public Sub CreateGraph(ByVal Graph As ZedGraphControl)
    36. Try
    38. Dim myPane As GraphPane = Graph.GraphPane
    41. ' Set the titles and axis labels
    42. myPane.Title.Text = ""
    44. myPane.XAxis.Title.Text = "Minuten"
    45. myPane.XAxis.MajorGrid.Color = Color.Aqua
    46. myPane.YAxis.Title.Text = ""
    49. ' Make up some data points from the Sine function
    50. myPane.CurveList.Clear()
    55. frmMain.list16_1.Add(frmMain.m_icount / 60, frmMain.Buffer(1))
    58. ' Generate a blue curve with circle symbols, and "My Curve 2" in the legend
    59. If CheckBox1.Checked Then
    60. Dim Kurve16_1 As LineItem = myPane.AddCurve(frmMain.alias16_1.Text, frmMain.list16_1, frmFarben.farben(1), SymbolType.None)
    61. End If
    64. ' Fill the area under the curve with a white-red gradient at 45 degrees
    65. 'myCurve.Line.Fill = New Fill(Color.White, Color.Red, 45.0F)
    66. ' Make the symbols opaque by filling them with white
    67. 'myCurve.Symbol.Fill = New Fill(Color.White)
    69. ' Fill the axis background with a color gradient
    70. ' myPane.Chart.Fill = New Fill(Color.White, Color.LightGoldenrodYellow, 45.0F)
    72. ' Fill the pane background with a color gradient
    73. 'myPane.Fill = New Fill(Color.White, Color.FromArgb(220, 220, 255), 45.0F)
    76. myPane.XAxis.Scale.Min = graph_x_achse_min
    77. If myPane.IsZoomed = False Then
    78. If x_max_change = False Then
    79. If myPane.XAxis.Scale.Max < 2 Then
    80. myPane.XAxis.Scale.Max = 2
    81. Else
    82. If frmMain.m_icount / 60 >= myPane.XAxis.Scale.Max Then
    83. myPane.XAxis.Scale.Max = myPane.XAxis.Scale.Max * 2
    85. End If
    86. End If
    87. Else
    88. myPane.XAxis.Scale.Max = graph_x_achse_max
    89. End If
    92. If txtzeit_bis.Focused = False Then
    93. txtzeit_bis.Text = myPane.XAxis.Scale.Max.ToString
    94. End If
    95. myPane.YAxis.Scale.Max = graph_y_achse_max
    96. myPane.YAxis.Scale.Min = graph_y_achse_min
    98. myPane.YAxis.Scale.MinorStep = graph_y_achse_max / 100
    99. myPane.YAxis.Scale.MajorStep = graph_y_achse_max / 20
    101. myPane.XAxis.Scale.MinorStep = myPane.XAxis.Scale.Max / 100
    102. myPane.XAxis.Scale.MajorStep = myPane.XAxis.Scale.Max / 20
    103. Else
    104. myPane.YAxis.Scale.MinorStepAuto = True
    105. myPane.YAxis.Scale.MajorStepAuto = True
    107. myPane.XAxis.Scale.MinorStepAuto = True
    108. myPane.XAxis.Scale.MajorStepAuto = True
    109. End If
    113. graph_x_achse_max = myPane.XAxis.Scale.Max
    117. 'myPane.YAxis.MinorGrid.IsVisible = True
    118. 'myPane.YAxis.MajorGrid.IsVisible = True
    119. 'myPane.XAxis.MajorGrid.IsVisible = True
    120. 'myPane.XAxis.MinorGrid.IsVisible = True
    123. 'Graph.AxisChange()
    124. SetSize()
    125. Me.Refresh()
    127. Catch ex As Exception
    128. MsgBox("Fehler beim Zeichnen des Graphen, Programm wird gestoppt,", vbCritical)
    129. Me.Close()
    130. End Try
    131. End Sub
    135. Private Sub SetSize()
    136. Try
    137. zg1.Location = New Point(10, 10)
    138. ' Leave a small margin around the outside of the control
    139. zg1.Size = New Size(ClientRectangle.Width - 20, ClientRectangle.Height - 110)
    140. pan_graphauswahl.Size = New Size(200, ClientRectangle.Height - 110)
    141. Me.GroupBox3.Location = New System.Drawing.Point(10, ClientRectangle.Location.Y + zg1.Size.Height + 10)
    142. pan_graphauswahl.Location = New System.Drawing.Point(ClientRectangle.Location.Y + zg1.Size.Width + 5, 10)
    143. Label4.Text = "<"
    144. Label4.location = New System.Drawing.Point(0, zg1.Size.Height / 2)
    145. Catch ex As Exception
    147. MsgBox("Fehler beim der Größenberechnung, Programm wird gestoppt,", vbCritical)
    148. End Try
    149. End Sub
    152. Private Sub btnZeit_ok_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnZeit_ok.Click
    153. If graph_x_achse_max <> CDbl(txtzeit_bis.Text) Then
    154. x_max_change = True
    155. End If
    156. graph_x_achse_min = CDbl(txtzeit_von.Text)
    157. graph_x_achse_max = CDbl(txtzeit_bis.Text)
    160. CreateGraph(zg1)
    161. End Sub
    163. Private Sub btnZeit_reset_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnZeit_reset.Click
    164. x_max_change = False
    165. graph_x_achse_min = 0
    166. graph_x_achse_max = 2
    168. CreateGraph(zg1)
    169. End Sub
    171. Private Sub btnWert_min_ok_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnWert_min_ok.Click
    172. graph_y_achse_min = CInt(txtWert_min.Text)
    173. CreateGraph(zg1)
    174. End Sub
    176. Private Sub btn_Wert_max_ok_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Wert_max_ok.Click
    177. graph_y_achse_max = CInt(txtWert_max.Text)
    178. CreateGraph(zg1)
    179. End Sub
    181. Private Sub frmGraph_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resize
    182. SetSize()
    183. End Sub
    186. Private Sub Label4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label4.Click
    187. If Label4.Text = "<" Then
    188. pan_graphauswahl.Location = New System.Drawing.Point(ClientRectangle.Location.Y + zg1.Size.Width - 190, 10)
    189. Label4.Text = ">"
    190. ElseIf Label4.Text = ">" Then
    191. pan_graphauswahl.Location = New System.Drawing.Point(ClientRectangle.Location.Y + zg1.Size.Width + 5, 10)
    192. Label4.Text = "<"
    193. End If
    194. End Sub
    196. Private Sub pan_graphauswahl_Scroll(ByVal sender As Object, ByVal e As System.Windows.Forms.ScrollEventArgs) Handles pan_graphauswahl.Scroll
    197. Label4.Location = New System.Drawing.Point(0, zg1.Size.Height / 2)
    198. End Sub
    200. Private Sub Panel1_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs)
    202. End Sub
    203. End Class

    Dein Post ist sehr lang und enhält viele unnötige Leerzeilen. Tipp: Beim Post Erstellen immer den "Quellcode" reiter und nicht den "Editor" auswählen.
    Bitte reduziere den Quellcode auf ein "minimal working example", also ein möglichst kurzen Quellcode, der dein Problem beschreibt.
    Für Datum und Uhrzeit benutzt man die DateTime Klasse. Für die gewünschte Formatierung benutzt man die entsprechende .toString() Überladung.

    Der Post könnte dir eventuell helfen.

    Ich habe vor paar Monaten damit gearbeitet (Auswertungen der Auslastung von diversen Servern).
    Bin mir zwar nicht mehr sicher, aber ich guck morgen im Geschäft kurz rein, vielleicht habe ich ja deine Lösung (Dein Problem kommt mir bekannt vor).

    Greez Dancger
    MESS WITH THE BEST, DIE LIKE THE REST! :evil:
    n'paar Links: DNS Tools, Steal WA DB, Droidsheep...

    Hallo

    habe immer noch das Problem, dass die Uhrzeit nicht angezeigt wird

    VB.NET-Quellcode

    1. myPane.XAxis.Type = AxisType.Date
    2. myPane.XAxis.Scale.Format = "HH:mm"


    die Uhrzeit wird von einer Datenbank als DateTime ausgelesen

    Zum hinzufügen in die PoinPairList wird CDbl() verwendet

    das Problem liegt auch noch darin, dass die Uhrzeit in 12h format angezeigt wird, aber nur nach dem auf den Graph mit rechtsklick der Punkt "Set Scale to Default" geklickt wurde

    Ich benötige ein 24h format

    Weiß jemand weiter?

    vbneuling88 schrieb:

    Ich benötige ein 24h format
    So was:

    VB.NET-Quellcode

    1. MessageBox.Show(DateTime.Now.ToShortTimeString)
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Problem gelöst

    VB.NET-Quellcode

    1. With myPane.XAxis
    3. .Type = Global.ZedGraph.AxisType.Date
    4. .Scale.Min = graph_x_achse_min
    5. .Scale.Max = graph_x_achse_max
    6. .Scale.MinorUnit = ZedGraph.DateUnit.Minute
    7. .Scale.MajorUnit = ZedGraph.DateUnit.Minute
    9. .Scale.FontSpec.Size = 8
    10. .Scale.MajorStep = 24
    11. .Scale.MinorStep = 4
    12. .Scale.Format = "HH:mm"
    14. End With

Facebook