Wie mache ich daraus eine Schleife?

Hallo Admins,

hab ein kleines Programm geschrieben, dieses soll wenn das Form sich öffnet eine Kugel hüpfen lassen, aber mein Code sieht nach "K...auderwelsch" aus und ich bekomme da auch keine Schleife drum. Vllt. sollte ich auch einfach mal ne Pause nehmen, weil sitze schon seit ca. 4 Stunden vorm Gerät.

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        I += 1
        If I = 1 Then
            Kugel.Left += 10
            Kugel.Top -= 10
            'Kugel.Location = New Point(24, 160)  
        End If
        If I = 2 Then
            Kugel.Left += 10
            Kugel.Top -= 10
            'Kugel.Location = New Point(29, 155)  
        End If
        If I = 3 Then
            Kugel.Left += 10
            Kugel.Top -= 10
            'Kugel.Location = New Point(34, 150)  
        End If
        If I = 4 Then
            Kugel.Left += 10
            Kugel.Top -= 10
            'Kugel.Location = New Point(39, 145)  
        End If
        If I = 5 Then
            Kugel.Left += 10
            Kugel.Top -= 10
            'Kugel.Location = New Point(44, 140)  
        End If
        If I = 6 Then
            Kugel.Left += 10
            Kugel.Top -= 10
            'Kugel.Location = New Point(49, 135)  
        End If
        If I = 7 Then
            Kugel.Left += 10
            Kugel.Top -= 10
            'Kugel.Location = New Point(54, 130)  
        End If
        If I = 8 Then
            Kugel.Left += 10
            Kugel.Top -= 10
            'Kugel.Location = New Point(59, 125)  
        End If
        If I = 9 Then
            Kugel.Left += 5
            Kugel.Top += 10
            'Kugel.Location = New Point(64, 130)  
        End If
        If I = 10 Then
            Kugel.Left += 5
            Kugel.Top += 10
            'Kugel.Location = New Point(69, 135)  
        End If
        If I = 11 Then
            Kugel.Left += 5
            Kugel.Top += 10
            'Kugel.Location = New Point(74, 140)  
        End If
        If I = 12 Then
            Kugel.Left += 5
            Kugel.Top += 10
            'Kugel.Location = New Point(79, 145)  
        End If
        If I = 13 Then
            Kugel.Left += 5
            Kugel.Top += 10
            'Kugel.Location = New Point(84, 150)  
        End If
        If I = 14 Then
            Kugel.Left += 5
            Kugel.Top += 10
            'Kugel.Location = New Point(89, 155)  
        End If
        If I = 15 Then
            Kugel.Left += 5
            Kugel.Top += 10
            'Kugel.Location = New Point(94, 160)  
        End If

    End Sub

das kommt mir sehr spanisch vor was ich da gemacht habe. Wäre nett wenn mir jemand n paar Sachen dazu sagen könnte.

Danke schonmal im voraus.

MfG,

Sudden

Please also mark the comments that contributed to the solution of the article

Content-Key: 222497

Url: https://administrator.de/contentid/222497

Printed on: April 26, 2024 at 15:04 o'clock

3 Comments

Latest comment

Moin,

was meinst du mit "Schleife drum"? Das er wenn i=15 wieder von vorne anfängt? Dann setz im "If i=15 ..."-Block einfach das i wieder =0

lg,
Slainte

Servus,

ich glaube er meint sowas wie

For i = 1 to 15

Gruß

Hey,

vielen Dank, aber hat sich schon erledigt

MfG,

Sudden

German solved Question Visual Studio Development