Hopalong - Fraktal

    • VB.NET

    Es gibt 84 Antworten in diesem Thema. Der letzte Beitrag () ist von zn-gong.

      Hopalong - Fraktal

      Also ich habe es hinbekommen, so wie ich in meinem Post #7 meinte :D

      Hier mal die ganze Projektmappe, damit das vllt einfacher zu verstehen ist :)
      Danke für die Hilfe!

      ---> Hopalong.zip <---
      »There's no need to "teach" atheism. It's the natural result of education without indoctrination.« — Ricky Gervais

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

      Übergib der Draw-Prozedur die entsprechende Graphics-Instanz, wo sie reinzeichnen soll.
      Wenn Du das Programm minimierst und wieder normalisierst, sieht es so aus:
      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!

      @RodFromGermany:
      Also sollen die PaintEventArgs des PB-Paintevents in die Draw-Sub übergeben werden?
      »There's no need to "teach" atheism. It's the natural result of education without indoctrination.« — Ricky Gervais

      ThePlexian schrieb:

      PaintEventArgs ... übergeben ... ?
      Nein.
      Mach es z.B. so:

      VB.NET-Quellcode

      1. Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
      2. Dim bmp As New Bitmap(256, 256)
      3. Dim g As Graphics = Graphics.FromImage(bmp)
      4. g.Clear(Color.White)
      5. Draw(g)
      6. ' Bitmap speichern
      7. bmp.Save("c:\Temp\xxx.png")
      8. End Sub
      10. Private Sub Form1_Paint(sender As System.Object, e As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint
      11. Draw(e.Graphics)
      12. End Sub
      14. Private Sub Draw(g As Graphics)
      15. ' Bildinhalt darstellen
      16. g.DrawEllipse(Pens.Black, New Rectangle(10, 10, 200, 100))
      17. End Sub
      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!

      ThePlexian schrieb:

      Aber dann
      hast Du wohl geglaubt, ich poste Dir fertigen Code? In meinem Beispiel ging es lediglich darum, wie ein Control und eine Bitmap mit derselben Paunt-Routine befüllt werden können.
      Wann und in welchem Zusammenhang Du schrittweise malst und da ein entsprechendes Invalidate aufrufst, ist nicht Bestandteil meines Codes, das kannst Du aber alles noch hinzufügeb.
      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!

      @RodFromGermany:
      Nein, eigentlich nicht, ich muss ehrlich sein, ich habe jetzt auch erst den Vorteil deines Codes verstanden :s ^^

      Also ich habe jetzt zur Sub Draw den Parameter g As Graphics hinzugefügt --> Private Sub Draw(gAs Graphics)
      Im Sub steht jetzt nicht mehr graph und fractal (die Bitmap), sondern nur noch g.
      Vorher hatte ich die Me.Paint Sub und die btn.Click Sub, wo jeweils Draw aufgerufen wurde.
      Jetzt wird in jeden Draw einmal mit PaintEventArgs.Graphics und einmal mit Graphics.FromImage() --> Nur zur Übersicht, ist jetzt ja genau dasgleiche wie vorher.

      Siehe hier:
      Spoiler anzeigen

      VB.NET-Quellcode

      1. Dim drawing_enabled As Boolean = False
      2. Dim fractal As Bitmap
      4. Private Sub Main_Load(sender As Object, e As EventArgs) Handles Me.Load
      5. fractal = New Bitmap(DrawingField.Width, DrawingField.Height)
      6. End Sub
      9. Private Sub btn_Draw_Click(sender As Object, e As EventArgs) Handles btn_Draw.Click
      10. drawing_enabled = True
      12. Draw(DrawingField.CreateGraphics)
      13. Draw(Graphics.FromImage(fractal))
      15. drawing_enabled = False
      16. End Sub
      19. Private Sub Main_Paint(sender As Object, e As PaintEventArgs) Handles Me.Paint
      20. If drawing_enabled Then
      21. Draw(Graphics.FromImage(fractal))
      22. Draw(e.Graphics)
      23. End If
      24. End Sub
      28. REM ***** DRAWING *****
      30. Private Sub Draw(graph As Graphics)
      31. Dim num As Integer = Integer.Parse(tb_iter.Text.Replace(".", ","))
      32. Dim a As Double = Double.Parse(tb_a.Text.Replace(".", ","))
      33. Dim b As Double = Double.Parse(tb_b.Text.Replace(".", ","))
      34. Dim c As Double = Double.Parse(tb_c.Text.Replace(".", ","))
      36. Dim zoom As Double = ncd_zoom.Value
      37. Dim colorjump As Integer = Integer.Parse(tb_colorjump.Text)
      40. graph.Clear(Color.Black)
      43. Dim x As Double = 0
      44. Dim y As Double = 0
      45. Dim dist_hor As Double = DrawingField.Width / 2
      46. Dim dist_ver As Double = DrawingField.Height / 2
      48. Dim colorcounter As Integer = 0
      50. For i As Integer = 1 To num
      51. If colorcounter > 255 Then colorcounter = 1
      53. Dim sb As New SolidBrush(getColor(cb_load.SelectedIndex, colorcounter)) 'Funktion, um je nach Auswahl der Combobox eine Farbe ausrechnen zu können
      55. Dim ptx As Single = CSng(x * zoom + dist_hor) 'CSng(10 * x / zoom + dist_hor)
      56. Dim pty As Single = CSng(y * zoom + dist_ver) 'CSng(10 * y / zoom + dist_ver)
      57. graph.FillRectangle(sb, ptx, pty, 1, 1)
      58. DrawingField.Invalidate(New Rectangle(CInt(ptx), CInt(pty), 1, 1))
      60. Dim xx As Double = y - Math.Sign(x) * Math.Sqrt(Math.Abs(b * x - c))
      61. Dim yy As Double = a - x
      63. If Math.Abs(x - xx) < colorjump Then colorcounter += 1
      65. x = xx
      66. y = yy
      67. Next
      69. DrawingField.Image = fractal
      70. End Sub


      Scheint soweit zu funktionieren, aber:
      - Ich benutze in Zeile 4 .CreateGraphics, irgendwer wird mich dafür umbringen (Warum eig ?)
      - In Zeile 60 habe ich .Invalidate(rc As Rectangle), das sieht mir so unnötig kompliziert aus :D ?

      @faxe1008:
      Darauf Komme ich gern nochmal zurück, das will ich auch gerne einführen, nur leider habe ich keine Ahnung wie man Threads einsetzt, das muss ich mir erst noch aneignen :D

      Desweiteren habe ich nach erstmaligem Erstellen des Fraktals keine Blinker mehr in den Textboxen... :o
      »There's no need to "teach" atheism. It's the natural result of education without indoctrination.« — Ricky Gervais

      ThePlexian schrieb:

      Scheint soweit zu funktionieren
      Was soll beim Klick auf den Button btn_Draw eigentlich passieren?
      Ich sehe im Augenblick nur 2 Draw-Ziele: Das Control, wo Du im Takt invalidisierst und die Bitmap, die Du speicherst.
      Für beide ist CreateGraphics(...) nicht erforderlich.
      Invalidate(...) hat mehrere Überladungen, die z.B. dafür sorgen, dass nur die winzig kleine Stelle, die im großen Gesamtbild geändert wurde auch neu gezeichnet wird. Damit sieht der dynamische Output flüssiger aus.
      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!

      @RodFromGermany
      Sry ich hab momentan so ein komplettes Blackout, und finde mich jetzt nichtmal mehr in meinem eigenen Code zurecht -.- :(

      Also ich habe den Draw Sub, mit dem i.was schrittweise in eine PB gezeichnet wird.
      Damit das ganze beim Refreshen nicht verschwindet, wird nachdem zeichnen eine bitmap genutzt, getoggelt wird das über eine Flag (Globaler Bool oder ?)
      Und dann kommt da noch der Button, also soll alles erst auf ButtonClick gestartet werden.

      I'm confused, sorry oO

      Kann mir iwer wieder einen Denkansatz verpassen ?
      »There's no need to "teach" atheism. It's the natural result of education without indoctrination.« — Ricky Gervais

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

      Okay ich habe den Code etwas überarbeitet, und wollte jetzt auch BGW einbauen, damit die Form halt nicht einfriert.

      Sieht so aus, funktioniert logischerweise nicht, sonst wäre ich ja nicht hier :D
      Also, wo genau ist mein Fail mit den BGWs ? (Es sind 2 Stück, da einmal auf die PB und einmal auf die Bitmap gemalt werden soll)

      Spoiler anzeigen

      VB.NET-Quellcode

      1. Private Sub Main_Load(sender As Object, e As EventArgs) Handles Me.Load
      2. fractal = New Bitmap(DrawingField.Width, DrawingField.Height)
      3. End Sub
      6. Private Sub DrawingField_Paint(sender As Object, e As PaintEventArgs) Handles DrawingField.Paint
      7. If redraw_commited Then
      8. bgw.RunWorkerAsync(e.Graphics)
      9. bgw2.RunWorkerAsync(Graphics.FromImage(fractal))
      10. Else
      11. DrawingField.Image = fractal 'Ist das notwendig ?
      12. End If
      13. End Sub
      16. Private Sub btn_Draw_Click(sender As Object, e As EventArgs) Handles btn_Draw.Click
      17. TogglePermitDrawing(True)
      18. DrawingField.Refresh()
      20. TogglePermitDrawing(False)
      21. DrawingField.Refresh()
      22. End Sub
      31. REM ***** DRAWING *****
      33. Dim redraw_commited As Boolean = False
      35. Dim fractal As Bitmap
      37. Dim WithEvents bgw As New System.ComponentModel.BackgroundWorker
      38. Dim WithEvents bgw2 As New System.ComponentModel.BackgroundWorker
      41. Private Sub DoDrawing(sender As Object, e As System.ComponentModel.DoWorkEventArgs) Handles bgw.DoWork, bgw2.DoWork
      42. Dim num As Integer = Integer.Parse(tb_iter.Text.Replace(".", ","))
      43. Dim a As Double = Double.Parse(tb_a.Text.Replace(".", ","))
      44. Dim b As Double = Double.Parse(tb_b.Text.Replace(".", ","))
      45. Dim c As Double = Double.Parse(tb_c.Text.Replace(".", ","))
      47. Dim zoom As Double = ncd_zoom.Value
      48. Dim colorjump As Integer = Integer.Parse(tb_colorjump.Text)
      50. Dim graph As Graphics = CType(e.Argument, Graphics)
      52. Algorithm(graph, a, b, c, num, zoom, colorjump)
      53. End Sub
      55. Private Sub Algorithm(graph As Graphics, a As Double, b As Double, c As Double, num As Integer, zoom As Double, colorjump As Integer)
      56. graph.Clear(Color.Black)
      59. Dim x As Double = 0
      60. Dim y As Double = 0
      61. Dim dist_hor As Double = DrawingField.Width / 2
      62. Dim dist_ver As Double = DrawingField.Height / 2
      64. Dim colorcounter As Integer = 0
      66. For i As Integer = 1 To num
      67. If colorcounter > 255 Then colorcounter = 1
      69. Dim sb As New SolidBrush(getColor(cb_load.SelectedIndex, colorcounter))
      71. Dim ptx As Single = CSng(x * zoom + dist_hor)
      72. Dim pty As Single = CSng(y * zoom + dist_ver)
      73. graph.FillRectangle(sb, ptx, pty, 1, 1)
      75. Dim xx As Double = y - Math.Sign(x) * Math.Sqrt(Math.Abs(b * x - c))
      76. Dim yy As Double = a - x
      78. If Math.Abs(x - xx) < colorjump Then colorcounter += 1
      80. x = xx
      81. y = yy
      82. Next
      84. End Sub
      86. Private Sub TogglePermitDrawing(bool As Boolean)
      87. redraw_commited = bool
      89. btn_Draw.Enabled = Not bool
      90. btn_Save.Enabled = Not bool
      92. gb_parameter.Enabled = Not bool
      94. cb_load.Enabled = Not bool
      95. End Sub


      Das Problem ist, das a) das zeichnen nicht funktioniert, und b) beim Loaden die Buttons nicht geladen werden (andere Ctrls schon) ?(
      »There's no need to "teach" atheism. It's the natural result of education without indoctrination.« — Ricky Gervais

      @ThePlexian:: Schreib bitte mal dazu, was die im Designer angelegten Controls für welche sind. Bei den "tb_*" kann man das noch erahnen.
      Vielleicht ist es sinnvoll, Du lässt zunächst die Namen vom Designer stehen.
      Bei den TextBoxen ist es sinnvoll, NumericUpDowns zu verwenden, da sind die Grenzen, Schrittweiten und Werte klar, keiner kommt auf die Idee, "Roulade mit Klößen" reinzuschreiben.
      Außerdem solltest Du in der Form_Load die Controls mit sinnvollen Initialwerten belegen.
      Wofür Du 2 BGW brauchst, kann ich nicht erkennen, einer sollte reichen.
      Bereite mal den Code hier so auf, dass er Deinen Effekt reproduziert, wenn er per C&P in eine leere Form mit Controls Deiner Vorgabe eingefügt wurde.
      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!

      Mir fehlt die Peilung, was hier grad das Konzept sein soll.
      Beide ERstausgabe verstehe ich noch: Da läuft eine Schleife bis zB. 100000, und in jeder Runde wird ein Pixel gemalt. Und dabei kann man erfreulicherweise zugucken, aber leider freezt das Form dabei.

      Das zu entfreezen ist aufwändig, und erfordert einen ganz neuen Plan.
      Zunächstmal könnte man das hoppeln in einen Nebenthread verlegen, und mit Control.Invoke die Zeichung in den Mainthread verlegen. Ich vermute aber, das wird total langsam.
      Aber man sollte es mal ausprobieren.

      Als nächstes kann man richtig entkoppeln, also gehoppelt wird im NebenThread - aber an welchen Stellen soll die Zeichnung stattfinden? Bitte nicht bei jedem Pixel.
      Alternative wäre ein Timer im MainThread, der sich alle 100ms den aktuellen Stand abholt und darstellt.
      Dann kann der Nebenthread hoppeln, dass die Fetzen nurso fliegen - möglicherweise entsteht das Problem, dass der NebenThread nun zu schnell ist.
      Also muß man glaub tatsächlich da noch eine vom User einstellbare Bremse einbauen, mit Thread.Sleep.

      So meine Gedanken - alles unausgegoren, und um das umzusetzen ist vmtl. eine Heidenarbeit zu investieren.

      Ob sich das lohnt?
      Weil so wies ist ist doch garnet so schlecht - von dem Gefreeze mussichnich weinen.

      Okay vielen vielen Dank!

      Ich werde mich morgen darum kümmern, ich habe momentan keinen Zugriff auf meinen Code (bin nicht zuhause).

      ErfinderDesRades schrieb:

      Weil so wies ist ist doch garnet so schlecht

      Wow, erstes Lob, thank you ! ^^
      »There's no need to "teach" atheism. It's the natural result of education without indoctrination.« — Ricky Gervais

      Hört sich doch alles garnicht mal so schlecht an :)

      Ich will mir mal die Mühe machen mit den Threads, schließlich lerne ich ja nix wenn ich immer nur sage "zu schwer".

      Ich habe mir also das Rohgerüst von MSDN nachgebaut (--> hier), und den Draw Sub als AdressOf angegeben. Gestartet wird der Thread im ButtonClick-Event.

      Problem: Im Draw Sub verweise ich auf eine Funktion:

      VB.NET-Quellcode

      1. '...
      2. Dim sb As New SolidBrush(getColor(cb_load.SelectedIndex, colorcounter))
      3. '...
      5. Private Function getColor(i As Integer, cc As Integer) As Color
      6. Select Case i
      7. Case 0
      8. Return Color.FromArgb(255 - cc, cc, CInt(127 + cc / 2))
      9. Case 1
      10. Return Color.FromArgb(255 - cc, CInt(127 + cc / 2), cc)
      11. Case 2
      12. Return Color.FromArgb(cc, CInt(127 + cc / 2), 255 - cc)
      13. Case 3
      14. Return Color.FromArgb(cc, 255 - cc, CInt(127 + cc / 2))
      15. Case 4
      16. Return Color.FromArgb(CInt(127 + cc / 2), cc, 255 - cc)
      17. Case 5
      18. Return Color.FromArgb(CInt(127 + cc / 2), 255 - cc, cc)
      19. Case Else
      20. Return Color.FromArgb(255 - cc, cc, CInt(127 + cc / 2))
      21. End Select
      22. End Function

      Ist zwar nur ein kleicnes Feature, würde ich aber trotzdem gerne nutzen.
      Muss ich jetzt die Funktion in den Draw Sub einbauen, oder gibt es auch die Möglichkeit, die Funktion im selben Thread zu nutzen (Invoke ?) ?


      ErfinderDesRades schrieb:

      Alternative wäre ein Timer im MainThread, der sich alle 100ms den aktuellen Stand abholt und darstellt.
      Dann kann der Nebenthread hoppeln, dass die Fetzen nurso fliegen - möglicherweise entsteht das Problem, dass der NebenThread nun zu schnell ist.
      Also muß man glaub tatsächlich da noch eine vom User einstellbare Bremse einbauen, mit Thread.Sleep.
      Meinst du damit, das ich im Intervall von 10ms bspw. PB.Image = fractal setzen soll oder wie ?
      »There's no need to "teach" atheism. It's the natural result of education without indoctrination.« — Ricky Gervais

      ThePlexian schrieb:

      die Funktion im selben Thread zu nutzen (Invoke ?)
      Invoked werden müssen Funktionen, die Set-Properties in Controls eines anderen Threads aufrufen, solche kommen in Deinem Code nicht vor.
      Wie sieht denn der aufrufende Code aus?
      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!

      @RodFromGermany
      Ich weiß nicht mal ob der akzeptabel ist... :S

      VB.NET-Quellcode

      1. Dim drawingthread As New Threading.Thread(AddressOf Me.DrawFractal)
      3. Private Sub btn_Draw_Click(sender As Object, e As EventArgs) Handles btn_Draw.Click
      4. TogglePermitDrawing(True)
      6. drawingthread.Start()
      8. drawingthread.Join() 'Damit warte ich bis der Thread fertig ist oder ?
      10. TogglePermitDrawing(False)
      11. DrawingField.Refresh()
      12. End Sub
      17. REM ***** DRAWING *****
      20. Private Sub DrawFractal()
      21. Dim num As Integer = Integer.Parse(tb_iter.Text.Replace(".", ","))
      22. Dim a As Double = Double.Parse(tb_a.Text.Replace(".", ","))
      23. Dim b As Double = Double.Parse(tb_b.Text.Replace(".", ","))
      24. Dim c As Double = Double.Parse(tb_c.Text.Replace(".", ","))
      26. Dim zoom As Double = ncd_zoom.Value
      27. Dim colorjump As Integer = Integer.Parse(tb_colorjump.Text)
      29. Algorithm(a, b, c, num, zoom, colorjump) 'Das funktioniert scheinbar
      30. End Sub
      32. Private Sub Algorithm(a As Double, b As Double, c As Double, num As Integer, zoom As Double, colorjump As Integer)
      33. Dim graph As Graphics = Graphics.FromImage(fractal)
      35. graph.Clear(Color.Black)
      37. Dim x As Double = 0
      38. Dim y As Double = 0
      39. Dim dist_hor As Double = DrawingField.Width / 2
      40. Dim dist_ver As Double = DrawingField.Height / 2
      42. Dim colorcounter As Integer = 0
      44. For i As Integer = 1 To num
      45. If colorcounter > 255 Then colorcounter = 1
      47. Dim sb As New SolidBrush(getColor(cb_load.SelectedIndex, colorcounter)) 'Hier wird die Exception geworfen (siehe unten)
      49. Dim ptx As Single = CSng(x * zoom + dist_hor)
      50. Dim pty As Single = CSng(y * zoom + dist_ver)
      51. graph.FillRectangle(sb, ptx, pty, 1, 1)
      53. Dim xx As Double = y - Math.Sign(x) * Math.Sqrt(Math.Abs(b * x - c))
      54. Dim yy As Double = a - x
      56. If Math.Abs(x - xx) < colorjump Then colorcounter += 1
      58. x = xx
      59. y = yy
      61. 'DrawingField.Invalidate()
      62. Next
      64. End Sub
      66. Private Function getColor(i As Integer, cc As Integer) As Color
      67. Select Case i
      68. Case 0
      69. Return Color.FromArgb(255 - cc, cc, CInt(127 + cc / 2))
      70. Case 1
      71. Return Color.FromArgb(255 - cc, CInt(127 + cc / 2), cc)
      72. Case 2
      73. Return Color.FromArgb(cc, CInt(127 + cc / 2), 255 - cc)
      74. Case 3
      75. Return Color.FromArgb(cc, 255 - cc, CInt(127 + cc / 2))
      76. Case 4
      77. Return Color.FromArgb(CInt(127 + cc / 2), cc, 255 - cc)
      78. Case 5
      79. Return Color.FromArgb(CInt(127 + cc / 2), 255 - cc, cc)
      80. Case Else
      81. Return Color.FromArgb(255 - cc, cc, CInt(127 + cc / 2))
      82. End Select
      83. End Function


      "System.InvalidOperationException" : Zusätzliche Informationen: Ungültiger threadübergreifender Vorgang: Der Zugriff auf das Steuerelement cb_load erfolgte von einem anderen Thread als dem Thread, für den es erstellt wurde.
      »There's no need to "teach" atheism. It's the natural result of education without indoctrination.« — Ricky Gervais

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

      ThePlexian schrieb:

      Ungültiger threadübergreifender Vorgang
      Das geht immer genau so:

      VB.NET-Quellcode

      1. Dim index As Integer
      2. Me.Invoke(Sub() index = cb_load.SelectedIndex)
      Überleg mal, die Parameter nicht über TextBoxen, sondern über NumericUpDowns zu setzen.
      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!

      @RodFromGermany , @ErfinderDesRades:
      So, ich habe jetzt die TBs zu NUDs geändert, und ein / zwei Layout Änderungen vorgenommen, aber es gibt trotzdem noch Probleme ;(

      Mein bisheriger Code sieht so aus, und das Problem ist, das sobald ich auf den Button klicke, die Form freezt und nichts mehr passiert (Ich vermute das liegt an dem Join oder ? :

      Spoiler anzeigen

      VB.NET-Quellcode

      1. Public Class Hopalong
      3. Dim redraw_commited As Boolean = False
      4. Dim fractal As Bitmap
      7. Private Sub Main_Load(sender As Object, e As EventArgs) Handles Me.Load
      8. cb_load.SelectedIndex = 0
      9. fractal = New Bitmap(DrawingField.Width, DrawingField.Height)
      10. Graphics.FromImage(fractal).Clear(Color.FromKnownColor(KnownColor.Control))
      11. End Sub
      14. Private Sub DrawingField_Paint(sender As Object, e As PaintEventArgs) Handles DrawingField.Paint
      16. End Sub
      19. Dim drawingthread As New Threading.Thread(AddressOf Me.DrawFractal) With {.IsBackground = True} 'Das ist auch neu
      21. Private Sub btn_Draw_Click(sender As Object, e As EventArgs) Handles btn_Draw.Click
      22. TogglePermitDrawing(True)
      24. drawingthread.Start()
      26. drawingthread.Join()
      28. TogglePermitDrawing(False)
      29. DrawingField.Refresh()
      30. End Sub
      39. REM ***** DRAWING *****
      44. Private Sub DrawFractal()
      45. Dim num As Integer = Integer.Parse(nud_iter.Text)
      46. Dim a As Double = Double.Parse(nud_a.Text)
      47. Dim b As Double = Double.Parse(nud_b.Text)
      48. Dim c As Double = Double.Parse(nud_c.Text)
      50. Dim zoom As Double = nud_zoom.Value
      51. Dim colorjump As Integer = Integer.Parse(nud_colorjump.Text)
      53. Dim colorformula As Integer
      54. Me.Invoke(Sub() colorformula = cb_load.SelectedIndex) 'Ich verstehe nicht warum ich nur das Invoken muss ?(
      56. Algorithm(a, b, c, num, zoom, colorjump, colorformula)
      57. End Sub
      59. Private Sub Algorithm(a As Double, b As Double, c As Double, num As Integer, zoom As Double, colorjump As Integer, colorformula As Integer)
      60. Dim graph As Graphics = Graphics.FromImage(fractal)
      62. graph.Clear(Color.Black)
      64. Dim x As Double = 0
      65. Dim y As Double = 0
      66. Dim dist_hor As Double = DrawingField.Width / 2
      67. Dim dist_ver As Double = DrawingField.Height / 2
      69. Dim colorcounter As Integer = 0
      71. For i As Integer = 1 To num
      72. If colorcounter > 255 Then colorcounter = 1
      74. Dim sb As New SolidBrush(getColor(colorformula, colorcounter))
      76. Dim ptx As Single = CSng(x * zoom + dist_hor)
      77. Dim pty As Single = CSng(y * zoom + dist_ver)
      78. graph.FillRectangle(sb, ptx, pty, 1, 1)
      80. Dim xx As Double = y - Math.Sign(x) * Math.Sqrt(Math.Abs(b * x - c))
      81. Dim yy As Double = a - x
      83. If Math.Abs(x - xx) < colorjump Then colorcounter += 1
      85. x = xx
      86. y = yy
      88. 'DrawingField.Invalidate()
      89. Next
      91. End Sub
      93. Private Function getColor(i As Integer, cc As Integer) As Color
      94. Select Case i
      95. Case 0
      96. Return Color.FromArgb(255 - cc, cc, CInt(127 + cc / 2))
      97. Case 1
      98. Return Color.FromArgb(255 - cc, CInt(127 + cc / 2), cc)
      99. Case 2
      100. Return Color.FromArgb(cc, CInt(127 + cc / 2), 255 - cc)
      101. Case 3
      102. Return Color.FromArgb(cc, 255 - cc, CInt(127 + cc / 2))
      103. Case 4
      104. Return Color.FromArgb(CInt(127 + cc / 2), cc, 255 - cc)
      105. Case 5
      106. Return Color.FromArgb(CInt(127 + cc / 2), 255 - cc, cc)
      107. Case Else
      108. Return Color.FromArgb(255 - cc, cc, CInt(127 + cc / 2))
      109. End Select
      110. End Function
      116. REM Events
      118. Private Sub TogglePermitDrawing(bool As Boolean)
      119. redraw_commited = bool
      121. btn_Draw.Enabled = Not bool
      122. btn_Save.Enabled = Not bool
      124. gb_parameter.Enabled = Not bool
      125. gb_layout.Enabled = Not bool
      127. cb_load.Enabled = Not bool
      128. End Sub
      130. Private Sub cb_load_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cb_load.SelectedIndexChanged
      131. cb_load.Refresh()
      132. fractal = New Bitmap(DrawingField.Width, DrawingField.Height)
      133. Graphics.FromImage(fractal).Clear(Color.Black)
      134. End Sub
      136. End Class
      »There's no need to "teach" atheism. It's the natural result of education without indoctrination.« — Ricky Gervais

    Facebook