View source

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

Führt eine Folge von Anweisungen in einer Schleife aus solange eine Bedingung wahr ist. 

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

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

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

<span class="f_Syntax">WHILE</span>&nbsp;condition

&nbsp;statements

<span class="f_Syntax">WEND</span>

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

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

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

Wenn die Bedingung wahr ist dann werden alle nachfolgenden Befehle ausgeführt bis das WEND erreicht wird.

BASCOM kehrt dann zum WHILE Befehl zurück und prüft die Bedingung.

Wenn die Bedingung immer noch wahr ist dann wiederholt sich dieser Ablauf.

Wenn die Bedingung nicht wahr ist dann wird der Programmablauf nach dem WEND fortgesetzt.

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

Im Gegensatz zum DO-LOOP Befehl wird bei WHILE-WEND also die Bedingung am Anfang geprüft so dass die Befehle in der WHILE-WEND Schleife nie ausgeführt werden wenn die Bedingung nicht erfüllt ist.
<span style="font-family: Arial;">&nbsp;</span>

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

= <span class="f_Header">See also</span> =

[[DO-LOOP]]

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

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

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

<br/><source lang="bascomavr">
'-----------------------------------------------------------------------------------------
'name : while_w.bas
'copyright : (c) 1995-2005, MCS Electronics
'purpose : demo: WHILE, WEND
'micro : Mega48
'suited for demo : yes
'commercial addon needed : no
'-----------------------------------------------------------------------------------------
 
$regfile = "m48def.dat" ' specify the used micro
$crystal = 4000000 ' used crystal frequency
$baud = 19200 ' use baud rate
$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
 
A = 1 'assign var
While A < 10 'test expression
Print A 'print var
Incr A 'increase by one
Wend 'continue loop
End
</source><br/>{{Languages}}

[[Category:BASCOM Language Reference/de]]