Admin: 1 revision

2013-02-15T19:14:29Z

1 revision

Admin: Created page with "= Action = Exit a FOR..NEXT, DO..LOOP , WHILE ..WEND, SUB..END SUB or FUNCTION..END FUNCTION. ..."

2013-02-09T14:26:45Z

Created page with "= Action = Exit a FOR..NEXT, DO..LOOP , WHILE ..WEND, SUB..END SUB or FUNCTION..END FUNCTION. ..."

New page

== (**COPIED FROM ENGLISH PAGE**) === Action =

Exit a FOR..NEXT, DO..LOOP , WHILE ..WEND, SUB..END SUB or FUNCTION..END FUNCTION.

 

 

= Syntax =

EXIT FOR

EXIT DO

EXIT WHILE

EXIT SUB

EXIT FUNCTION

 

 

= Remarks =

With the EXIT statement you can exit a structure at any time.

 

 

= Remarks about EXIT SUB/FUNCTION =

It is important that you exit a SUB or FUNCTION with EXIT. Do not use a RETURN. A return can be used inside a sub routine to return from a sub routine located inside the sub routine.

For example:

 

Sub Test()

gosub label1

Exit Sub

 

label1:

print "test"

return

End Sub

 

 

When you use EXIT SUB or EXIT FUNCTION, the compiler will create a jump to a label with the sub/function name, prefixed with two underscores.

For example your Sub routine is named Test(), and you use Exit Sub, a label will be created with the name __TEST:

 

 

 

= Example =

 <source lang="bascomavr">
'-----------------------------------------------------------------------------------------
'name : exit.bas
'copyright : (c) 1995-2005, MCS Electronics
'purpose : demo: EXIT
'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 B1 As Byte , A As Byte

B1 = 50 'assign var
For A = 1 To 100 'for next loop
If A = B1 Then 'decision
Exit For 'exit loop
End If
Next
Print "Exit the FOR..NEXT when A was " ; A

A = 1
Do
Incr A
If A = 10 Then
Exit Do
End If
Loop
Print "Loop terminated"
End
</source> {{Languages}}

[[Category:BASCOM Language Reference/de]]

EXIT/de - Revision history

Admin: 1 revision

Admin: Created page with "= Action = Exit a FOR..NEXT, DO..LOOP , WHILE ..WEND, SUB..END SUB or FUNCTION..END FUNCTION. ..."