[已解决]关于方法SetError()和@error 用法的理解问题。

wiley_wang

对于SetError和@error的用法有些地方理解不了，希望各位帮忙解答解答！！！
这是我写的一个例子：

Test1()
Func Test1()
        Local $result = 1
        test(1)
        $result += @error
        ConsoleWrite("Test::::::::::::::::::" & $result & @CRLF)
        test(0)
        $result += @error
        ConsoleWrite("Test::::::::::::::::::" & $result & @CRLF)
        test(1)
        $result += @error
        ConsoleWrite("Test::::::::::::::::::" & $result & @CRLF)
        test(0)
        $result += @error
        ConsoleWrite("Test::::::::::::::::::" & $result & @CRLF)
EndFunc
Func test($x)
        If $x = 1 Then
                SetError(1, 3, 0)
                ; 根据其他测试用例，可以了解到SetError中第三个参数是整个SetError这个function的返回值、
                ; 1. 我想问问，这个返回值是可以随便写的么，有没有什么特定的值？
                ; 2. 第二个参数代表什么，完全没理解，希望各位解答一下，有没有什么方法使用这个参数的结果?
                Return @error
        Else
                Return @error
        EndIf
EndFunc

@error 据我了解是返回关于最近的function所设置的@error的值，这个特性有没有办法改变 呢？

Qokelate

据我了解  我都不知楼主想表达啥

afan

“Return @error” 这样写是错误的。这样返回的并非 @error ，而是将  @error 值当成了返回值。
如果你只需要@error，不需要返回值，就不要 Return xxx，或者 Return SetError(x)

如果你既需要@error，也需要 @extended 扩展值，可以 SetError(x, xx)

如果你既需要@error，也需要 @extended 扩展值，还需要返回值，那么可以 SetError(x, xx, xxx)

这些值具体怎么用，可以依据自己的需要或方便使用来定，可以多看看 UDF 写法

haijie1223

看帮助~不是说的很明白了么
下面是帮助中的例子
SetError：设置宏 @error 的值.
SetError ( 错误码 [, 扩展值 [, 返回值]] )

Local $iResult = myDiv(5, 0)
If @error Then
    MsgBox(4096,"错误", "除数为 0")
Else
    MsgBox(4096, "结果", $iResult)
EndIf
Exit

Func myDiv($iDividend, $iDivisor)
    If $iDividend = 0 And $iDivisor = 0 Then
        SetError(2) ;表达式为 0/0
    ElseIf $iDivisor = 0 Then
        SetError(1) ;除数为 0
    EndIf
    Return $iDividend / $iDivisor
EndFunc   ;==>myDiv

wiley_wang

回复 3# afan

谢谢！

wiley_wang

回复 4# haijie1223

看了没看明白才来问问嘛......

wiley_wang

回复 3# afan

只是恰巧碰到了这个，以后会抽空多看看UDF，谢谢指教

dancingspider

不是很理解异常是什么处理的 来看看

haijie1223

回复 6# wiley_wang


    @error 的值是用SetError来设置的，这样说能明白吗？你也可以认为@error是一个“标志”开关，针对处理结果不同，设置“标志”为不同的值，所以根据“标志”的返回值就知道程序得到了什么样的结果。
例如：你想利用一个函数来判断一个数是正数还是负数，可以利用设置@error的值来判断。

Dim $a = 0, $b = 1, $c = -1

zf($c)
If @error = 1 Then MsgBox(0, "", "变量为0")
If @error = 2 Then MsgBox(0, "", "变量为正数")
If @error = 3 Then MsgBox(0, "", "变量为负数")



Func zf($num)
        If $num = 0 Then SetError(1)
        If $num > 0 Then SetError(2)
        If $num < 0 Then SetError(3)
EndFunc   ;==>zf

user3000

我的理解:
@error 反映调用一个函数时该函数的执行情况. 一般我们在成功得到结果时,设为0,失败时设为1等. 当然不一定这样,你自己根据自己的喜好或要求而设定.
SetError 这是内置函数, 让我们得以在自定义函数内设置它的@error. 如果不用它, 那么所有的自定义函数的@error值都被默认地设为0.

借用4楼代码进一步说明吧;

Local $iResult = myDiv(5, 0)
If @error Then
        If @extended = 1 Then 
      MsgBox(4096,"输入错误", "除数为0")
    ElseIf @extended = 2 Then
          MsgBox(4096,"输入错误", "除数和被除数均为0")
    Else
          MsgBox(4096,"错误", "发生了未知错误")
        EndIf
Else
    MsgBox(4096, "结果", $iResult)
EndIf

Func myDiv($iDividend, $iDivisor)
    If $iDividend = 0 And $iDivisor = 0 Then
        Return SetError(1, 2) ;表达式为 0/0,设置@error 及其扩展值
    ElseIf $iDivisor = 0 Then
        Return SetError(1, 1) ;除数为 0,;同上,设置@error 及其扩展值,
                ;但扩展值有所不同,以示这是另一个错误.                
        Else
                Return SetError(0, 0, $iDividend / $iDivisor) ; 返回正确结果
    EndIf
    Return SetError(1, 3) ;未知错误
EndFunc