Obsługa podprogramów > Exit - polecenie | | Drukuj |
Polecenie powoduje zakończenie wykonania podprogramu zdefiniowanego poleceniem Do, Sub lub While. Polecenie może wystąpić wielokrotnie w dowolnych miejscach podprogramu. Po zakończeniu podprogramu, kontynuowane jest wykonanie programu od miejsca wywołania podprogramu.
Składnia
Exit
Argumenty
Brak.
Wartość zwracana
Nie zwraca wartości.
Przykład
//Podprogram zdefiniowany przed wywołaniem
Int Sub Dialog1 (Int czerwony, Int zielony, Int niebieski,Int wart)
//Etykieta
wyj:
//Okno z komunikatem o wartości licznika
Form "Liczenie do sześciu",400,200
Ground czerwony, zielony, niebieski
Button "O&K", 150, 110, 100, 24, -1
Text "Pokaz działania pętli z poleceniem Exit",100,10,200,24
Text " < 6. Naciśnij OK w celu powiększenia stanu licznika",130,50,250,24
Edit "Wartość licznika",wart,110,50,20,24
ExecForm
//Struktura sprawdzania i powiększania stanu licznika
If wart <= 4 then
wart = wart + 1
//Skok do etykiety
GoTo wyj:
Else
//Wyjście z pętli
Exit
EndIf
EndSub
Int war = 0
//Wywołanie zdefiniowanego podprogramu
Dialog1 (255,255,0,war)
//Okno z komunikatem o zakończeniu demonstracji licznika
Form "Informacja o zakończeniu pętli",400,200
Ground 0,250,0
Button "O&K", 150, 110, 100, 24, -1
Text "Zakończono pokaz działania pętli z poleceniem Exit",50,30,300,24
ExecForm