VB Problem mit Picturebox und Koordinatensystem

  • VB.NET

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von MarcelBB.

    VB Problem mit Picturebox und Koordinatensystem

    Meine Picturebox1 hat eine Größe von 1244 x 696

    Height = PictureBox1.Size.Height
    Witdh = PictureBox1.Size.Width

    (Mit oder ohne .Size) liefert für Breite und Höhe aber immer 1980 x 1024 also die Größe der Form1.

    Habe zahlreiche Autosize,Zoom,Stretch Varianten ausprobiert und komme einfach nicht dahinter.
    Ich möchte die Grafikbox für ein X/Y Koordinatensystem nutzen um Kurvenverläufe anzuzeigen.

    Dabei habe ich einen Skalierungsfaktor für Breite und Höhe, aber fast die Hälfte aller Linien landet rechts neben der Picturebox im Nirwana da die verwendete Breite und Höhe ja nicht stimmen.

    Hier das Meisterwerk.

    VB.NET-Quellcode

    1. Private Sub PictureBox1_Paint(yUpper As Integer, yLower As Integer, median As Integer)
    3. Dim e As System.Drawing.Graphics
    4. e = PictureBox1.CreateGraphics
    5. Dim yzero As Integer = Val(PictureBox1.Size.Height / 2)
    6. Dim ymax As Integer = Val(PictureBox1.Size.Height)
    7. Dim xmax As Integer = Val(PictureBox1.Size.Width)
    8. Dim x As Integer = 0
    9. Dim y As Integer = 0
    10. Dim Height = PictureBox1.Size.Height
    11. Dim Witdh = PictureBox1.Size.Width
    12. Dim counter As Integer = Threshold ' Threshold added
    13. Dim yFactor = (Height * YScale) / (yUpper - yLower)
    14. Dim xStepping As Integer = Witdh / 10
    15. Dim yStepping As Integer = Height / 20
    17. Do Until counter + Threshold = RawDataArray.GetUpperBound(0) '
    18. x = counter * Width / NumberofSamples - Threshold '
    19. y = Convert_Value_to_Coordinates(y, yFactor, counter, ymax, yStepping)
    20. e.DrawLine(pen6, xOld, yOld, x, y) ' Kurvenpunkt
    21. counter += 1
    22. xOld = x
    23. yOld = y
    24. Loop
    26. ' Y-50% Line
    27. e.DrawLine(pen5, 0, yzero, xmax, yzero) ' Null Linie
    28. ' Draw X-Grid
    29. For i = 0 To Width Step xStepping
    30. RichTextBox1.Text = RichTextBox1.Text & "0-" & i & "x" & Height & "-" & i & " " & vbCrLf
    31. e.DrawLine(pen8, i, 0, i, Height)
    32. Next
    33. ' Draw Y Grid
    34. For i = 0 To Height Step yStepping
    35. e.DrawLine(pen8, 0, i, Witdh, i)
    36. Next
    37. ' Draw X indexer
    38. For i = 0 To Width Step xStepping
    39. e.DrawLine(pen3, i, 0, i, 20)
    40. Next
    41. ' Draw Y indexer
    42. For i = 0 To Height Step yStepping
    43. e.DrawLine(pen3, 0, i, 20, i)
    44. Next
    46. ' Draw xTime
    47. Dim x1 = CSng(Witdh / 2 - 105)
    48. Dim x2 = xStepping * 5
    49. e.DrawLine(pen4, x1 - 15, 15, x2, 15)
    50. DrawRectangle(e, x1)
    51. e.DrawString("t:" & Xtime / 10 & "mS", Font1, Brush3, x1 + 10, 5)
    53. ' Draw Median Line
    54. Dim YMedian As Integer = yUpper - (median / yFactor)
    55. YMedian = ymax - YMedian / yFactor
    56. YMedian = YMedian * YScale
    57. Dim YSize As Integer = Width * yFactor
    59. YMedian = Convert_Value_to_Coordinates(y, yFactor, counter, ymax, yStepping)
    60. e.DrawLine(pen4, 0, YMedian, YSize, YMedian)
    61. e.FillRectangle(Brush2, Witdh - 80, YMedian - 10, 80, 20)
    62. Witdh = Val(PictureBox1.Width)
    63. RichTextBox1.Text = RichTextBox1.Text & Width
    64. e.DrawString("M:" & median & "mV", Font1, Brush1, YSize, YMedian - 10)
    66. End Sub
    68. Function Convert_Value_to_Coordinates(yConv As Integer, yFactor As Integer, index As Integer, ymaxConv As Integer, ysteppingConv As Integer)
    69. yConv = yUpper * yFactor - RawDataArray(index) * yFactor ' Umrechnung Wert in Koordianten Step I
    70. yConv = ymaxConv - yConv ' Umrechnung Wert in Koordianten Step II Spiegeln
    71. yConv = yConv - ysteppingConv ' Umrechnung Wert in Koordianten Step II Y-zentrieren
    72. Return yConv
    73. End Function
    74. Private Sub DrawRectangle(e As Graphics, x1 As Integer)
    75. e.FillRectangle(Brush2, x1 + 10, 5, 70, 20)
    76. End Sub

    Unkompilierbarer Code, da zu viele Dinge bei Dir zwar definiert sind, aber nicht bei uns: Threshold, RawDataArray, usw.
    Option Strict Off, VB6-Namespace. <X
    Bevor Du weitermachst, bitte die empfohlenen VS-Einstellungen verwenden.
    Wahrscheinlich einer Deiner Hauptprobleme - neben den genannten: Zeile#11: Witdh - eine eigene, wenn auch falschgeschriebene Variable. Die Konsequenz: z.B. in Z#29 verwendest Du Width. Und das ist die Formbreite, nicht Deine eigene Variable! Und schon kommt wohl Mus raus.
    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.

    VaporiZed schrieb:

    .
    Wahrscheinlich einer Deiner Hauptprobleme - neben den genannten: Zeile#11: Witdh - eine eigene, wenn auch falschgeschriebene Variable. Die Konsequenz: z.B. in Z#29 verwendest Du Width. Und das ist die Formbreite, nicht Deine eigene Variable! Und schon kommt wohl Mus raus.


    :whistling: ...
    Variable einmal in der Hektik falsch geschrieben und deklariert. Das war es. Ich gelobe demütig Besserung..

Facebook
Telefonspende