Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit
GELÖST

Wie mache ich daraus eine Schleife?

Frage Entwicklung Visual Studio

Mitglied: Sudden

Sudden (Level 1) - Jetzt verbinden

20.11.2013 um 13:02 Uhr, 1239 Aufrufe, 3 Kommentare

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.

01.
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick 
02.
        I += 1 
03.
        If I = 1 Then 
04.
            Kugel.Left += 10 
05.
            Kugel.Top -= 10 
06.
            'Kugel.Location = New Point(24, 160) 
07.
        End If 
08.
        If I = 2 Then 
09.
            Kugel.Left += 10 
10.
            Kugel.Top -= 10 
11.
            'Kugel.Location = New Point(29, 155) 
12.
        End If 
13.
        If I = 3 Then 
14.
            Kugel.Left += 10 
15.
            Kugel.Top -= 10 
16.
            'Kugel.Location = New Point(34, 150) 
17.
        End If 
18.
        If I = 4 Then 
19.
            Kugel.Left += 10 
20.
            Kugel.Top -= 10 
21.
            'Kugel.Location = New Point(39, 145) 
22.
        End If 
23.
        If I = 5 Then 
24.
            Kugel.Left += 10 
25.
            Kugel.Top -= 10 
26.
            'Kugel.Location = New Point(44, 140) 
27.
        End If 
28.
        If I = 6 Then 
29.
            Kugel.Left += 10 
30.
            Kugel.Top -= 10 
31.
            'Kugel.Location = New Point(49, 135) 
32.
        End If 
33.
        If I = 7 Then 
34.
            Kugel.Left += 10 
35.
            Kugel.Top -= 10 
36.
            'Kugel.Location = New Point(54, 130) 
37.
        End If 
38.
        If I = 8 Then 
39.
            Kugel.Left += 10 
40.
            Kugel.Top -= 10 
41.
            'Kugel.Location = New Point(59, 125) 
42.
        End If 
43.
        If I = 9 Then 
44.
            Kugel.Left += 5 
45.
            Kugel.Top += 10 
46.
            'Kugel.Location = New Point(64, 130) 
47.
        End If 
48.
        If I = 10 Then 
49.
            Kugel.Left += 5 
50.
            Kugel.Top += 10 
51.
            'Kugel.Location = New Point(69, 135) 
52.
        End If 
53.
        If I = 11 Then 
54.
            Kugel.Left += 5 
55.
            Kugel.Top += 10 
56.
            'Kugel.Location = New Point(74, 140) 
57.
        End If 
58.
        If I = 12 Then 
59.
            Kugel.Left += 5 
60.
            Kugel.Top += 10 
61.
            'Kugel.Location = New Point(79, 145) 
62.
        End If 
63.
        If I = 13 Then 
64.
            Kugel.Left += 5 
65.
            Kugel.Top += 10 
66.
            'Kugel.Location = New Point(84, 150) 
67.
        End If 
68.
        If I = 14 Then 
69.
            Kugel.Left += 5 
70.
            Kugel.Top += 10 
71.
            'Kugel.Location = New Point(89, 155) 
72.
        End If 
73.
        If I = 15 Then 
74.
            Kugel.Left += 5 
75.
            Kugel.Top += 10 
76.
            'Kugel.Location = New Point(94, 160) 
77.
        End If 
78.
 
79.
    End Sub 
80.
 
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
Mitglied: SlainteMhath
20.11.2013 um 15:20 Uhr
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
Bitte warten ..
Mitglied: MrTrebron
20.11.2013 um 15:58 Uhr
Servus,

ich glaube er meint sowas wie

For i = 1 to 15

Gruß
Bitte warten ..
Mitglied: Sudden
20.11.2013 um 18:58 Uhr
Hey,

vielen Dank, aber hat sich schon erledigt


MfG,

Sudden
Bitte warten ..
Ähnliche Inhalte
Batch & Shell
gelöst Abfrage ERRORLEVEL springt aus der FOR Schleife (8)

Frage von Galindiesel zum Thema Batch & Shell ...

Batch & Shell
gelöst Warum funktioniert das echo in meiner for-Schleife auch mit Sonderzeichen? (9)

Frage von Pedant zum Thema Batch & Shell ...

Windows Server
Windows Server 2012R2 Automatische-Reparatur Schleife - NEU (46)

Frage von hans-tu-was zum Thema Windows Server ...

Batch & Shell
gelöst Dateinamen auslesen und in einer Schleife benutzen (12)

Frage von TeholBeddict zum Thema Batch & Shell ...

Neue Wissensbeiträge
Tipps & Tricks

Wie Hackt man sich am besten in ein Computernetzwerk ein

(38)

Erfahrungsbericht von Herbrich19 zum Thema Tipps & Tricks ...

Humor (lol)

Bester Vorschlag eines Supporttechnikers ever: APC

(15)

Erfahrungsbericht von DerWoWusste zum Thema Humor (lol) ...

Heiß diskutierte Inhalte
Festplatten, SSD, Raid
POS Hardware und alternativen zu Raid 1? (21)

Frage von Brotkasten zum Thema Festplatten, SSD, Raid ...

Viren und Trojaner
Verschlüsselungstrojaner simulieren (18)

Frage von AlbertMinrich zum Thema Viren und Trojaner ...

Ubuntu
Nextcloud 12 Antivirus App for Files (8)

Frage von horstvogel zum Thema Ubuntu ...

Server-Hardware
gelöst Empfehlung KVM over IP Switch (8)

Frage von Androxin zum Thema Server-Hardware ...