Heatmap über MySQL-Daten generieren

  • VB.NET

Es gibt 5 Antworten in diesem Thema. Der letzte Beitrag () ist von petaod.

    Heatmap über MySQL-Daten generieren

    Hallo,

    ich zeichne aktuell verschiedene Daten in einer MySQL-Datenbank auf und würde diese gerne mittels VB visualisieren.
    Ich habe eine kleine Anwendung gemacht, in der ich ein Datagridview mit den MySQL-Daten als Data Source befülle. Ab jetzt fehlen mir die Ideen.

    Mein Ziel war die Darstellung der Daten in einer Heatmap, bei der ich die Daten in eine Matrix schiebe, die viertelstündliche Werte anzeigt und bei der ich eine Ober- und Untergrenze festlege, um die Werte entsprechend farblich zu markieren.

    Bisher habe ich die Daten aus der MySQL-DB nach Excel exportiert und dort ein Makro laufen lassen - das Ergebnis sieht man im angehangenen Foto.

    Kann mir jemand sagen, wie ich am besten vorgehe?
    Ist das Chart-Objekt für mein Vorhaben noch geeignet?

    Keiner dieser beiden Links konnte mir wirklich weiterhelfen, aber es ist das einzige, was ich zum Thema finden konnte:
    grapecity.com/componentone/doc…ne-flexchart/heatmap.html
    advsofteng.com/doc/cdnetdoc/discreteheatmap.htm

    Grüße

    *Topic verschoben*
    Bilder

    • Heatmap.png

      8,31 kB, 1.443×105, 63 mal angesehen

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

    ich finde deine Daten sollten genau "andersrum" sein.

    mit DGV ein Zeitraster anlegen und die Tage 1 bis 31, und dann halt Monatlich abfragen aus der Datenbank

    VB.NET-Quellcode

    1. Option Strict On
    3. Public Class Form1
    5. Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    6. CheckedListBox1.CheckOnClick = True
    7. CheckedListBox2.CheckOnClick = True
    9. With CheckedListBox1
    10. 'stunden
    11. For i = 0 To 23
    12. CheckedListBox1.Items.Add("Std. " & Format(i, "00"))
    13. Next
    14. For i = 1 To .Items.Count - 1 Step 4
    15. .SetItemChecked(CInt(i), True)
    16. Next i
    18. End With
    20. 'minuten
    21. With CheckedListBox2
    22. For i = 0 To 55 Step 5
    23. .Items.Add("Min. " & Format(i, "00"))
    24. Next
    25. For i = 1 To .Items.Count - 1 Step 2
    26. .SetItemChecked(CInt(i), True)
    27. Next i
    28. End With
    30. 'Zeitraster erstellen
    31. For Each s As String In CheckedListBox1.CheckedItems
    32. For Each f As String In CheckedListBox2.CheckedItems
    33. ListBox1.Items.Add(s.Substring(s.Length - 2) & ":" & f.Substring(f.Length - 2))
    34. Next
    35. Next
    36. End Sub
    38. Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    40. 'DGV Tage 1 bis 31
    41. Dim n As Long
    42. Dim columns As DataGridViewColumn() = New DataGridViewColumn(30) {}
    43. For i = 0 To columns.Length - 1
    44. Dim col As DataGridViewColumn = New DataGridViewTextBoxColumn()
    45. Dim j As Long
    46. n = j + i + 1
    47. col.HeaderText = CStr(n)
    48. columns(i) = col
    49. columns(i).Width = 20
    50. DataGridView1.ColumnHeadersDefaultCellStyle.Alignment = DataGridViewContentAlignment.BottomCenter
    51. Next
    52. DataGridView1.RowTemplate.Height = 18
    53. Me.DataGridView1.Columns.AddRange(columns)
    55. 'dein Zeitraster
    57. DataGridView1.Rows.Add(ListBox1.Items.Count)
    58. DataGridView1.RowHeadersWidth = CInt(DataGridView1.RowHeadersWidth * 2.25)
    59. For x As Integer = ListBox1.Items.Count - 1 To 0 Step -1
    60. Dim value As String = ListBox1.Items(x).ToString
    61. DataGridView1.Rows(x).HeaderCell.Value = value
    62. Next
    63. End Sub
    64. End Class


    Das hat mir beides sehr weitergeholfen, ich danke euch.



    So, ich habe mal meine letzte Antwort vollständig gelöscht und hier mein aktueller Stand:

    Ich habe ein zweites DGV erzeugt und nutze dieses zur Visualisierung, da mein erstes DGV durch die DataSource "falsch" formatiert ist.
    Quasi folgender Ablauf:
    - Daten werden aus DB in DGV geladen > Werte werden ins Zieldesgin (zweites DGV) geladen und farblich angepasst
    - im Zieldesign sind Spalte und Zeile vertauscht

    Nun ist es so, dass ich das DGV befülle und immer wenn ich 96 Werte in die erste Zeile des zweiten DGVs geschrieben habe, dann will ich die nächste Zeile befüllen.
    Irgendwo habe ich nun leider einen einfachen Fehler (Index außerhalb des Bereichs), der mich nicht weiterkommen lässt.

    Ich weiß, dass der Fehler im Zählen liegt, aber komme logisch gerade nicht auf die Lösung.

    Kurz gesagt:
    96 Einträge > neue Zeile > 96 Einträge > neue Zeile > 96 Einträge ...

    VB.NET-Quellcode

    1. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    2. Dim j As Integer = 0
    3. Dim k As Integer = 1
    5. For w = 0 To DataGridView1.Rows.Count - 1
    6. For x = 0 To 95
    7. DataGridView2.Item(x, j).Value = DataGridView1.Item(k, w).Value
    8. Next
    9. j = j + 1
    10. Next
    11. End Sub


    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „Murdersquad“ ()

    Ich hatte hier noch gar nicht die Lösung meines Problems beschrieben, vielleicht braucht es mal jemand:

    VB.NET-Quellcode

    1. ​ Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    2. Dim j As Integer = 0
    3. Dim n As Integer = 0
    5. For w = 0 To DataGridView1.Rows.Count - 1
    6. DataGridView2.Item(j, n).Value = DataGridView1.Item(1, w).Value
    7. j = j + 1
    8. If j = 96 Then
    9. j = 0
    10. n = n + 1
    11. End If
    12. Next
    13. End Sub

Facebook
Telefonspende