F - Epson

SPEL+ Sprachreferenz
Err 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. Beachten Sie,
dass der Fehlercode vom System in errnum Variable gespeichert wird, bevor Sie EClr aufrufen.
Function eclrtest
Integer i, errnum
Real temp
OnErr Goto eHandle
For i = 0 To 399
temp = CX(P(i))
Next i
End
'
'
'*********************************************
'* Error Handler *
'*********************************************
eHandle:
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."
End If
EResume Next
Fend
150 SPEL+ Language Reference Rev 3.5