home *** CD-ROM | disk | FTP | other *** search
/ PC World 2006 February / PCWorld_2006-02_cd.bin / software / vyzkuste / triky / triky.exe / autoit-v3-setup.exe / Examples / SetError.au3 < prev    next >
Text File  |  2004-09-22  |  363b  |  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.