DO-LOOP/de
(Difference between revisions)
m (1 revision) |
(→(**COPIED FROM ENGLISH PAGE**) =) |
||
| Line 1: | Line 1: | ||
| − | + | = <span class="f_Header">Action</span> = | |
| − | + | Wiederholt einen Block von Befehlen bis die Bedingung wahr ist. | |
<span style="font-family: Arial;"> </span> | <span style="font-family: Arial;"> </span> | ||
Revision as of 02:00, 17 February 2013
Contents |
Action
Wiederholt einen Block von Befehlen bis die Bedingung wahr ist.
Syntax
DO
statements
LOOP [ UNTIL expression]
Remarks
You can exit a DO..LOOP with the EXIT DO statement.
The DO-LOOP is always performed at least once.
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:
' code
GOTO Main
Do
'Code
Loop
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.
See also
EXIT , WHILE-WEND , FOR-NEXT
Example
'----------------------------------------------------------------------------------------- '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
| Languages | English • Deutsch |
|---|