Quelltext anzeigen

<span class="f_Header">Funktion</span> =

Schleife mit einer festgelegten Anzahl an Wiederholungen.

<span style="font-family: Arial;">&nbsp;</span>

<span style="font-family: Arial;">&nbsp;</span>

= <span class="f_Header">Syntax</span> =

<span class="f_Syntax">FOR</span>&nbsp;var = start&nbsp;<span class="f_Syntax">TO</span>&nbsp;end [<span class="f_Syntax">STEP</span>&nbsp;value]

<span style="font-family: Arial;">&nbsp;</span>

<span style="font-family: Arial;">&nbsp;</span>

= <span class="f_Header">Anmerkungen</span> =
<div style="padding: 0px; margin: 0px 0px 0px 4px;">
{| width="601" cellspacing="0" cellpadding="1" border="1" style="border: 2px solid rgb(0, 0, 0); border-spacing: 0px; border-collapse: collapse;"
|- style="vertical-align: top;"
| valign="top" width="17%" style="width: 98px; border: 1px solid rgb(0, 0, 0);" | 
var

| valign="top" width="85%" style="width: 494px; border: 1px solid rgb(0, 0, 0);" | 
Zählervariable

|- style="vertical-align: top;"
| valign="top" width="17%" style="width: 98px; border: 1px solid rgb(0, 0, 0);" | 
start

| valign="top" width="85%" style="width: 494px; border: 1px solid rgb(0, 0, 0);" | 
Startwert der Zählervariablen var

|- style="vertical-align: top;"
| valign="top" width="17%" style="width: 98px; border: 1px solid rgb(0, 0, 0);" | 
end

| valign="top" width="85%" style="width: 494px; border: 1px solid rgb(0, 0, 0);" | 
Endwert der Zählervariablen var

|- style="vertical-align: top;"
| valign="top" width="17%" style="width: 98px; border: 1px solid rgb(0, 0, 0);" | 
value

| valign="top" width="85%" style="width: 494px; border: 1px solid rgb(0, 0, 0);" | 
Wert, um den die Zählervariable var jedesmal erhöht/vermindert wird wenn NEXT erreicht wird.

|}
</div>
<span style="font-family: Arial;">&nbsp;</span>
<div style="padding: 0px; margin: 0px 0px 0px 11px;">
{| border="0" cellpadding="0" cellspacing="0"
|- valign="baseline" style="vertical-align: baseline;"
| width="13" | <span style="font-size: 10pt; font-family: 'Arial Unicode MS', 'Lucida Sans Unicode', Arial;">•</span>
| Für hochzählende Schleifen muss TO verwendet werden.
|}
</div><div style="padding: 0px; margin: 0px 0px 0px 11px;">
{| border="0" cellpadding="0" cellspacing="0"
|- valign="baseline" style="vertical-align: baseline;"
| width="13" | <span style="font-size: 10pt; font-family: 'Arial Unicode MS', 'Lucida Sans Unicode', Arial;">•</span>
| Für herunterzählende Schleifen muss eine negative Schrittweite value angegeben werden.
|}
</div><div style="padding: 0px; margin: 0px 0px 0px 11px;">
{| border="0" cellpadding="0" cellspacing="0"
|- valign="baseline" style="vertical-align: baseline;"
| width="13" | <span style="font-size: 10pt; font-family: 'Arial Unicode MS', 'Lucida Sans Unicode', Arial;">•</span>
| Ein FOR-Konstrukt muss mit NEXT abgeschlossen.
|}
</div><div style="padding: 0px; margin: 0px 0px 0px 11px;">
{| border="0" cellpadding="0" cellspacing="0"
|- valign="baseline" style="vertical-align: baseline;"
| width="13" | <span style="font-size: 10pt; font-family: 'Arial Unicode MS', 'Lucida Sans Unicode', Arial;">•</span>
| Die Benutzung von STEP ist optional. Standardmäßig wird für STEP 1 verwendet.
|}
</div>
<span style="font-family: Arial;">&nbsp;</span>

Wenn im Voraus bekannt ist wie oft eine Schleife ausgeführt werden soll dann ist eine FOR..NEXT Schleife geeignet.

Man kann eine FOR..NEXT Schleife mit EXIT FOR (vorzeitig) verlassen.

&nbsp;

Wenn für Startwert und Endwert Variable verwendet werden dann müssen diese vom selben Datentyp sein.

Beispiel:

Dim x, as byte, st as byte, ed as byte

FOR x = st TO ED ' dies ist o.k. weil alle Variablen vom selben Datentyp sind.

&nbsp;

Dim x as Byte, st as Word, Ed as Long

FOR x = st TO ED ' dies ist NICHT o.k. weil die Variablen unterschiedliche Datentypen haben.

&nbsp;

Der Grund ist, dass bei Auswertung der Bedingung ein 2 Byte Vergleich stattfindet während man eigentlich Long haben möchte weil die End-Variable Long ist.
(Originaltext: The reason is that when the condition is evaluated, it will create a compare on 2 bytes, while you actually want to have a word since the end variable is a word.)

&nbsp;

Eine FOR-NEXT Schleife mit Integer hat einen oberen Wert von 32766  und nicht 32767 - die größte Zahl, die in eine Integer-Variable passt.

Der Grund ist Codeoptimierung. Eine Prüfung auf 32767 bis -32768 würde mehr internen Code benötigen.

&nbsp;

&nbsp;

&nbsp;

&nbsp;

Es gibt auch andere Möglichkeiten. Zum Beispiel kann man eine DO..LOOP Schleife benutzen&nbsp;:

<span style="font-family: Arial;">&nbsp;</span>

<span style="font-style: italic;">Dim Var As Byte</span>

<span style="font-style: italic;">Do</span>

<span style="font-style: italic;">'code</span>

<span style="font-style: italic;">&nbsp;Incr Var</span>

<span style="font-style: italic;">Loop Until Var = 10</span>

<span style="font-family: Arial;">&nbsp;</span>

Es gibt viele Möglichkeiten, zum gewünschten Resultat zu kommen.
&nbsp;

<span style="font-family: Arial;">&nbsp;</span>

= <span class="f_Header">Siehe auch</span> =

[[EXIT|EXIT FOR]]

<span style="font-family: Arial;">&nbsp;</span>

<span style="font-family: Arial;">&nbsp;</span>

<span style="font-family: Arial;">&nbsp;</span>

= <span class="f_Header">Beispiel</span> =

<br/><source lang="bascomavr">
'-----------------------------------------------------------------------------------------
'name : for_next.bas
'copyright : (c) 1995-2005, MCS Electronics
'purpose : demo: FOR, NEXT
'micro : Mega48
'suited for demo : yes
'commercial addon needed : no
'-----------------------------------------------------------------------------------------
 
$regfile = "m48def.dat" ' Benutzter Mikrocontroller
$crystal = 4000000 ' Benutzte Taktfrequenz
$baud = 19200 ' Baudrate
$hwstack = 32 ' default use 32 for the hardware stack
$swstack = 10 ' default use 10 for the SW stack
$framesize = 40 ' default use 40 for the frame space
 
Dim A As Byte , B1 As Byte , C As Integer
 
 
For A = 1 To 10 Step 2
Print "Dieses ist A " ; A
Next A
 
Print "Herunterzaehlen"
For C = 10 To -5 Step -1
Print "Dieses ist C " ; C
Next
 
 
 
Print "Auch Verschachtelungen von FOR..NEXT Konstrukten sind möglich."
For A = 1 To 10
Print "Dieses ist A " ; A
For B1 = 1 To 10
 Print "Dieses ist B1" ; B1
Next ' Beachte: Der Parameter nach NEXT muss nicht spezifiziert werden
Next A
End
</source><br/>{{Languages}}

[[Category:BASCOM Language Reference/de]]