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

Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben

Content-ID: 222497

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

Ausgedruckt am: 08.11.2024 um 05:11 Uhr

3 Kommentare

Neuester Kommentar

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