F - Epson

SPEL+ Sprachreferenz
Einschränkungen
Denken Sie daran, dass alle Fehler mit der EClr-Anweisung gelöscht werden müssen:
Wenn der Anwender in der Fehlerbehandlungsroutine jedoch keine EClr Anweisung verwendet, um
den Fehler zu löschen, kann das System in einer Endlosschleife stecken bleiben. Wenn der Fehler
nicht mithilfe der Fehlerbehandlungsroutine zurückgesetzt wird, gibt das System auf den OnErr-Befehl
hin die Steuerung sofort nach seiner Rückkehr zur Hauptroutine an das Fehlerbearbeitungsprogramm
zurück. Der Grund dafür ist, dass das System davon ausgeht, es sei erneut ein Fehler aufgetreten,
während es tatsächlich nur auf den vorangegangenen Fehler reagiert (der nicht gelöscht wurde). Da
die Fehlerbehandlungsroutine den Fehler nicht zurücksetzt, tritt eine Endlosschleife auf. (Seien Sie
daher vorsichtig!)
Verschachtelte Fehlerbehandlung
SPEL unterstützt keine verschachtelte Fehlerbehandlung. Das bedeutet, dass wenn beim Beheben
eines Fehlers ein neuer Fehler auftritt, das System nicht in der Lage ist, erneut zur
Fehlerbehandlungsroutine zu wechseln, um den zweiten Fehler zu beheben. In diesem Fall bricht das
System den Task einfach ab und gibt eine Fehlermeldung aus.
Verwandte Befehle
EClr, Err
OnErr Beispiel
Das folgende Beispiel zeigt ein einfaches Dienstprogramm, das prüft, ob ob die Punkte P0-P399
existieren. Wenn der Punkt nicht existiert, erscheint eine Nachricht auf dem Bildschirm, um den
Anwender diesen Umstand wissen zu lassen. Das Programm verwendet den CX-Befehl, um jeden
einzelnen Punkt dahin gehend zu testen, ob er definiert wurde, oder nicht. Wenn ein Punkt nicht
definiert ist, wird die Steuerung an die Fehlerbehandlungsroutine übergeben und auf dem Bildschirm
erscheint eine Nachricht, die dem Anwender mitteilt, welcher Punkt nicht definiert war.
Function errDemo
Integer i, errNum
OnErr GoTo errHandler
For i = 0 To 399
temp = CX(P(i))
Next i
Exit Function
'
'
'*********************************************
'* Error Handler *
'*********************************************
errHandler:
errNum = Err(0)
EClr
'Überprüft, ob ein undefinierter Punkt verwendet wird
If errNum = 78 Then
Print "Point number P", i, " is undefined!"
Else
Print "ERROR: Error number ", errNum, " occurred while"
Print " trying to process point P", i, " !"
EndIf
EResume
Fend
SPEL+ Language Reference Rev 3.5 299