Err函数

用于返回最新的错误状态。

格式
Err [(任务编号)]

参数

任务编号
以0~32的整数值指定任务编号。“0”时指定当前任务。可省略。

返回值
以整数值返回错误代码。

说明
Err函数告知用户当前的错误代码。在用于应对SPEL+的错误的同时告知发生了什么错误,使得可以进行适当的应对。Err可以与OnErr一起使用。

要获取控制器的错误,可以使用SysErr函数。

如果在自动运转模式(AUTO)的一般任务与NoPause任务中出现“自动运转期间发生错误”,将中断执行并结束任务。如果在NoEmgAbort任务或后台任务中使用本函数时已结束对象任务,将发生“错误2261”。如要在任务结束之前获取信息,请使用OnErr。

参阅
Era, Erf$, Erl, ErrMsg$, EResume, Ert, OnErr, Return, SysErr

Err使用示例
下例为检查是否有点P0~P399的简单实用程序。如果没有点,将在画面上显示将其告知用户的信息。使用CX命令测试是否定义了各点。如果有未定义的点,将转至错误处理控制并在画面上显示未定义该点。

Function errtest
   Integer i, errnum
   Real x

   OnErr GoTo eHandle
   For i = 0 To 399
     x = CX(P(i))
   Next i
   Exit Function
'
'
'*********************************************
'* Error Handler                             *
'*********************************************
eHandle:
   errnum = Err
   '确认是否使用未定义点
   If errnum = 78 Then
      Print "Point number P", i, " is undefined!"
   Else
      Print "ERROR: Error number ", errnum, " Occurred."
   EndIf
   EResume Next
Fend