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

Frage Entwicklung Visual Studio

GELÖST

Wie mache ich daraus eine Schleife?

Mitglied: Sudden

Sudden (Level 1) - Jetzt verbinden

20.11.2013 um 13:02 Uhr, 1264 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
Batch Schleife als FOR-SCHLEIFE
gelöst Frage von mp2711Batch & Shell2 Kommentare

Mit den FOR-Schleifen habe ich mich leider bislang zu selten auseinander gesetzt, aber da ich sonst gerade nicht weiter ...

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 ...

Batch & Shell
Script, was mache ich verkehrt?
gelöst Frage von KnuefiBatch & Shell2 Kommentare

Hallo zusammen, ich hoffe mir kann jemand von euch helfen. Ich wollte mit diesen Script 3 Ordner überwachen und ...

Visual Studio
Skybound.Gecko Mach mir Probleme bei einigen Befehlen
gelöst Frage von soritoseVisual Studio13 Kommentare

Ich bin noch neu und habe also noch nicht fiel Erfahrung vorher habet ich bei Visual Basic 2010 das ...

Neue Wissensbeiträge
Linux

Meltdown und Spectre: Linux Update

Information von Frank vor 1 TagLinux

Meltdown (Variante 3 des Prozessorfehlers) Der Kernel 4.14.13 mit den Page-Table-Isolation-Code (PTI) ist nun für Fedora freigegeben worden. Er ...

Tipps & Tricks

Solutio Charly Updater Fehlermeldung: Das Abgleichen der Dateien in -Pfad- mit dem Datenobject ist fehlgeschlagen

Tipp von StefanKittel vor 2 TagenTipps & Tricks

Hallo, hier einmal als Tipp für alle unter Euch die mit der Zahnarztabrechnungssoftware Charly von Solutio zu tun haben. ...

Sicherheit

Meltdown und Spectre: Wir brauchen eine "Abwrackprämie", die die CPU-Hersteller bezahlen

Information von Frank vor 2 TagenSicherheit12 Kommentare

Zum aktuellen Thema Meltdown und Spectre: Ich wünsche mir von den CPU-Herstellern wie Intel, AMD oder ARM eine Art ...

Sicherheit

Meltdown und Spectre: Realitätscheck

Information von Frank vor 2 TagenSicherheit10 Kommentare

Die unangenehme Realität Der Prozessorfehler mit seinen Varianten Meltdown und Spectre ist seit Juni 2017 bekannt. Trotzdem sind immer ...

Heiß diskutierte Inhalte
Batch & Shell
Meltdown Microsoft Prüf Script - .zip Datei leider leer
gelöst Frage von MasterBlaster88Batch & Shell13 Kommentare

Hallo zusammen, ich patche gerade unsere Windows Server bzgl. der Meltdown Lücke. Patch vorhanden, Reg Keys gesetzt Um das ...

Batch & Shell
Shell-Skript - Syntax error: Unterminated quoted string
Frage von newit1Batch & Shell13 Kommentare

Hallo Ich schreibe ein Skript das eine CSV-Datei in eine mySQL Datenbank schieben soll. Bekomme nach start des Skrips ...

E-Mail
Erfahrungen mit hMailServer gesucht
Frage von it-fraggleE-Mail10 Kommentare

Hallo, meine neue Stelle möchte einen eigenen Mailserver. Ich als Linuxkind war direkt geistig mit Postfix dabei. Leider wollen ...

Entwicklung
VBS: alle PDF-Dateien in einem Ordner gleichzeitig öffnen
gelöst Frage von JuweeeEntwicklung9 Kommentare

Hallo, ich habe in deiner Ordnerstruktur (.\Tagesberichte\xx.18\) mehrere dynamische PDF-Formulare (mit LCD erstellt). Die Berichtsformulare sind im Layout alle ...