31 lines
306 B
Text
31 lines
306 B
Text
|
Public Sub Main()
|
||
|
|
Dim iInteger As Integer
|
||
|
|
|
||
|
|
MakeError
|
||
|
|
DivError
|
||
|
|
|
||
|
|
iInteger = "2.54"
|
||
|
|
|
||
|
|
Catch
|
||
|
|
Print Error.Text
|
||
|
|
|
||
|
|
End
|
||
|
|
'______________________
|
||
|
|
Public Sub DivError()
|
||
|
|
|
||
|
|
Print 10 / 0
|
||
|
|
|
||
|
|
Catch
|
||
|
|
Print Error.Text
|
||
|
|
|
||
|
|
End
|
||
|
|
'______________________
|
||
|
|
Public Sub MakeError()
|
||
|
|
|
||
|
|
Error.Raise("My Error")
|
||
|
|
|
||
|
|
Catch
|
||
|
|
Print Error.Text
|
||
|
|
|
||
|
|
End
|