Spirographensoftware

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

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

    Spirographensoftware

    Hallo zusammen,
    ich habe folgendes Problem, das Programm läuft, zeig aber keine Ergebnisse an:
    Hier der Code:

    VB.NET-Quellcode

    1. Public Class FormMain
    2. Private rand As New Random()
    3. Private bmp As Bitmap
    4. Private g As Graphics
    5. Private benutzerFarbe As Color = Color.Blue
    7. Private Sub FormMain_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    8. bmp = New Bitmap(PictureBox1.Width, PictureBox1.Height)
    9. g = Graphics.FromImage(bmp)
    10. PictureBox1.Image = bmp
    12. ComboBoxFarben.Items.AddRange({"Zufällig", "Farbverlauf", "Benutzer"})
    13. ComboBoxFarben.SelectedIndex = 0
    14. Dim stift As New Pen(Color.Black)
    15. ZeichneSpirograph()
    16. End Sub
    18. Private Sub ZeichneSpirograph()
    19. g.Clear(Color.White)
    21. Dim R100 As Double = NumericUpDown100.Value
    22. Dim r40 As Double = NumericUpDown40.Value
    23. Dim d60 As Double = NumericUpDown60.Value
    25. Dim centerX As Integer = PictureBox1.Width \ 2
    26. Dim centerY As Integer = PictureBox1.Height \ 2
    27. Dim lastPoint As Point = Point.Empty
    29. Dim steps As Integer = 2000
    31. For i As Integer = 0 To steps
    32. Dim t As Double = i * 2 * Math.PI / steps
    33. Dim x As Double = (R100 - R100) * Math.Cos(t) + d60 * Math.Cos((R100 - R100) / R100 * t)
    34. Dim y As Double = (R100 - R100) * Math.Sin(t) - d60 * Math.Sin((R100 - R100) / R100 * t)
    35. Dim px As Integer = centerX + x
    36. Dim py As Integer = centerY + y
    38. If lastPoint <> Point.Empty Then
    39. Dim pen As Pen = WähleStift(i, steps)
    40. g.DrawLine(pen, lastPoint, New Point(px, py))
    41. End If
    42. lastPoint = New Point(px, py)
    43. Next
    45. PictureBox1.Invalidate()
    46. End Sub
    48. Private Function WähleStift(i As Integer, max As Integer) As Pen
    50. Select Case ComboBoxFarben.SelectedItem.ToString()
    51. Case "Zufällig"
    52. Return New Pen(Color.FromArgb(rand.Next(256), rand.Next(256), rand.Next(256)))
    53. Case "Farbverlauf"
    54. Dim ratio As Double = i / max
    55. Dim r40 As Integer = 255 * ratio
    56. Dim b As Integer = 255 - r40
    57. Return New Pen(Color.FromArgb(r40, 0, b))
    58. Case "Benutzer"
    59. Return New Pen(benutzerFarbe)
    60. Case Else
    61. Return New Pen(Color.Black)
    62. End Select
    63. End Function
    65. Private Sub ButtonZeichnen_Click(sender As Object, e As EventArgs) Handles ButtonZeichnen.Click
    66. ZeichneSpirograph()
    68. End Sub
    70. Private Sub ButtonSpeichern_Click(sender As Object, e As EventArgs) Handles ButtonSpeichern.Click
    71. Dim dlg As New SaveFileDialog()
    72. dlg.Filter = "JPG Bild|*.jpg"
    73. If dlg.ShowDialog() = DialogResult.OK Then
    74. bmp.Save(dlg.FileName, Imaging.ImageFormat.Png)
    75. End If
    76. End Sub
    78. Private Sub ComboBoxFarben_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBoxFarben.SelectedIndexChanged
    79. If ComboBoxFarben.SelectedItem.ToString() = "Benutzer" Then
    80. If ColorDialog1.ShowDialog() = DialogResult.OK Then
    81. benutzerFarbe = ColorDialog1.Color
    82. End If
    83. End If
    84. End Sub
    86. Private Sub Beenden_Click(sender As Object, e As EventArgs) Handles Beenden.Click
    87. Me.Hide()
    89. End Sub
    90. End Class


    Danke für die Mühe
    Manfred

    CodeTags gesetzt
    Thema verschoben; Das Thema wird automatisch dort erstellt, wo man sich befindet, wenn man auf [✱ Neues Thema] klickt.     ~VaporiZed

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „VaporiZed“ ()

    Willkommen im Forum.

    Ich weiß ja nicht, was es werden soll, aber in Zeile#33 und #34 ergibt (R100 - R100) immer Null.
    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.

    @ManniK Ebenfalls: Willkommen im Forum. :thumbup:
    Bevor Du Dich weiter dem Programmieren widmest, solltest Du Deinem Studio die empfohlenden Einstellungen verpassen:
    Visual Studio – Empfohlene Einstellungen
    Option Strict On ist hier angesagt.
    Ein Programm solltest Du niemals mit Me.Hide() beenden, das Programm ist dann immer noch laufend im Arbeitsspeicher des PC oder des Studios.
    Verwende Me.Close().
    Du erstellst ein Bild im PNG-Format und speicherst es als JPG ab, das verstehen möhlicherweise andere Programme nicht richtig.
    Und:
    Gemalt wird im Paint-Ereignis der PictureBox, da bekommst Du die Graphics-Instanz als Member der PaintEventArgs übergeben.
    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!