Drehzahlmesser grafisch visualisiert

  • VB.NET

Es gibt 10 Antworten in diesem Thema. Der letzte Beitrag () ist von RodFromGermany.

    Drehzahlmesser grafisch visualisiert

    Servus,

    ich bekomme von einem Drehzahlgeber in regelmäßigen Abständen den Input. Ich rechne die Drehzahl aus und möchte sie in einer Picturebox darstellen.
    Ich dachte an einen Kreisring (Donut) mit Segmenten von 0 bis 7. In der Mitte eine Linie als Nadel, die sich bewegt. Ich brauche keine farblichen Hintergründe wie grün über gelb ins Rote.
    Ich kenne mich mit dem Erstellen von solchen Formen nicht so gut aus; ich würde so anfangen:

    ich brauche

    Visual Basic-Quellcode

    1. Dim bm As New Bitmap(220, 220)

    nachdem die Drehzahl berechnet wurde

    VB.NET-Quellcode

    1. PictureBox1.BackgroundImage = Diagramm_erstellen(bm)


    und dann die Prozedur

    VB.NET-Quellcode

    1. Function Diagramm_erstellen(ByVal Image As Image, ByVal Drehzahl as Integer)
    2. '.
    3. bm.SetPixel(xKoordinate, yKoordinate, Color.FromArgb(a, b, c))
    4. '.
    5. PictureBox1.BackgroundImage = bm
    6. Return bm
    7. End Function


    Wahrscheinlich brauche ich auch eine Abfrage, wo die Nadel gerade hinzeigt und dann +Schrittweite.
    Könntet ihr mir bitte einen Ansatz geben?
    An die Neulinge: Nutzt Option Strict On und Option Infer Off. Dadurch kommt ihr mit Datentypumwandlungen nicht durcheinander und der Code verbessert sich um Einiges! Solche Fehler à la Dim Beispiel As Integer = "123" können nicht mehr passieren.

    @Bartosz Ich denke mal, dass Du den Hintergrund, also Farben der Fläche und die Zahlen, selber hinbekommst.
    Sieh Dir dazu die Graphics-Prozeduren DrawPie() und FillPie() an.
    Als Linie malst Du einen dicken Strich vom Mittelpunkt zu der korrekten Umfangs-Position.
    Dazu gibt es zwei Möglichkeiten: Du malst direkt in die PictureBox. Dann musst Du den Platz des alten Striches invalidisieren.
    Lege Du um die Endpunkte des Strichs ein Um-Rechteck plus Linienbreite und PB.Invalidate(DAS_UMRECHTECK)
    oder
    Du malst in eine Bitmap und stellst einfach nur die Bitmap dar.
    Dies ist die eleganter aussehende Lösung.
    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!

    @RodFromGermany
    ja, diese Befehle kenne ich nicht ;) Danke!
    Ich habe mir diesen Thread durchgelesen.
    Tortendiagramm (pie chart) malen

    Dort werden anhand von 2 Werten die 360° des Kreises durch Dreisatz aufgeteilt.
    Ich will jedoch, dass unten ein bestimmter Bereich komplett (meinetwegen Segment von 90°) unberührt bleibt.
    An die Neulinge: Nutzt Option Strict On und Option Infer Off. Dadurch kommt ihr mit Datentypumwandlungen nicht durcheinander und der Code verbessert sich um Einiges! Solche Fehler à la Dim Beispiel As Integer = "123" können nicht mehr passieren.

    Bartosz schrieb:

    Ich will jedoch
    Wo ist das Problem?
    Winkel 42° entspricht 0 Umdrehungen
    Winkel 183° entspricht max Umdrehungen.
    Ersetze die 360° Deines Posts durch meine beispielhaften 141° und feddich.
    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!

    Ich hab's jetzt so gemacht. Ist n bissl einfacher.

    VB.NET-Quellcode

    1. Private Sub PictureBox_D_Paint(sender As Object, e As PaintEventArgs) Handles PictureBox_D.Paint
    2. x.Paint({50, 200}, e.Graphics)
    3. End Sub
    4. End Class
    6. Public Class myPie
    7. Public Sub Paint(ByVal values() As Double, ByVal g As Graphics)
    9. Dim myPen As Pen = Pens.Black
    10. Dim myRect As New Rectangle(0, 0, 220, 220)
    11. Using myBrush As SolidBrush = New SolidBrush(Color.Red)
    12. Dim colors() As Color = {Color.Red, Color.DimGray}
    14. Dim sum As Double = values.ToList().Sum
    16. Dim Offset As Single = 45 'dreht die Torte im Gesamten um 45° im Uhrzeigersinn
    17. Dim nicht_benutztes_Stueck As Single = 90 'das unten nicht benutze Stück ist schwarz und 90° groß
    18. myBrush.Color = Color.Black
    19. g.FillPie(myBrush, myRect, Offset, nicht_benutztes_Stueck)
    20. Dim Rest As Single = 360 - nicht_benutztes_Stueck
    22. '====================================================================
    23. 'nun können die beiden (ich nenne es mal) Parteien sich den Rest des
    24. 'Kreises aufteilen. Wird mit Dreisatz gemacht.
    25. '===================================================================
    26. Dim Startwinkel As Single = Offset + nicht_benutztes_Stueck
    27. Dim jew_Winkel As Single
    28. Dim Winkel1 As Single
    30. jew_Winkel = CSng(values(0) * (360 - nicht_benutztes_Stueck) / sum)
    31. Winkel1 = jew_Winkel
    32. Dim myColor As Color = colors(0 Mod 2)
    33. myBrush.Color = myColor
    34. g.DrawPie(Pens.Black, myRect, Startwinkel, jew_Winkel)
    35. g.FillPie(myBrush, myRect, Startwinkel, jew_Winkel)
    36. Rest -= jew_Winkel
    37. jew_Winkel = CSng(values(1) * (360 - nicht_benutztes_Stueck - Winkel1) / sum)
    38. g.DrawPie(Pens.Black, myRect, Startwinkel + Winkel1, jew_Winkel + Offset)
    39. Dim myColor2 As Color = colors(1 Mod 2)
    40. myBrush.Color = myColor2
    41. g.FillPie(myBrush, myRect, Startwinkel + Winkel1, jew_Winkel + Offset)
    42. End Using
    43. End Sub
    44. End Class


    Eine Frage hätte ich da noch. Oben wird für

    VB.NET-Quellcode

    1. x.Paint({50, 200}, e.Graphics)
    statt der "50" "Drehzahl" eingesetzt. Wie kann ich die

    VB.NET-Quellcode

    1. Private Sub PictureBox_D_Paint
    aufrufen? oder die

    VB.NET-Quellcode

    1. Public Class myPie
    2. Public Sub Paint(


    edit 19:50 Uhr Ich habe gerade noch ein bisschen rumprobiert. So 100%-ig akkurat ist das nicht. Die Zahlenkombination 50, 200 klappt super. Aber bei 250, 200 fehlt am Ende ein Stück vom Kreis. Wahrscheinlich darf man die Winkel nicht so berechnen? Ich habe es händisch nachgerechnet, das ist wirklich nicht ganz genau.

    50*(360-90)/250 = 54°
    200*(360-90-54)/250 = 172,8°
    360°-90°-45°-172,8°-54° = -1,8° ?(

    edit 20:53 Uhr Ich habe es jetzt so gemacht, dass der Fehler zur Hälfte auf beide Segmente aufgeteilt wird. Nun läuft's!

    VB.NET-Quellcode

    1. ​
    2. Private Sub PictureBox_D_Paint(sender As Object, e As PaintEventArgs) Handles PictureBox_D.Paint
    3. x.Paint({2000, 200}, e.Graphics)
    4. End Sub
    5. End Class
    7. Public Class myPie
    8. Public Sub Paint(ByVal values() As Double, ByVal g As Graphics)
    10. Dim myPen As Pen = Pens.Black
    11. Dim myRect As New Rectangle(0, 0, 220, 220)
    12. Using myBrush As SolidBrush = New SolidBrush(Color.Red)
    13. Dim colors() As Color = {Color.Red, Color.DimGray}
    15. Dim sum As Double = values.ToList().Sum
    17. Dim Offset As Single = 45 'dreht die Torte im Gesamten um 45° im Uhrzeigersinn
    18. Dim nicht_benutztes_Stueck As Single = 90 'das unten nicht benutze Stück ist schwarz und 90° groß
    19. myBrush.Color = Color.Black
    20. g.FillPie(myBrush, myRect, Offset, nicht_benutztes_Stueck) '135° weg. 135° ist der Startwert für das nächste Segment
    21. Dim Rest As Single = 360 - nicht_benutztes_Stueck 'trotzdem sind de facto noch 270° über, die bemalt werden können
    22. '====================================================================
    23. 'nun können die beiden (ich nenne es mal) Parteien sich den Rest des
    24. 'Kreises aufteilen. Wird mit Dreisatz gemacht.
    25. '===================================================================
    26. Dim Startwinkel As Single = Offset + nicht_benutztes_Stueck
    27. Dim Winkel1 As Single = CSng(values(0) * (360 - nicht_benutztes_Stueck) / sum)
    28. Rest -= Winkel1
    29. Dim Winkel2 As Single = CSng(values(1) * (360 - nicht_benutztes_Stueck - Winkel1) / sum)
    31. '=================================================================
    32. 'trotz Dreisatzrechnung und Kommazahlen gibt es immer noch einen
    33. 'kleinen Restfehler. Ein Beispiel:
    34. '50*(360-90)/250 = 54°
    35. '200*(360-90-54)/250 = 172,8°
    36. '360°-90°-45°-172,8°-54° = -1,8
    37. 'Dieser Rest wird auf beide Segmente zur Hälfte aufgeteilt
    38. '=================================================================
    40. Dim Rest3 As Single = 360 - Offset - nicht_benutztes_Stueck - Winkel1 - Winkel2
    42. Dim myColor As Color = colors(0 Mod 2)
    43. Dim myColor2 As Color = colors(1 Mod 2)
    45. If Rest3 < CSng(0.0) Then
    46. myBrush.Color = myColor
    47. g.DrawPie(Pens.Red, myRect, Startwinkel, Winkel1 - CSng((Rest3 * 0.5)))
    48. g.FillPie(myBrush, myRect, Startwinkel, Winkel1 - CSng((Rest3 * 0.5)))
    50. myBrush.Color = myColor2
    51. g.DrawPie(Pens.Yellow, myRect, Startwinkel + Winkel1, Rest - CSng((Rest3 * 0.5)))
    52. g.FillPie(myBrush, myRect, Startwinkel + Winkel1, Rest - CSng((Rest3 * 0.5)))
    53. ElseIf Rest > CSng(0.0) Then
    54. myBrush.Color = myColor
    55. g.DrawPie(Pens.Red, myRect, Startwinkel, Winkel1 + CSng((Rest3 * 0.5)))
    56. g.FillPie(myBrush, myRect, Startwinkel, Winkel1 + CSng((Rest3 * 0.5)))
    58. myBrush.Color = myColor2
    59. g.DrawPie(Pens.Yellow, myRect, Startwinkel + Winkel1, Rest + CSng((Rest3 * 0.5)))
    60. g.FillPie(myBrush, myRect, Startwinkel + Winkel1, Rest + CSng((Rest3 * 0.5)))
    61. Else
    63. End If
    65. End Using
    66. End Sub
    67. End Class

    Bleibt nur noch die Frage, wie ich

    VB.NET-Quellcode

    1. ​ x.Paint({2000, 200}, e.Graphics)
    von außen aufrufen kann.
    An die Neulinge: Nutzt Option Strict On und Option Infer Off. Dadurch kommt ihr mit Datentypumwandlungen nicht durcheinander und der Code verbessert sich um Einiges! Solche Fehler à la Dim Beispiel As Integer = "123" können nicht mehr passieren.

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

    Bartosz schrieb:

    Wie kann ich die
    Private Sub PictureBox_D_Paint
    aufrufen? oder die
    Da hast Du noch etwas Verständnis-Defizit über das Malen unter .NET.
    Solo gar nicht, das läuft alles über .Invalidate() des Containers.
    • Empfang eines neuen Wertes
    • Bereitstellung der entsprechenden Variablen
    • .Invalidate()
    Feddich.
    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!

    Gegenvorschlag:

    VB.NET-Quellcode

    1. Public Class myPie
    2. Public Sub Paint(values As Double(), g As Graphics)
    3. Dim myRect As New Rectangle(0, 0, 200, 200)
    4. Dim sum = values.Sum
    5. Dim Offset = 45 'dreht die Torte im Gesamten um 45° im Uhrzeigersinn
    6. Dim nicht_benutztes_Stueck = 90 'das unten nicht benutze Stück ist schwarz und 90° groß
    7. Dim Startwinkel As Single = Offset + nicht_benutztes_Stueck
    8. Dim Winkel1 As Single = CSng(values(0) * (360 - nicht_benutztes_Stueck) / sum)
    9. Dim Winkel2 As Single = CSng(values(1) * (360 - nicht_benutztes_Stueck) / sum)
    11. g.FillPie(Brushes.Black, myRect, Offset, nicht_benutztes_Stueck)
    12. g.FillPie(Brushes.Green, myRect, Startwinkel, Winkel1)
    13. g.FillPie(Brushes.Red, myRect, Startwinkel + Winkel1, Winkel2)
    14. End Sub
    15. End Class

    Und zur anderen Frage:

    VB.NET-Quellcode

    1. PictureBox_D.Invalidate


    ##########

    Uiuiui, da kam ich aber etwas spät.
    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.

    @RodFromGermany @VaporiZed Danke für die Antworten! Also ich bin jetzt in der Form1-Klasse in einem Sub. Hier schreibe ich

    VB.NET-Quellcode

    1. PictureBox_D.Invalidate()
    . Ich weiß gerade nicht, wo die neue Drehzahl übergeben wird
    An die Neulinge: Nutzt Option Strict On und Option Infer Off. Dadurch kommt ihr mit Datentypumwandlungen nicht durcheinander und der Code verbessert sich um Einiges! Solche Fehler à la Dim Beispiel As Integer = "123" können nicht mehr passieren.

    So gar nicht. Das Invalidate führt nur dazu, dass das PicBox_Paint-Event gefeuert wird. Daher wäre es sinnvoll, wenn Du in Deiner myPie-Klasse noch eine Sub mit Wertzuweisung machst:

    VB.NET-Quellcode

    1. Public Class Form1
    2. Private myPie As New myPie
    4. Public Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    5. myPie.SetValues({100, 200})
    6. End Sub
    7. '...
    9. Public Class myPie
    10. Private values As Double() = {0, 0}
    11. Public Sub SetValues(values As Double())
    12. Me.values = values
    13. End Sub
    15. Public Sub Paint(g As Graphics)
    16. 'sonst Code wie oben
    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.

    Bartosz schrieb:

    wo die neue Drehzahl übergeben wird

    RodFromGermany schrieb:

    Bereitstellung der entsprechenden Variablen
    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!