Grafikfeld verschieben

  • VB.NET

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von vb-checker.

    Grafikfeld verschieben

    Hallo zusammen,

    ich hab ein kleines Problemchen.
    Und zwar sollen wir von der Uni aus ein Prgramm entwickeln, welches die Brechung eines Lichtstrahles an einer Linse graphisch darstellt.
    Wir haben die Programmierung der Grafik in unserer Gruppe halbwegs hinbekommen, jedoch sitzt sie nich an der Gewünschten stelle.
    Im Anhang hab ich 2 Bilder hochgeladen.
    Wir möchten die Grafik im rot markiertem Bereich des ersten Bildes haben. Ich habe zu Hause etwas rumprobiert doch ich bekomme das nicht wirklich hin.
    Wenn ich das mache sieht das immer so aus wie im zweiten Bild.
    Kann mir vllt jemand sagen oder einen tipp geben wie ich das verändern kann?

    Hier der Quellcode:

    VB.NET-Quellcode

    1. Public Class Form1
    3. Dim rlinks As Integer
    4. Dim rrechts As Integer
    5. Dim llinks As Integer
    6. Dim lrechts As Integer
    7. Dim redPen As Pen = New Pen(Color.Red, 2)
    8. Dim eintrittshöhe As Integer
    9. Dim eintrittswinkel As Integer
    10. Dim eintrittsx As Integer
    11. Dim starty As Integer
    12. Dim blackpen As Pen = New Pen(Color.Black, 2)
    13. Dim blackthin As Pen = New Pen(Color.Black, 1)
    14. Dim greenpen As Pen = New Pen(Color.Green, 2)
    15. Dim clearall As Pen = New Pen(Color.White, 2000)
    16. Dim graythin As Pen = New Pen(Color.Gray, 1)
    17. Dim alphalinks As Integer
    18. Dim alpharechts As Integer
    19. Dim h As Integer
    21. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    22. rlinks = TextBox1.Text
    23. rrechts = TextBox2.Text
    24. h = TextBox5.Text
    25. eintrittshöhe = TextBox3.Text
    26. eintrittswinkel = TextBox4.Text
    27. eintrittsx = (300 + lrechts) - Math.Sqrt(rrechts ^ 2 - eintrittshöhe ^ 2)
    28. starty = 300 - eintrittshöhe - Math.Tan(eintrittswinkel * Math.PI / 180) * (eintrittsx - 50)
    30. Me.CreateGraphics.DrawLine(clearall, 0, 0, 1000, 1000)
    31. Me.CreateGraphics.DrawLine(blackpen, 50, 300, 550, 300)
    32. Me.CreateGraphics.DrawLine(graythin, 300, 290, 300, 310)
    33. Me.CreateGraphics.DrawLine(graythin, 50, 300 - eintrittshöhe, 550, 300 - eintrittshöhe)
    34. Me.CreateGraphics.DrawLine(graythin, 60, 300 - eintrittshöhe, 60, 300)
    35. Me.CreateGraphics.DrawArc(graythin, 170, 300 - eintrittshöhe - CInt((eintrittsx - 50) / 2), eintrittsx - 50, eintrittsx - 50, 180, eintrittswinkel)
    36. Me.CreateGraphics.DrawString("h", SystemFonts.DefaultFont, Brushes.Black, 40, 300 - (eintrittshöhe / 2))
    37. Me.CreateGraphics.DrawString("alpha", SystemFonts.DefaultFont, Brushes.Black, 180, 300 - eintrittshöhe - ((300 - eintrittshöhe - starty) / 8))
    40. If rrechts > 0 Then
    41. If rlinks > 0 Then
    42. llinks = Math.Sqrt((rlinks * rlinks) - (h * h))
    43. lrechts = Math.Sqrt((rrechts * rrechts) - (h * h))
    44. alphalinks = (Math.Asin(h / rlinks)) * 180 / Math.PI
    45. alpharechts = (Math.Asin(h / rrechts)) * 180 / Math.PI
    46. Me.CreateGraphics.DrawArc(greenpen, 300 - (rlinks + llinks), 300 - rlinks, 2 * rlinks, 2 * rlinks, 360 - alphalinks, 2 * alphalinks)
    47. Me.CreateGraphics.DrawArc(greenpen, 300 - (rrechts - lrechts), 300 - rrechts, 2 * rrechts, 2 * rrechts, 180 - alpharechts, 2 * alpharechts)
    48. Me.CreateGraphics.DrawLine(redPen, 50, starty, eintrittsx, 300 - eintrittshöhe)
    49. End If
    50. If rlinks < 0 Then
    51. rlinks = Math.Abs(rlinks)
    52. llinks = Math.Sqrt((rlinks * rlinks) - (h * h))
    53. lrechts = Math.Sqrt((rrechts * rrechts) - (h * h))
    54. alphalinks = (Math.Asin(h / rlinks)) * 180 / Math.PI
    55. alpharechts = (Math.Asin(h / rrechts)) * 180 / Math.PI
    56. Me.CreateGraphics.DrawArc(greenpen, 300 - (rlinks - llinks), 300 - rlinks, 2 * rlinks, 2 * rlinks, 180 - alphalinks, 2 * alphalinks)
    57. Me.CreateGraphics.DrawArc(greenpen, 300 - (rrechts - lrechts), 300 - rrechts, 2 * rrechts, 2 * rrechts, 180 - alpharechts, 2 * alpharechts)
    58. Me.CreateGraphics.DrawLine(redPen, 50, starty, eintrittsx, 300 - eintrittshöhe)
    59. End If
    60. End If
    61. If rrechts < 0 Then
    62. If rlinks > 0 Then
    63. rrechts = Math.Abs(rrechts)
    64. llinks = Math.Sqrt((rlinks * rlinks) - (h * h))
    65. lrechts = Math.Sqrt((rrechts * rrechts) - (h * h))
    66. alphalinks = (Math.Asin(h / rlinks)) * 180 / Math.PI
    67. alpharechts = (Math.Asin(h / rrechts)) * 180 / Math.PI
    68. Me.CreateGraphics.DrawArc(greenpen, 300 - (rlinks + llinks), 300 - rlinks, 2 * rlinks, 2 * rlinks, 360 - alphalinks, 2 * alphalinks)
    69. Me.CreateGraphics.DrawArc(greenpen, 300 - (rrechts + lrechts), 300 - rrechts, 2 * rrechts, 2 * rrechts, 360 - alpharechts, 2 * alpharechts)
    70. End If
    71. End If
    72. End Sub
    73. End Class


    Dazu müsste ich noch sagen, das ich nicht unbedingt viel ahnung vom programmieren habe.
    Die ganze grafik hat ein Kollege von mir aus unserer Gruppe programmiert, ich soll jetzt nur das Grafik mit dem Layout verbinden.

    Wär schön wenn mir jemand helfen könnte.
    Bilder

    • VB 1.png

      256,34 kB, 1.600×900, 191 mal angesehen

    • VB 2.png

      256,43 kB, 1.600×900, 188 mal angesehen

    1. Option strict On und alle Folgefehler beseitigen.
    2. nur 1x Graphics creieren:

    VB.NET-Quellcode

    1. Dim g As Graphics = Me.CreateGraphics
    2. g.DrawLine(clearall, 0, 0, 1000, 1000)
    3. ' ...
    3. füge überall zu den x- und y-Koordinaten einen gemeinsamen Offset hinzu:

    VB.NET-Quellcode

    1. Dim xOffset As Integer = 0
    2. Dim yOffset As Integer = 20
    3. g.DrawLine(clearall, 0, 0, 1000 + xOffset, 1000 + yOffset)
    4. ' usw.
    Diesen Offset richtest Du so ein, wie Du es haben willst.
    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!

    statt auf die Form zu zeichnen, könntest du in ein Panel zeichnen. Dieses kannst du dort plazieren, wo die Grafik hin soll. Dann musst du nur noch im Code auf das Panel statt auf die Form zeichnen (praktisch alle "Me" durch "panel1" ersetzen.

    Skybird schrieb:

    Das sind ja Ubisoftmethoden hier !

Facebook
Telefonspende