Koordinatensystem in Picturebox

  • VB.NET

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

    Koordinatensystem in Picturebox

    Hi,

    Ich versuche, mit diesem Code, ein Koordinatensystem in eine Picturebox zu zeichnen:

    VB.NET-Quellcode

    1. Dim g As Graphics = PictureBox1.CreateGraphics
    2. Dim pointy, pointy2, pointx, pointx2 As Point
    3. pointy.X = CInt(PictureBox1.Width / 2)
    4. pointy.Y = 0
    5. pointy2.X = CInt(PictureBox1.Width / 2)
    6. pointy2.Y = PictureBox1.Height
    8. pointx.X = 0
    9. pointx.Y = CInt(PictureBox1.Height / 2)
    10. pointx2.X = PictureBox1.Width
    11. pointx2.Y = CInt(PictureBox1.Height / 2)
    12. g.DrawLine(Pens.Black, pointy, pointy2)
    13. g.DrawLine(Pens.Black, pointx, pointx2)


    Das Problem ist das nichts passiert.
    Könnt ihr mit bitte auf die Sprünge helfen?

    MfG
    optz

    Probier das ganze mal in der PaintMethode deiner PictureBox.
    Und überprüf mal deine Punkte. (Lass sie dir anzeigen z.B mit'm Debugger und schau ob das sein kann)

    VB.NET-Quellcode

    1. Private Sub PictureBox1_Paint(sender As Object, e As PaintEventArgs) Handles PictureBox1.Paint
    2. e.Graphics.DrawLine(Pens.Black, New Point(10, 10), New Point(20, 10))
    3. End Sub

    Probier doch mal das hier. (Form der PB muss ein Quadrat sein)

    VB.NET-Quellcode

    1. For i As Integer = 0 To PictureBox1.Width Step CInt(PictureBox1.Width / 10)
    2. e.Graphics.DrawLine(Pens.Black, New Point(i, 0), New Point(i, PictureBox1.Height))
    3. e.Graphics.DrawLine(Pens.Black, New Point(0, i), New Point(PictureBox1.Width, i))
    4. Next

    Ich würde as so anfangen:
    ymax = 10
    ymin = -10
    xmax = 10
    xmin = -10

    Das abgedeckte "Spektrum" ist in beide Richtungen 20. Da 10 die Hälfe von zwanzig ist muss der Mittelpunkt des Koordinatensystems in der Mitte der Picturebox liegen. Dann musst du noch die Skalierung auftragen und das wars. Ich hatte vor langer Zeit mal ein Projekt eben einen solchen Graphen zu zeichnen. Vielleicht kannst du was damit anfangen ;) :
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Option Strict On
    2. Imports System.Windows.Forms
    3. Imports System.Drawing
    4. Imports System.Collections.Generic
    5. Imports System.Text
    7. Public Class Graph
    8. Inherits System.Windows.Forms.UserControl
    9. Public Sub New()
    10. MyBase.New()
    11. MyBase.SetStyle(ControlStyles.UserPaint, True)
    12. MyBase.SetStyle(ControlStyles.DoubleBuffer, True) '
    13. MyBase.SetStyle(ControlStyles.SupportsTransparentBackColor, True)
    14. End Sub
    16. Dim höhe_urpsrung As Integer
    17. Dim breite_ursprung As Integer
    18. Dim pic_height As Integer
    19. Dim pic_width As Integer
    20. Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs)
    21. pic_height = Me.Height
    22. pic_width = Me.Width
    24. ' Koordinaten des Ursprungs
    25. höhe_urpsrung = CInt((ymax / (Math.Abs(ymax) + Math.Abs(ymin))) * pic_height)
    26. breite_ursprung = CInt((xmax / (Math.Abs(xmax) + Math.Abs(xmin))) * pic_width)
    29. With e.Graphics
    30. 'Graphics konfigurieren
    31. .SmoothingMode = Drawing2D.SmoothingMode.AntiAlias
    32. .TextRenderingHint = Drawing.Text.TextRenderingHint.AntiAlias
    33. .PixelOffsetMode = Drawing2D.PixelOffsetMode.HighQuality
    34. .InterpolationMode = Drawing2D.InterpolationMode.HighQualityBilinear
    35. .CompositingQuality = Drawing2D.CompositingQuality.HighQuality
    37. 'Achsen zeichnen
    38. .FillRectangle(New SolidBrush(Me.BackColor), 0, 0, Me.Width, Me.Height)
    39. .DrawLine(Pens.Black, pic_width - breite_ursprung, höhe_urpsrung, pic_width - breite_ursprung, 0)
    40. .DrawLine(Pens.Black, pic_width - breite_ursprung, höhe_urpsrung, pic_width - breite_ursprung, pic_height)
    41. .DrawLine(Pens.Black, pic_width - breite_ursprung, höhe_urpsrung, 0, höhe_urpsrung)
    42. .DrawLine(Pens.Black, pic_width - breite_ursprung, höhe_urpsrung, pic_width, höhe_urpsrung)
    45. 'Skalierung der Achsen
    46. Dim disx As Double = (pic_width * xscl) / (Math.Abs(xmin) + Math.Abs(xmax)) 'XAchse zeichnen rechter Teil
    47. For z = 0 To (xmax) / xscl
    48. Dim i As Integer = CInt(z * disx) + Math.Abs(pic_width - breite_ursprung)
    49. .DrawLine(Pens.Black, i, CInt(höhe_urpsrung + 5), i, CInt(höhe_urpsrung - 5))
    52. Next
    53. For z = Math.Abs(Math.Abs((xmin)) / xscl) To 0 Step -1
    54. Dim i As Integer = CInt(z * disx)
    55. .DrawLine(Pens.Black, i, CInt(höhe_urpsrung + 5), i, CInt(höhe_urpsrung - 5))
    57. Next
    58. Dim dego As Double = pic_height / (Math.Abs(ymax) + Math.Abs(ymin))
    59. For u = (ymax) / yscl To 0 Step -1
    60. Dim j As Integer = CInt(0 + dego * u * yscl)
    61. .DrawLine(Pens.Black, pic_width - breite_ursprung + 5, j, pic_width - breite_ursprung - 5, j)
    62. Next
    63. For u = 0 To (Math.Abs(ymin)) / yscl Step 1
    64. Dim trye As Integer = CInt((dego * u * yscl) + höhe_urpsrung)
    65. .DrawLine(Pens.Black, pic_width - breite_ursprung + 5, trye, pic_width - breite_ursprung - 5, trye)
    66. Next
    67. End With
    69. 'Prüfen ob DrawWithGrid auf on ist
    70. If DrawWithGrid = True Then
    71. For u = xmin To xmax
    72. For i = ymin To xmax
    73. If u <> 0 And i <> 0 Then
    74. AddPoint(u * xscl, i * yscl, Pens.Black, e)
    75. End If
    77. Next
    78. Next
    79. End If
    82. End Sub
    85. Private Sub AddPoint(ByVal x As Double, ByVal y As Double, ByVal pen As Pen, ByVal p As PaintEventArgs)
    86. Dim gesamthöhe As Double = ((Math.Abs(ymax) + Math.Abs(ymin)))
    87. Dim schritte As Double = Me.Height / gesamthöhe
    88. Dim gesammtlänge As Double = (Math.Abs(xmax) + Math.Abs(xmin))
    89. Dim schritte_2 As Double = Me.Width / gesammtlänge
    90. Dim x_koor As Single = CSng((schritte_2 * x) + (Math.Abs(breite_ursprung - pic_width)))
    91. Dim y_koor As Single = CSng(höhe_urpsrung - (schritte * y))
    92. p.Graphics.DrawRectangle(pen, x_koor, y_koor, 1.0F, 1.0F)
    93. End Sub
    95. #Region "Properties"
    96. Dim minerx As Integer = -10
    97. Public Property xmin As Integer
    99. Get
    100. Return minerx
    101. End Get
    102. Set(ByVal value As Integer)
    103. minerx = value
    104. Invalidate()
    105. End Set
    106. End Property
    108. Dim maxerx As Integer = 10
    109. Public Property xmax As Integer
    111. Get
    112. Return maxerx
    113. End Get
    114. Set(ByVal value As Integer)
    115. maxerx = value
    116. Invalidate()
    117. End Set
    118. End Property
    119. Dim sclerx As Integer = 1
    120. Public Property xscl As Integer
    122. Get
    123. Return sclerx
    124. End Get
    125. Set(ByVal value As Integer)
    126. sclerx = value
    127. Invalidate()
    128. End Set
    130. End Property
    131. Dim minery As Integer = -10
    132. Public Property ymin As Integer
    134. Get
    135. Return minery
    136. End Get
    137. Set(ByVal value As Integer)
    138. minery = value
    139. Invalidate()
    140. End Set
    141. End Property
    142. Dim maxery As Integer = 10
    143. Public Property ymax As Integer
    145. Get
    146. Return maxery
    147. End Get
    148. Set(ByVal value As Integer)
    149. maxery = value
    150. Invalidate()
    151. End Set
    152. End Property
    154. Dim sclery As Integer = 1
    155. Public Property yscl As Integer
    157. Get
    158. Return sclery
    159. End Get
    160. Set(ByVal value As Integer)
    161. sclery = value
    162. Invalidate()
    163. End Set
    164. End Property
    165. Public Property DrawWithGrid As Boolean = False
    166. #End Region
    169. End Class


    Mit diesem Control kannst du auch rechteckige Graphen basteln.

    8-) faxe1008 8-)

    optz schrieb:

    VB.NET-Quellcode

    1. pointy.X = CInt(PictureBox1.Width / 2)
    Verwende doch gleich Integerdivision:

    VB.NET-Quellcode

    1. pointy.X = PictureBox1.Width \ 2
    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
Telefonspende