Äussere Schleife funktioniert nicht

  • VB.NET

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

    Äussere Schleife funktioniert nicht

    Hi Leute,
    ich habe folgendes Problem: Ich möchte Kreise in einem gewissen Raster anzeigen:
    in der inneren Schleife(i) zeichne ich die Kreise in einer Reihe übereinander, in der äusseren Schleife(j) sollen dann die nächsten Reihen mit einem Versatz in x- und y-Richtung gezeichnet werden!
    Die innere funktioniert,die erste Reihe wird gezeichnet.
    Die äussere aber nicht! Was mache ich falsch?!

    VB.NET-Quellcode

    1. Dim x0 As Double
    2. Dim y0 As Double
    3. Dim i As Integer = 1
    4. Dim j As Integer = 1
    5. Dim a As Integer = 0
    6. Dim x As Integer = 0
    7. Dim y As Integer = 0
    9. Do While j < Reihen
    10. Do While i < Anzahl
    11. x0 = 2 + x
    12. y0 = a + y
    13. g.TranslateTransform(x0, y0)
    14. g.DrawEllipse(Pens.Black, -2), -2), 4, 4)
    15. g.ResetTransform()
    16. a += 5
    17. i = i + 1
    18. Loop
    19. x += 3
    20. y += 6
    21. j = j + 1
    22. Loop


    Danke im Voraus

    rade23

    Jep, sind beide deklariert!
    ...sonst würde die innere Schleife aber ja auch nicht funktionieren!

    Was ich oben geschrieben habe, hatte ich bereits etwas vereinfacht, hier das eigentliche:
    Wenn ich die kommentierten Zeilen weglasse, zeichnet er mir die Kreise übereinander (wie gewollt), füge ich die kommentierten Zeilen hinzu(um die Kreis-Reihe versetzt zu duplizieren), zeichnet er troztdem nur die innere Schleife?!

    VB.NET-Quellcode

    1. Public Function DübelC(ByVal source As Bitmap, ByVal a1 As String, ByVal a2 As String, ByVal a1tc As String, ByVal a2tc As String, ByVal Reihen As String, ByVal AnzahljeReihe As String, ByVal WinkelZY As String, ByVal Durchmesser As String) As Bitmap
    2. g = System.Drawing.Graphics.FromImage(source)
    3. Dim rad as Double = Math.PI / 180
    4. Dim faktor As Double = Hauptformular.trb_C.Value / 100
    5. Dim HöheHT_f As Integer = faktor * Hauptformular.txt_HöheHT.Text
    6. Dim BreiteHT_f As Integer = faktor * Hauptformular.txt_BreiteHT.Text
    7. Dim cos_a1_f As Integer = faktor * a1 * Math.Cos(WinkelZY * rad)
    8. Dim sin_a1_f As Integer = faktor * a1 * Math.Sin(WinkelZY * rad)
    9. Dim cos_a2_f As Integer = faktor * a2 / Math.Cos(WinkelZY * rad)
    10. Dim cos_a1tc_f As Integer = faktor * a1tc * Math.Cos(WinkelZY * rad)
    11. Dim sin_a1tc_f As Integer = faktor * a1tc * Math.Sin(WinkelZY * rad)
    13. Dim a2tc_f As Integer = faktor * a2tc
    15. Dim x0 As Double
    16. Dim y0 As Double
    17. Dim i As Integer = 1
    18. Dim j As Integer = 1
    19. Dim a As Integer
    20. Dim b As Integer = 0
    21. Dim c As Integer = 0
    22. Dim wert As Integer = Math.Floor(CInt(Reihen) / 2)
    23. Dim rest As Double = Math.IEEERemainder(CInt(Reihen), 2)
    24. Dim wert2 As Double = wert - 0.5
    25. If rest <> 0 Then
    26. a = -cos_a2_f * wert
    27. Else
    28. a = -cos_a2_f * wert2
    29. End If
    30. 'Do While j < CInt(AnzahljeReihe) + 1
    31. Do While i < CInt(Reihen) + 1
    32. x0 = 50 + BreiteHT_f + cos_a1tc_f + b
    33. y0 = fkt_y0(source) + a + sin_a1tc_f + c
    34. g.TranslateTransform(x0, y0)
    35. g.DrawEllipse(Pens.Black, -CInt(Durchmesser / 2 * faktor), -CInt(Durchmesser / 2 * faktor), CInt(Durchmesser * faktor), CInt(Durchmesser * faktor))
    36. g.ResetTransform()
    37. a += cos_a2_f
    38. i = i + 1
    39. Loop
    40. 'b += cos_a1_f
    41. 'c += sin_a1_f
    42. 'j = j + 1
    43. 'Loop
    44. Return source
    45. End Function

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

    Erstmal Danke für den Tip!

    Ich kann Dir aber nicht ganz folgen... Wie soll ich den eine For...Each-Schleife benutzen?

    Hast Du vielleicht ein kleines Beispiel?!

    Habs jetzt folgendermaßen gemacht:

    VB.NET-Quellcode

    1. Dim x0 As Double
    2. Dim y0 As Double
    3. Dim i As Integer = 1
    4. Dim j As Integer = 1
    5. Dim a As Integer
    6. Dim b As Integer = 0
    7. Dim c As Integer = 0
    8. Dim wert As Integer = Math.Floor(CInt(Reihen) / 2)
    9. Dim rest As Double = Math.IEEERemainder(CInt(Reihen), 2)
    10. Dim wert2 As Double = wert - 0.5
    11. If rest <> 0 Then
    12. a = -cos_a2_f * wert
    13. Else
    14. a = -cos_a2_f * wert2
    15. End If
    16. Do While i < CInt(Reihen) * CInt(AnzahljeReihe) + 1
    17. x0 = 50 + BreiteHT_f + cos_a1tc_f + b
    18. y0 = fkt_y0(source) + a + sin_a1tc_f + c
    19. g.TranslateTransform(x0, y0)
    20. g.DrawEllipse(Pens.Black, -CInt(Durchmesser / 2 * faktor), -CInt(Durchmesser / 2 * faktor), CInt(Durchmesser * faktor), CInt(Durchmesser * faktor))
    21. g.ResetTransform()
    22. a += cos_a2_f
    23. i = i + 1
    24. If i = j * CInt(Reihen) + 1 Then
    25. j = j + 1
    26. b = b + cos_a1_f
    27. c = c + sin_a1_f
    28. If rest <> 0 Then
    29. a = -cos_a2_f * wert
    30. Else
    31. a = -cos_a2_f * wert2
    32. End If
    33. End If
    34. Loop


    Das funktioniert auch, gibt aber bestimmt noch elegantere Lösung...

    rade23

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

    Zwischen den beiden Do While-Zeilen musst Du das i zurücksetzen. :D

    VB.NET-Quellcode

    1. Do While j < Reihen
    2. i = 1
    3. Do While i < Anzahl
    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