Top-Themen

Aktuelle Themen (A bis Z)

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?

Mitglied: Sudden

Sudden (Level 1) - Jetzt verbinden

20.11.2013 um 13:02 Uhr, 1349 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
PHP
KW berechnen, was mach ich falsch?
gelöst Frage von icegetPHP2 Kommentare

Hallo Community, ich arbeite an einem kleinen Kalender, und habe folgendes Problem: Da ich auch eine Wochenansicht in meinem ...

Windows Server

A G dL P Richtig anwenden. Wie mach ich das ?

Frage von Windows10PROWindows Server11 Kommentare

Guten Abend, ich verzweifle mittlerweile an einem wahrscheinlich relativ simplen Problem. Vielleicht kann mir hier jemand helfen. Auf einem ...

Router & Routing

Cisco Router als Telekomplaste Ersatz. Was mach ich mit dem Analogen Telefonanschluss ?

gelöst Frage von AlchimedesRouter & Routing3 Kommentare

Hallo, ich bereite mich gerade auf Ciscozertifizierungen(CCNA) vor und wollte mir entsprechend Hardware dazu kaufen. Nun bin ich am ...

Neue Wissensbeiträge
Datenschutz

SiSyPHuS Win10: Analyse der Telemetriekomponenten in Windows 10

Tipp von freesolo vor 3 TagenDatenschutz1 Kommentar

Alle die sich detailliert für die Datensammlung interessieren die unter Windows 10 stattfindet, sollten sich folgende Analyse des BSI ...

Sicherheit
Adminrechte dank Intel-Grafikkarte
Information von DerWoWusste vor 3 TagenSicherheit2 Kommentare

ist das Advisory, welches beschreibt, welche Intel HD Graphics Modelle Sicherheitslücken haben, mit denen sich schwache Nutzer zu Admins ...

Internet

EU Urheberrechtsreform: Eingriff in die Internetkultur

Information von Frank vor 3 TagenInternet1 Kommentar

Liebe Besucherin, lieber Besucher, warum erscheint das obere Banner in allen Beiträgen? Aus Protest gegen Teile der geplanten EU-Urheberrechtsreform ...

Windows Server
Windows Backup - FilterManager Event 3
Tipp von NixVerstehen vor 4 TagenWindows Server

Hallo zusammen, ich bin kein gelernter ITler und auch beruflich nicht in dem Feld tätig. Wir setzen in unserem ...

Heiß diskutierte Inhalte
Hyper-V
Hyper-V Manager startet, jedoch keine VM
Frage von NaleorHyper-V14 Kommentare

Hallo zusammen, auf meinem Windows 10 (Build 1703) Notebook von der Arbeit scheint Hyper-V plötzliche nicht mehr zu funktionieren. ...

DNS
50 EUR für Telekom-, Unitymedia- und Vodafone-Kunden
Frage von Zorro1199DNS14 Kommentare

Hallo zusammen, wie evaluieren gerade das korrekte Einhalten von DNS-TTLs durch verschiedene Provider. Aktuell suchen wir noch Kunden der ...

Windows Server
Sonntagsfrage: Welchen Sinn seht Ihr noch im Server 2019 Essentials
Frage von ashnodWindows Server13 Kommentare

Guten Morgen, ich habe gestern den Windows Server 2019 Essentials als Trial in einer VM installiert um mir das ...

Windows Server
Windows 2012 R2 - Skript um Druckerkonfiguration auszulesen und zu setzen
gelöst Frage von Der-PhilWindows Server11 Kommentare

Hallo! Kennt ihr eine Möglichkeit, per Skript die Konfiguration eines Druckers auszulesen und auf einen anderen anzuwenden? Hintergrund: Ich ...