Klappt als For-Schleife, als Do nicht...

Diese Seite verwendet Cookies. Durch die Nutzung unserer Seite erklären Sie sich damit einverstanden, dass wir Cookies setzen. Weitere Informationen

  • Klappt als For-Schleife, als Do nicht...

    Tach... Ich habe ein Problem mit der Do-Schleife in VB.
    Die Do-Schleife soll 20 mal durchlaufen, das Bild
    also 20 mal im Bogen nach unten rechts schieben.
    Mit einer For-Schleife geht es, im folgenden Code
    passiert's aber nur einmal..

    Quellcode

    1. Private Declare Sub Sleep Lib "kernel32" (ByVal dwMS As Long)
    3. Private Sub Command1_Click()
    4. i = 1
    5. Do
    6. For y = 1 To 5
    7. Sleep 10
    8. Kugel.Move Kugel.Left + 2, Kugel.Top + 0
    9. Next y
    10. For y = 1 To 5
    11. Sleep 10
    12. Kugel.Move Kugel.Left + 2, Kugel.Top + 2
    13. Next y
    14. For y = 1 To 5
    15. Sleep 10
    16. Kugel.Move Kugel.Left + 0, Kugel.Top + 2
    17. Next y
    18. i = i + 1
    19. Loop Until i < 21
    20. End Sub
    Alles anzeigen


    Bestimmt weiß einer bescheid...
    /* no comment */