View source

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

Wiederholt einen Block von Befehlen bis die 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">DO</span>

&nbsp;statements

<span class="f_Syntax">LOOP</span>&nbsp;[ UNTIL expression]

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

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

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

You can exit a DO..LOOP with the EXIT DO statement.

The DO-LOOP is always performed at least once.

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

The main part of your code can best be executed within a DO.. LOOP.

You could use a GOTO also but it is not as clear as the DO LOOP.

Main:

' &nbsp;code

GOTO Main

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

Do

'Code

Loop

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

Of course in the example above, it is simple to see what happens, but when the code consist of a lot of lines of code, it is not so clear anymore what the GOTO Main does.

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

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

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

[[EXIT]]&nbsp;,&nbsp;[[WHILE-WEND]]&nbsp;,&nbsp;[[FOR-NEXT]]

<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 : do_loop.bas
'copyright : (c) 1995-2005, MCS Electronics
'purpose : demo: DO, LOOP
'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 a var
Do 'begin a do..loop
Print A 'print var
Incr A 'increase by one
Loop Until A = 10 'do until a=10
End
 
'You can write a never-ending loop with the following code
Do
'Your code goes here
Loop
</source><br/>{{Languages}}

[[Category:BASCOM Language Reference/de]]