VB.NET - Programmierung eines 3D Koordinatensystems

  • VB.NET
  • .NET (FX) 4.5–4.8

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von RodFromGermany.

    VB.NET - Programmierung eines 3D Koordinatensystems

    Schönen guten Abend, liebe Community,


    ich komme gleich zum Thema:

    Für ein aktuelles Projekt würde ich gerne in meinen aktuellen Code ein - sich mitbewegendes - Koordinatensystem für die X, Y, Z Achse einfügen, jedoch habe ich leider keine Ahnung wie, habe schon vieles ausprobiert, aber leider hat davon nichts so funktioniert, wie ich es haben wollte.

    Also bisher ohne Erfolg..


    Ich hätte es gerne so wie auf folgendem Bild:

    bilder-upload.eu/bild-85ce74-1569710587.png.html

    Das blaue Koordinatensystem steht fest im Raum (bewegt sich jedoch beim Drehen des Quaders in X, Y, Z Richtung mit)

    Das schwarze Koordinatensystem ist fest mit dem Quader "verbunden", schwingt also hin und her und lässt sich ebenfalls in X, Y, Z Richtung mitbewegen



    Aktuell sieht das ganze bei mir so aus:

    bilder-upload.eu/bild-e772f2-1569743065.jpg.html

    Also bloß der drehbare Quader ohne sichtbare Achsenbeschriftung.


    Mein Quellcode sieht folgendermaßen aus:

    VB.NET-Quellcode

    1. Public Class Form2
    3. Dim alpha_z, alpha_y As Decimal
    4. Dim maus_x, maus_y As Integer
    6. Private Sub frmTest_Paint(ByVal sender As Object,
    7. ByVal e As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint
    9. If RadioButton_2D.Checked Then
    11. Dim p As New Pen(Color.Blue, 2)
    12. Dim x, y As Integer
    14. 'x = 100 + 100 * Math.Sin(Form1.phi)
    15. x = Me.Width / 2 + 115 * Math.Sin(Form1.phi) 'Zentrierung X-Achse
    17. y = Me.Height / 2 + 115 * Math.Cos(Form1.phi) 'Zentrierung Y-Achse
    18. 'y = 100 + 100 * Math.Cos(Form1.phi)
    20. e.Graphics.DrawEllipse(Pens.Red, x - 10, y - 10, 20, 20) 'Kugel
    21. e.Graphics.FillEllipse(Brushes.Red, x - 10, y - 10, 20, 20)
    22. e.Graphics.DrawLine(p, CInt(Me.Width / 2), CInt(Me.Height / 2), x, y) 'Der Faden
    23. e.Graphics.DrawLine(Pens.Black, 212, CInt(Me.Height / 2), Me.Width - 212, CInt(Me.Height / 2))
    24. With e.Graphics.SmoothingMode = System.Drawing.Drawing2D.SmoothingMode.AntiAlias 'test für Anti-Aliasing als Weichzeichner Methode
    25. e.Graphics.PixelOffsetMode = System.Drawing.Drawing2D.PixelOffsetMode.HighQuality 'Zusätzlicher Test mit HighQuality
    26. End With
    29. Button1.Visible = False
    30. Button2.Visible = False
    31. Button3.Visible = False
    32. Button4.Visible = False
    33. Label1.Visible = False
    35. End If
    37. 'Formatierung eines Quaders in 3D durch ein Koordinatensystem
    38. If RadioButton_3D.Checked Then
    39. Dim b, t, h As Decimal
    40. b = 6
    41. t = 2
    42. h = 15
    44. Dim x(7), y(7), z(7) As Decimal
    45. y(1) = b
    46. x(2) = t
    47. y(2) = b
    48. x(3) = t
    49. z(4) = h
    50. y(5) = b
    51. z(5) = h
    52. x(6) = t
    53. y(6) = b
    54. z(6) = h
    55. x(7) = t
    56. z(7) = h
    58. Button1.Visible = True
    59. Button2.Visible = True
    60. Button3.Visible = True
    61. Button4.Visible = True
    62. Label1.Visible = True
    65. For i = 0 To 7
    66. z(i) = z(i) - 1.0 * h
    67. y(i) = y(i) - 0.5 * b
    69. Next
    72. Dim x0(7), y0(7), z0(7) As Decimal
    73. For i = 0 To 7
    74. x0(i) = x(i)
    75. y0(i) = y(i) * Math.Cos(Form1.phi) - z(i) * Math.Sin(Form1.phi)
    76. z0(i) = y(i) * Math.Sin(Form1.phi) + z(i) * Math.Cos(Form1.phi)
    78. Next
    79. 'nachfolgender Schritt für Drehung um die Z Achse
    81. Dim x1(7), y1(7), z1(7) As Decimal
    82. For i = 0 To 7
    83. x1(i) = x0(i) * Math.Cos(alpha_z) - y0(i) * Math.Sin(alpha_z)
    84. y1(i) = x0(i) * Math.Sin(alpha_z) + y0(i) * Math.Cos(alpha_z)
    85. z1(i) = z0(i)
    87. Next
    88. 'nachfolgender Schritt für Drehung um die Y Achse
    89. Dim x2(7), y2(7), z2(7) As Decimal
    90. For i = 0 To 7
    91. x2(i) = x1(i) * Math.Cos(alpha_y) - z1(i) * Math.Sin(alpha_y)
    92. z2(i) = x1(i) * Math.Sin(alpha_y) + z1(i) * Math.Cos(alpha_y)
    93. y2(i) = y1(i)
    95. Next
    97. '3D auf 2D Umrechnung
    98. Dim xb(7), yb(7) As Integer 'Dimensionierung des Quaders
    99. For i = 0 To 7
    100. xb(i) = Me.Width / 2 + y2(i) * 20 '- x2(i) * 0.707 * 0.5 * 20
    101. yb(i) = Me.Height / 2 - z2(i) * 20 '+ x2(i) * 0.707 * 0.5 * 20
    103. e.Graphics.DrawEllipse(Pens.Black, xb(i) - 4, yb(i) - 4, 8, 8) 'Eckpunkte des Quaders
    104. Next
    106. For j = 0 To 1
    107. For i = 0 To 2
    108. e.Graphics.DrawLine(Pens.Black, xb(i + j * 4), yb(i + j * 4), xb(i + 1 + j * 4), yb(i + 1 + j * 4))
    109. Next
    110. e.Graphics.DrawLine(Pens.Black, xb(3 + j * 4), yb(3 + j * 4), xb(0 + j * 4), yb(0 + j * 4))
    111. Next
    113. For i = 0 To 3
    114. e.Graphics.DrawLine(Pens.Black, xb(i), yb(i), xb(i + 4), yb(i + 4))
    115. Next
    117. 'nachfolgend Fläche mit Farbe
    118. 'Vorne
    119. If x2(3) - x2(0) > 0 Then
    120. Dim quader() As Point =
    121. {New Point(xb(2), yb(2)),
    122. New Point(xb(3), yb(3)),
    123. New Point(xb(7), yb(7)),
    124. New Point(xb(6), yb(6))}
    125. With e.Graphics
    126. .SmoothingMode = Drawing.Drawing2D.SmoothingMode.HighQuality
    127. '.DrawLines(New Pen(Color.Black, 2), quader)
    128. End With
    130. e.Graphics.FillPolygon(Brushes.Red, quader)
    131. End If


    *Topic verschoben*

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

    @Nocturn Willkommen im Forum. :thumbup:
    Besser ist es, wenn Du Deine Bilder direkt im Forum hochlädtst: Erweiterte Antwort -> Dateianhänge -> Hochladen.
    Fang an und beschreibe Dein Problem in geeigneten Koordinaten, die in geeigneten 3D-tauglichen Instanzen einer Vector-Klasse vorliegen, z.B. docs.microsoft.com/de-de/dotne….vector3?view=netcore-3.0
    Bevor Du das nicht gelöst hast, solltest Du nicht an der Darstellung weiterarbeiten, sonst machst Du alles zwei Mal.
    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!