Control Structures
These are examples of control structures. You may also be interested in:

 Conditional structures
 Exceptions
 Flow-control structures
 Loops

This task is to give an example of an exception handling routine
and to "throw" a new exception.



Related task

   Exceptions Through Nested Calls


' FB 1.05.0 Win64
 
Enum ErrorType
  myError = 1000 
End Enum
 
Sub foo()
  Err = 1000 ' raise a user-defined error
End Sub
 
Sub callFoo()
  foo()
  Dim As Long errNo = Err ' cache Err in case it's reset by a different function
  Select Case errNo
    Case 0
      ' No error (system defined)
    Case 1 To 17
      ' System defined runtime errors
    Case myError:   ' catch myError 
      Print "Caught myError : Error number"; errNo
    Case Else
      ' catch any other type of errors here
  End Select
  ' add any clean-up code here
End Sub
 
callfoo()
Print
Print "Press any key to quit"
Sleep