home *** CD-ROM | disk | FTP | other *** search
/ PC World 2007 January / PCWorld_2007-01_cd.bin / v cisle / autoit / autoit-v3.2.0.1-setup.exe / Examples / Helpfile / SetError.au3 < prev    next >
Encoding:
Text File  |  2006-06-17  |  363 b   |  17 lines
  1. $result = myDiv(5, 0)
  2. If @error Then
  3.     MsgBox(4096,"Error", "Division by Zero")
  4. Else
  5.     MsgBox(4096, "Result", $result)
  6. EndIf
  7. Exit
  8.  
  9. Func myDiv($dividend, $divisor)
  10.     If $dividend = 0 And $divisor = 0 Then
  11.         SetError(2) ;indeterminate form 0/0
  12.     ElseIf $divisor = 0 Then
  13.         SetError(1) ;plain division by zero
  14.     EndIf
  15.     Return $dividend / $divisor
  16. EndFunc
  17.