Chart & X-Achse Beschriftung

  • VB.NET

Es gibt 42 Antworten in diesem Thema. Der letzte Beitrag () ist von hw522.

    Also ich habe bisher kein Beispiel gefunden, bei dem der X-Achse Werte zugewiesen wurden.
    Bei den Points mit den Datenpaaren (AddXY-Methode) zur Zeichnung des Graphen kein Problem, das betrifft aber nicht die Beschriftung der X-Achse. Wo/wie geht das?

    Den Post versteh ich leider inhaltlich nicht (ganz).

    hw522 schrieb:

    Also ich habe bisher kein Beispiel gefunden, bei dem der X-Achse Werte zugewiesen wurden.
    Klingt nach: Du änderst nix am Chart bezüglich der Achsen(beschriftung).

    hw522 schrieb:

    Bei den Points mit den Datenpaaren (AddXY-Methode) zur Zeichnung des Graphen kein Problem
    Was ist kein Problem?

    hw522 schrieb:

    Wo/wie geht das?
    Wo/wie geht was?
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    Das ist wörtlich zu nehmen wie es da steht:
    Also ich habe bisher kein Beispiel gefunden, bei dem der X-Achse Werte zur BESCHRIFTUNG zugewiesen wurden.
    Bei den Points mit den Datenpaaren (AddXY-Methode) zur Zeichnung des Graphen kein Problem, das betrifft aber nicht die Beschriftung der X-Achse.

    Wo/wie geht das?

    ==> wo und wie weist man der X-Achse die Beschriftung zu?

    Achso.
    Naja, ich denke nicht, dass Du jetzt schon einen Code zur Zuweisung der Werte zur Beschriftung brauchst. Wir sollten erstmal klären, warum Deine Achse schon eine vom Default abweichende Beschriftung hat. Wir man es richtig macht können wir dann klären, sobald die Ursache für die falsche Beschriftung (also Datum statt 0, 1, 2) gefunden wurde. Ansonsten kann es passieren, dass der vorhandene, versteckte Falschcode das alles wieder zunichte macht. Daher bitte Inhalt der FormX.Designer.VB posten, wobei FormX das Form ist, wo sich das falsch beschriftete Chart befindet.
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    Chart & X-Achse Beschriftung

    Ich habe jetzt ein neues Projekt ohne Zusätze, formatierung etc. gemacht

    Quellcode

    1. ​Public Class Form1
    3. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    5. Dim inzidenz_arr() As String = File.ReadAllLines("inzidenz_rnk.txt")
    6. Dim datum_arr() As String = File.ReadAllLines("inz_datum.txt")
    8. Dim t As Double
    10. For t = 0 To inzidenz_arr.Count - 1
    12. Dim iz As Double = inzidenz_arr(t)
    14. Chart1.Series(0).Points.AddXY(t, iz)
    16. Next t
    18. End Sub
    20. End Class


    Ergebnis im Entwurf und im Debug:
    Bilder

    • entwurf_test.jpg

      57,63 kB, 838×518, 29 mal angesehen

    • entwurf_debug.jpg

      47,92 kB, 817×503, 29 mal angesehen

    @hw522 Form mit ChartControl und ComboBox:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System.Windows.Forms.DataVisualization.Charting
    3. Public Class Form1
    4. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    5. ComboBox1.Items.Clear()
    6. ComboBox1.Items.AddRange(New String() {"MMM", "MMMM", "dd.MM.yyyy", "MM.yyyy", "MMM.yyyy", "MMMM.yyyy", "MM.yy", "HH.mm.ss"})
    8. Dim dt = DateTime.Now
    9. For i = 0 To 20
    10. Dim x = i
    11. Dim y = i '* i
    12. 'Me.Chart1.Series(0).Points.AddXY(x, y)
    13. 'Me.Chart1.Series(0).Points.AddXY(x, dt.AddHours(i))
    14. Me.Chart1.Series(0).Points.AddXY(dt.AddHours(i), y)
    15. Next
    17. Chart1.ChartAreas(0).AxisX.LabelStyle.Angle = 45 ' geneigte Beschriftung der x-Achse
    18. ComboBox1.SelectedIndex = 2
    19. End Sub
    21. Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
    22. Chart1.ChartAreas(0).AxisX.LabelStyle.Format = ComboBox1.SelectedItem.ToString()
    23. End Sub
    24. End Class
    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!

    hw522 schrieb:

    Das klappt dann so nicht.
    Ich habe nur ein sehr einfaches Beispiel gecodet.
    Du kannst da reinpacken, was immer Du willst.
    Und:
    Zitiere bitte gefälligst nicht komplette Posts über den Deinen.
    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!

    Klingt, als ob nun zwar bekannt ist, wie man es hinbekommt, aber der Fehler, um den es eigentlich ging, wurde immer noch nicht gefunden. Das ist schlecht und führt ggf. dazu, dass der Fehler wieder auftritt. Und dann stehen wir wieder am Anfang.
    Was ich eigentlich meinte, was gepostet werden sollte: Im Projektverzeichnis gibt es eine Datei, die vermutlich heißt: Form1.Designer.vb. Die bitte per Visual Studio oder Editor öffnen, Inhalt kopieren und hier posten.
    Bilder

    • Variante über Visual Studio.png

      52,07 kB, 756×461, 36 mal angesehen

    • Variante über Dateiexplorer.png

      13,87 kB, 419×269, 31 mal angesehen
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    Hier form1.designer.vb:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
    2. Partial Class Form1
    3. Inherits System.Windows.Forms.Form
    5. 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
    6. <System.Diagnostics.DebuggerNonUserCode()>
    7. Protected Overrides Sub Dispose(ByVal disposing As Boolean)
    8. Try
    9. If disposing AndAlso components IsNot Nothing Then
    10. components.Dispose()
    11. End If
    12. Finally
    13. MyBase.Dispose(disposing)
    14. End Try
    15. End Sub
    17. 'Wird vom Windows Form-Designer benötigt.
    18. Private components As System.ComponentModel.IContainer
    20. 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
    21. 'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
    22. 'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
    23. <System.Diagnostics.DebuggerStepThrough()>
    24. Private Sub InitializeComponent()
    25. Dim ChartArea1 As System.Windows.Forms.DataVisualization.Charting.ChartArea = New System.Windows.Forms.DataVisualization.Charting.ChartArea()
    26. Dim Legend1 As System.Windows.Forms.DataVisualization.Charting.Legend = New System.Windows.Forms.DataVisualization.Charting.Legend()
    27. Dim Series1 As System.Windows.Forms.DataVisualization.Charting.Series = New System.Windows.Forms.DataVisualization.Charting.Series()
    28. Dim Series2 As System.Windows.Forms.DataVisualization.Charting.Series = New System.Windows.Forms.DataVisualization.Charting.Series()
    29. Dim Series3 As System.Windows.Forms.DataVisualization.Charting.Series = New System.Windows.Forms.DataVisualization.Charting.Series()
    30. Dim Series4 As System.Windows.Forms.DataVisualization.Charting.Series = New System.Windows.Forms.DataVisualization.Charting.Series()
    31. Dim Series5 As System.Windows.Forms.DataVisualization.Charting.Series = New System.Windows.Forms.DataVisualization.Charting.Series()
    32. Me.ListView1 = New System.Windows.Forms.ListView()
    33. Me.ColumnHeader1 = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader)
    34. Me.ColumnHeader2 = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader)
    35. Me.TextBox1 = New System.Windows.Forms.TextBox()
    36. Me.Chart1 = New System.Windows.Forms.DataVisualization.Charting.Chart()
    37. Me.TextBox2 = New System.Windows.Forms.TextBox()
    38. Me.TextBox3 = New System.Windows.Forms.TextBox()
    39. Me.btnClose = New System.Windows.Forms.Button()
    40. Me.btnShowSecondForm = New System.Windows.Forms.Button()
    41. CType(Me.Chart1, System.ComponentModel.ISupportInitialize).BeginInit()
    42. Me.SuspendLayout()
    43. '
    44. 'ListView1
    45. '
    46. Me.ListView1.BackColor = System.Drawing.Color.Linen
    47. Me.ListView1.Columns.AddRange(New System.Windows.Forms.ColumnHeader() {Me.ColumnHeader1, Me.ColumnHeader2})
    48. Me.ListView1.FullRowSelect = True
    49. Me.ListView1.GridLines = True
    50. Me.ListView1.HideSelection = False
    51. Me.ListView1.Location = New System.Drawing.Point(25, 27)
    52. Me.ListView1.Name = "ListView1"
    53. Me.ListView1.Size = New System.Drawing.Size(228, 336)
    54. Me.ListView1.TabIndex = 0
    55. Me.ListView1.UseCompatibleStateImageBehavior = False
    56. Me.ListView1.View = System.Windows.Forms.View.Details
    57. '
    58. 'ColumnHeader1
    59. '
    60. Me.ColumnHeader1.Text = "Datum"
    61. Me.ColumnHeader1.Width = 120
    62. '
    63. 'ColumnHeader2
    64. '
    65. Me.ColumnHeader2.Text = "Inzidenz RNK"
    66. Me.ColumnHeader2.Width = 80
    67. '
    68. 'TextBox1
    69. '
    70. Me.TextBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
    71. Me.TextBox1.Location = New System.Drawing.Point(25, 385)
    72. Me.TextBox1.Name = "TextBox1"
    73. Me.TextBox1.Size = New System.Drawing.Size(228, 22)
    74. Me.TextBox1.TabIndex = 1
    75. '
    76. 'Chart1
    77. '
    78. Me.Chart1.BackColor = System.Drawing.Color.LightSteelBlue
    79. ChartArea1.AxisX.LabelStyle.Interval = 0R
    80. ChartArea1.AxisX.LabelStyle.IntervalType = System.Windows.Forms.DataVisualization.Charting.DateTimeIntervalType.[Auto]
    81. ChartArea1.Name = "ChartArea1"
    82. Me.Chart1.ChartAreas.Add(ChartArea1)
    83. Legend1.Name = "Legend1"
    84. Me.Chart1.Legends.Add(Legend1)
    85. Me.Chart1.Location = New System.Drawing.Point(275, 27)
    86. Me.Chart1.Name = "Chart1"
    87. Series1.ChartArea = "ChartArea1"
    88. Series1.ChartType = System.Windows.Forms.DataVisualization.Charting.SeriesChartType.Spline
    89. Series1.Legend = "Legend1"
    90. Series1.LegendText = "Inzidenz RNK"
    91. Series1.Name = "Series0"
    92. Series1.ShadowOffset = 2
    93. Series1.XValueType = System.Windows.Forms.DataVisualization.Charting.ChartValueType.[Date]
    94. Series1.YValueType = System.Windows.Forms.DataVisualization.Charting.ChartValueType.[Double]
    95. Series2.ChartArea = "ChartArea1"
    96. Series2.ChartType = System.Windows.Forms.DataVisualization.Charting.SeriesChartType.Point
    97. Series2.IsValueShownAsLabel = True
    98. Series2.Legend = "Legend1"
    99. Series2.LegendText = "Min-/Maximum"
    100. Series2.MarkerSize = 12
    101. Series2.Name = "Series1"
    102. Series2.YValuesPerPoint = 6
    103. Series3.ChartArea = "ChartArea1"
    104. Series3.ChartType = System.Windows.Forms.DataVisualization.Charting.SeriesChartType.Line
    105. Series3.IsVisibleInLegend = False
    106. Series3.Legend = "Legend1"
    107. Series3.Name = "Series2"
    108. Series3.XValueType = System.Windows.Forms.DataVisualization.Charting.ChartValueType.[Double]
    109. Series3.YValueType = System.Windows.Forms.DataVisualization.Charting.ChartValueType.[Double]
    110. Series4.ChartArea = "ChartArea1"
    111. Series4.ChartType = System.Windows.Forms.DataVisualization.Charting.SeriesChartType.Line
    112. Series4.Legend = "Legend1"
    113. Series4.LegendText = "Minimum"
    114. Series4.MarkerColor = System.Drawing.Color.FromArgb(CType(CType(128, Byte), Integer), CType(CType(128, Byte), Integer), CType(CType(255, Byte), Integer))
    115. Series4.Name = "Series3"
    116. Series4.XValueType = System.Windows.Forms.DataVisualization.Charting.ChartValueType.[Double]
    117. Series4.YValueType = System.Windows.Forms.DataVisualization.Charting.ChartValueType.[Double]
    118. Series5.ChartArea = "ChartArea1"
    119. Series5.ChartType = System.Windows.Forms.DataVisualization.Charting.SeriesChartType.Line
    120. Series5.Legend = "Legend1"
    121. Series5.LegendText = "Maximum"
    122. Series5.MarkerColor = System.Drawing.Color.Lime
    123. Series5.Name = "Series4"
    124. Series5.XValueType = System.Windows.Forms.DataVisualization.Charting.ChartValueType.[Double]
    125. Series5.YValueType = System.Windows.Forms.DataVisualization.Charting.ChartValueType.[Double]
    126. Me.Chart1.Series.Add(Series1)
    127. Me.Chart1.Series.Add(Series2)
    128. Me.Chart1.Series.Add(Series3)
    129. Me.Chart1.Series.Add(Series4)
    130. Me.Chart1.Series.Add(Series5)
    131. Me.Chart1.Size = New System.Drawing.Size(1008, 522)
    132. Me.Chart1.TabIndex = 2
    133. Me.Chart1.Text = "Chart1"
    134. '
    135. 'TextBox2
    136. '
    137. Me.TextBox2.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
    138. Me.TextBox2.Location = New System.Drawing.Point(25, 413)
    139. Me.TextBox2.Name = "TextBox2"
    140. Me.TextBox2.Size = New System.Drawing.Size(119, 22)
    141. Me.TextBox2.TabIndex = 3
    142. '
    143. 'TextBox3
    144. '
    145. Me.TextBox3.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
    146. Me.TextBox3.Location = New System.Drawing.Point(161, 413)
    147. Me.TextBox3.Name = "TextBox3"
    148. Me.TextBox3.Size = New System.Drawing.Size(92, 22)
    149. Me.TextBox3.TabIndex = 4
    150. '
    151. 'btnClose
    152. '
    153. Me.btnClose.Location = New System.Drawing.Point(25, 506)
    154. Me.btnClose.Name = "btnClose"
    155. Me.btnClose.Size = New System.Drawing.Size(228, 30)
    156. Me.btnClose.TabIndex = 8
    157. Me.btnClose.Text = "E N D E"
    158. Me.btnClose.UseVisualStyleBackColor = True
    159. '
    160. 'btnShowSecondForm
    161. '
    162. Me.btnShowSecondForm.BackColor = System.Drawing.Color.LightSalmon
    163. Me.btnShowSecondForm.Location = New System.Drawing.Point(25, 458)
    164. Me.btnShowSecondForm.Name = "btnShowSecondForm"
    165. Me.btnShowSecondForm.Size = New System.Drawing.Size(228, 23)
    166. Me.btnShowSecondForm.TabIndex = 7
    167. Me.btnShowSecondForm.Text = "neeu Daten eingeben"
    168. Me.btnShowSecondForm.UseVisualStyleBackColor = False
    169. '
    170. 'Form1
    171. '
    172. Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
    173. Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
    174. Me.AutoSize = True
    175. Me.ClientSize = New System.Drawing.Size(1284, 561)
    176. Me.Controls.Add(Me.btnClose)
    177. Me.Controls.Add(Me.btnShowSecondForm)
    178. Me.Controls.Add(Me.TextBox3)
    179. Me.Controls.Add(Me.TextBox2)
    180. Me.Controls.Add(Me.Chart1)
    181. Me.Controls.Add(Me.TextBox1)
    182. Me.Controls.Add(Me.ListView1)
    183. Me.Name = "Form1"
    184. Me.Text = "Form1"
    185. CType(Me.Chart1, System.ComponentModel.ISupportInitialize).EndInit()
    186. Me.ResumeLayout(False)
    187. Me.PerformLayout()
    189. End Sub
    191. Friend WithEvents ListView1 As ListView
    192. Friend WithEvents TextBox1 As TextBox
    193. Friend WithEvents ColumnHeader1 As ColumnHeader
    194. Friend WithEvents ColumnHeader2 As ColumnHeader
    195. Friend WithEvents Chart1 As DataVisualization.Charting.Chart
    196. Friend WithEvents TextBox2 As TextBox
    197. Friend WithEvents TextBox3 As TextBox
    198. Friend WithEvents btnClose As Button
    199. Friend WithEvents btnShowSecondForm As Button
    200. End Class



    aufgrund des Codeumfangs Spoiler hinzugefügt und CodeTags korrigiert ~VaporiZed

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

    Ja, damit kann man was anfangen. Jetzt ist es leicht, das Problem nachzustellen. Und ja, durch Deine Angaben in Post#25 hätte ich/man den "Fehler" schon finden können.
    Das Chart geht bei der Angabe XValuesType=Date von einem Startwert von 01.01.1900 aus. Wenn Du nun mit Chart1.Series(0).Points.AddXY() einen x-Wert von 0 hinzufügst, ist das der 01.01.1900.
    Der Wert 10 ist dann der 11.01.1900. Und so weiter. Um also auf das Jahr 2022 zu kommen, müsstest Du den x-Werten die Tageszahl zwischen 01.01.1900 und 01.01.2022 hinzufügen. Und das wär: 44560. "Ausgerechnet" mit der Codezeile:

    VB.NET-Quellcode

    1. Dim Offset = CInt((#01/01/2022# - #01/01/1900#).TotalDays)

    Also musst Du, um x = 0 entspricht 01. Januar 2022 zu setzen, dieses Offset mitgeben, also

    VB.NET-Quellcode

    1. Chart1.Series(0).Points.AddXY(t + 44560, iz)


    ##########

    @hw522:
    Aber es geht noch einfacher:

    VB.NET-Quellcode

    1. Chart1.Series(0).Points.AddXY(t + Startdatum, iz)

    Dabei ist Startdatum eben das erste Datum, was nicht unterschritten wird.
    Bei

    VB.NET-Quellcode

    1. Chart1.Series(0).Points.AddXY(t + Date.Today, iz)

    wird heute als Startdatum gesetzt.
    Datumsangaben im Code gehen so: #MM/TT/JJJJ#, also z.B. #06/17/2022# für den heutigen 17. Juni 2022
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „VaporiZed“ ()

    Das ist Dein Code, aus Post#27.
    Ganze Zahlen, die zu dem Startdatum addiert werden, entsprechen ganze Tage.
    Um präziser zu sein, kannst Du das auch z.B. so machen:

    VB.NET-Quellcode

    1. Dim Startdatum = Date.Today 'oder ein anderes Startdatum, wie oben genannt, z.B. mit der Schreibweise #MM/TT/JJJJ#
    2. Chart1.Series(0).Points.AddXY(Startdatum.AddDays(t), iz)

    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    hw522 schrieb:

    Kritik geht hier scheinbar immer nur in eine Richtung
    Genau.
    Wir erwarten die Beantwortung unserer Fragen, um Dir umfassend helfen zu können:

    RodFromGermany schrieb:

    Wie generierst Du die Daten im LV?
    Wie übernimmst Du die Daten im LV?
    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!

    Das mit dem LV habe ich schon berichtet, hier ausführlich:

    Quellcode

    1. ​ Dim inzidenz_arr() As String = File.ReadAllLines("inzidenz_rnk.txt")
    2. Dim datum_arr() As String = File.ReadAllLines("inz_datum.txt")

    und

    Quellcode

    1. ​Dim zz As Integer = 0
    3. For i = 0 To datum_arr.Count - 1
    5. zz += 1
    7. With ListView1.Items.Add(zz)
    8. .SubItems.Add(datum_arr(i))
    9. .SubItems.Add(inzidenz_arr(i))
    10. End With
    12. Next

    hw522 schrieb:

    hier ausführlich:
    OK.
    Poste mal den Inhalt der Datei "inz_datum.txt" oder ein paar Zeilen davon.
    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!

Facebook