WHILE-WEND - Revision history

Admin: Created page with "= Action = Executes a series of statements in a loop, as long as a given condition is true.
2013-02-12T19:11:05Z

Created page with "= <span class="f_Header">Action</span> = Executes a series of statements in a loop, as long as a given condition is true. <span style="font-family: Arial;"> </span> <s..."

New page
= <span class="f_Header">Action</span> =

Executes a series of statements in a loop, as long as a given condition is true.

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

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

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

<span class="f_Syntax">WHILE</span> condition

 statements

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

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

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

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

If the condition is true then any intervening statements are executed until the WEND statement is encountered.

BASCOM then returns to the WHILE statement and checks the condition.

If it is still true, the process is repeated.

If it is not true, execution resumes with the statement following the WEND statement.

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

So in contrast with the DO-LOOP structure, a WHILE-WEND condition is tested first so that if the condition fails, the statements in the WHILE-WEND structure are never executed.

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

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

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

[[DO-LOOP]]

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

<span style="font-family: Arial;"> </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]]