GOSUB/de

From MCS Wiki AVR
< GOSUB(Difference between revisions)
Jump to: navigation, search
(Anmerkungen)
(Beispiel)
 
(5 intermediate revisions by one user not shown)
Line 37: Line 37:
 
<span style="font-family: Arial;">&nbsp;</span>
 
<span style="font-family: Arial;">&nbsp;</span>
  
= <span class="f_Header">See also</span> =
+
= <span class="f_Header">Siehe auch</span> =
  
 
[[GOTO]]&nbsp;,&nbsp;[[CALL]]&nbsp;,&nbsp;[[RETURN]]
 
[[GOTO]]&nbsp;,&nbsp;[[CALL]]&nbsp;,&nbsp;[[RETURN]]
Line 45: Line 45:
 
<span style="font-family: Arial;">&nbsp;</span>
 
<span style="font-family: Arial;">&nbsp;</span>
  
= <span class="f_Header">Example</span> =
+
= <span class="f_Header">Beispiel</span> =
  
 
<br/><source lang="bascomavr">
 
<br/><source lang="bascomavr">
Line 57: Line 57:
 
'-----------------------------------------------------------------------------------------
 
'-----------------------------------------------------------------------------------------
 
   
 
   
$regfile = "m48def.dat" ' specify the used micro
+
$regfile = "m48def.dat" ' Mikrocontroller
$crystal = 4000000 ' used crystal frequency
+
$crystal = 4000000 ' Taktfrequenz
$baud = 19200 ' use baud rate
+
$baud = 19200 ' Baudrate
 
$hwstack = 32 ' default use 32 for the hardware stack
 
$hwstack = 32 ' default use 32 for the hardware stack
 
$swstack = 10 ' default use 10 for the SW stack
 
$swstack = 10 ' default use 10 for the SW stack
Line 65: Line 65:
 
   
 
   
 
Goto Continue
 
Goto Continue
Print "This code will not be executed"
+
Print "Dieser Code wird nicht ausgeführt"
 
   
 
   
Continue: 'end a label with a colon
+
Continue: 'Ein Label muss mit einem Doppelpunt beendet werden
Print "We will start execution here"
+
Print "Hier startet die Ausführung"
 
Gosub Routine
 
Gosub Routine
Print "Back from Routine"
+
Print "Zurück aus der Subroutine"
 
End
 
End
 
   
 
   
+
Routine: 'Eine Subroutine starten
Routine: 'start a subroutine
+
Print "Dieses wird ausgeführt"
Print "This will be executed"
+
Return 'Rücksprung aus der Subroutine
Return 'return from subroutine
+
 
</source><br/>{{Languages}}
 
</source><br/>{{Languages}}
  
 
[[Category:BASCOM Language Reference/de]]
 
[[Category:BASCOM Language Reference/de]]

Latest revision as of 23:12, 12 March 2013

Contents

Funktion

Verzweigt zu einer SUB-Routine.

 

 

Syntax

GOSUB label

 

 

Anmerkungen

Label

Der Name des Labels zu dem verzweigt wird.

 

Mit GOSUB springt der Programmablauf zu dem angegebenen Label und führt den nachfolgenden Programmcode aus.

Trifft die Programmausführung auf den Befehl Return, wird wieder mit der Ausführung des Programms nach dem Aufrufenden GOSUB fortgefahren.

 

 

Siehe auch

GOTO , CALL , RETURN

 

 

Beispiel


'-----------------------------------------------------------------------------------------
'name : gosub.bas
'copyright : (c) 1995-2005, MCS Electronics
'purpose : demo: GOTO, GOSUB and RETURN
'micro : Mega48
'suited for demo : yes
'commercial addon needed : no
'-----------------------------------------------------------------------------------------
 
$regfile = "m48def.dat" ' Mikrocontroller
$crystal = 4000000 ' Taktfrequenz
$baud = 19200 ' Baudrate
$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
 
Goto Continue
Print "Dieser Code wird nicht ausgeführt"
 
Continue: 'Ein Label muss mit einem Doppelpunt beendet werden
Print "Hier startet die Ausführung"
Gosub Routine
Print "Zurück aus der Subroutine"
End
 
Routine: 'Eine Subroutine starten
Print "Dieses wird ausgeführt"
Return 'Rücksprung aus der Subroutine

Languages   English Deutsch  
Personal tools
Namespaces
Variants
Actions
Navigation
In other languages
Language