Interrupt benutzen, um Sub zu beenden?

[bnitram]

Hallo Forum,
ich habe folgendes Problem:
Ich habe einen Taster und 3 verschiedene Programme, die nacheinander über den Taster wählbar sein sollen.
Die jeweiligen Programme besitzen jeweils einen Sub.
Bei mir sieht das jetzt so aus:
Der Taster löst einen Interrupt aus und zählt eine Variable um eins hoch. In der Hauptschleife wird über ein Case-Select der entsprechende Sub angesprochen.
Jetzt ist aber mein Problem das in den Sub(die etwas länger dauern) auch schleifen drin sind. Wie kann ich das machen, das sobald der Interrupt ausgelöst wird, auch den Sub mitten drin abbricht?

Ich würde mich sehr über hilfreiche Antworten freuen.
Mfg
bnitram

[Searcher]

Ohne Code kann man nicht so leicht antworten. Prinzipiell würde ich in dem Interrupt, der den Abbruch einer Sub auslösen soll, ein Flag setzten. In der Schleife der entsprechenden Sub wird auch immer dieses Flag abgefragt und im Abbruchfall zB mit Goto zum Ende (Return) der Sub gesprungen.

Gruß
Searcher

[peterfido]

Wozu mit Goto zum Return springen? Einfach gleich ein Return rein.



$regfile = "m88Adef.dat"
$baud = 19200
$crystal = 8000000

Config Watchdog = 512

$hwstack = 160
$swstack = 100
$framesize = 100

Ddrb = &B00011100

Led1 Alias Portb.2
Led2 Alias Portb.3
Led3 Alias Portb.3

Config Int0 = Falling
On Int0 Isr_int0

Dim Bstop As Bit
Dim L As Long
Enable Int0
Enable Interrupts

Do
Gosub Prg1
Waitms 100 'entprellen
Gosub Prg2
Waitms 100 'entprellen
Gosub Prg3
Waitms 100 'entprellen
Loop
End

Prg1:

Reset Bstop
Do
Toggle Led1
For L = 1 To 1000
Waitms 1
If Bstop = 1 Then
Return
End If
Next L
Loop

Return

Prg2:

Reset Bstop
Do
Toggle Led2
For L = 1 To 1000
Waitms 1
If Bstop = 1 Then
Return
End If
Next L
Loop

Return

Prg3:

Reset Bstop
Do
Toggle Led3
For L = 1 To 1000
Waitms 1
If Bstop = 1 Then
Return
End If
Next L
Loop

Return

Isr_int0:
Set Bstop
Return

[bnitram]

Hallo,
danke für die Antworten.
Ich denke ich werde mal die 2. Möglichkeit testen.
Ich melde mich morgen nochmal.

Mfg
bnitram