mirror of
https://github.com/QB64Official/qb64.git
synced 2024-08-30 15:20:14 +00:00
42 lines
1.1 KiB
Text
42 lines
1.1 KiB
Text
|
'''ERR''' function returns the last Qbasic error code number.
|
||
|
|
||
|
|
||
|
{{PageSyntax}}
|
||
|
:: errornum% = ERR
|
||
|
|
||
|
|
||
|
* If there is no error it returns 0
|
||
|
* Can be used in an error handling routine to report the error number.
|
||
|
|
||
|
|
||
|
''Example:'' Simulating an error to test a program error handler that looks for a "Subscript out of range" error.
|
||
|
{{CodeStart}} '' ''
|
||
|
{{Cl|ON ERROR}} {{Cl|GOTO}} handler
|
||
|
|
||
|
{{Cl|IF...THEN|IF}} x = 0 {{Cl|THEN}} {{Cl|ERROR}} 111 'simulate an error code that does not exist
|
||
|
x = x + 1
|
||
|
{{Cl|IF...THEN|IF}} x {{Cl|THEN}} {{Cl|ERROR}} 9 'simulate array boundary being exceeded
|
||
|
|
||
|
{{Cl|END}}
|
||
|
|
||
|
handler:
|
||
|
{{Cl|PRINT}} {{Cl|ERR}}, {{Cl|_ERRORLINE}}
|
||
|
{{Cl|BEEP}}
|
||
|
{{Cl|IF...THEN|IF}} {{Cl|ERR}} = 9 {{Cl|THEN}}
|
||
|
{{Cl|PRINT}} "The program has encountered an error and needs to close! Press a key!"
|
||
|
K$ = {{Cl|INPUT$}}(1)
|
||
|
{{Cl|SYSTEM}}
|
||
|
{{Cl|END IF}}
|
||
|
{{Cl|RESUME}} {{Cl|NEXT}} 'RESUME can only be used in error handlers '' ''
|
||
|
{{CodeEnd}}
|
||
|
|
||
|
|
||
|
''See also:''
|
||
|
|
||
|
* [[ON ERROR]], [[RESUME]]
|
||
|
* [[ERL]], [[_ERRORLINE]]
|
||
|
* [[ERROR]]
|
||
|
* [[ERROR Codes]]
|
||
|
|
||
|
|
||
|
{{PageNavigation}}
|