sudden
Goto Top

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

Content-Key: 222497

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

Ausgedruckt am: 28.03.2024 um 22:03 Uhr

Mitglied: SlainteMhath
SlainteMhath 20.11.2013 um 15:20:01 Uhr
Goto Top
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
Mitglied: MrTrebron
MrTrebron 20.11.2013 um 15:58:37 Uhr
Goto Top
Servus,

ich glaube er meint sowas wie

For i = 1 to 15

Gruß
Mitglied: Sudden
Sudden 20.11.2013 um 18:58:25 Uhr
Goto Top
Hey,

vielen Dank, aber hat sich schon erledigt face-smile


MfG,

Sudden