Tehma: Schleifen
Inhaltsverzeichnis:
I)Die arten der Schleifen
a)Endlosschleifen
b)Begrenzte Schleifen
.1)For ... Next
.2)do while
II)Vergleichbare Schleifen
III)Tips und Tricks
>(I)<
a)Die gemeine Schleife
(Vorsicht, NICHT AUSPROBIEREN, ohne voher die Tipps gelesen zu haben)
>code Anfang
do
'befehl
loop
>code Ende
b)
.1)Die odinäre for next schleife...(Gut um mehereren Objekten den kleichen wert zuzuweisen)
Beispiel:
Objekte:
Textfeld|Text1|index=0
Textfeld|Text1|index=1
Textfeld|Text1|index=2
Textfeld|Text1|index=3
Textfeld|Text1|index=4
>code Anfang
dim i
for i = 0 to 4
Text1(i).Text = "ich bin das " & i + 1 & ". Textfeld"
next i
>code Ende
.2)Do-While
>code Anfang
Text1.text = ""
do until text1.text = "iii"
text1.text = text1.text & "i"
loop
>code Ende
hierbei wird die schleife 3mal ausgeführt, dass heißt. das der text1.text erst 3mal um ein i erweitert werden muss, bis text1.text = "iii" und damit die schleife beendet wird
until = solange, wie ... nicht ist
while = solange, wie ... ist
II)
Vergleichbare Schleife:
dim i
for i = 0 to 5
next i
>>ist vergleichbar mit
dim i
do while i <= 5
i = i + 1
loop
>>ist ebenfalls vergleichbar mit
dim i
do
if i > 5 then exit sub
i = i + 1
loop
III)Tipp:
bei schleifen wie:
do
loop
oder bei sehr langen schleifen, empfehle ich noch einen kleinen befehl einzubasteln:
doevents
dieser bewirkt, das die schleife, nicht das komplette Programm sperrt, solange sie läuft, sondern ein platzhalter für zwischentätigkeiten ist. also:
do
doevents
loop
würde das Programm also nicht sichtbar stark verlangsamen.
bei weiteren ragen stehe ich gerne zu verfügung
mfg OKay (Olaf K.)