Try...Catch: Difference between revisions

From NSB App Studio
Jump to navigation Jump to search
No edit summary
No edit summary
 
Line 16: Line 16:
The Catch block has the value of the runtime error or the Throw message you supplied in ''err''.
The Catch block has the value of the runtime error or the Throw message you supplied in ''err''.


== Example (Basic) ==
== Example ==


<pre>
<tabber>
Rem Try Example
JavaScript=
'Try catches run time errors
<syntaxhighlight lang="JavaScript">
Try
  Dim CurrLiab, CurrAssets
  CurAssets=InputBox("Enter assets")
  If Not IsNumeric(CurAssets) Then Throw 1
  If CurAssets < 0 Then Throw "lessthan"
  CurLiab=InputBox("Enter liabilities")
  If CurLiab=0 Then Throw "Divide by Zero"
  If CurLiab < 0 Then
      Throw "Liabilities must be > 0"
  End If
  If Not IsNumeric(CurLiab) Then Throw 1
  Print CurAssets, CurLiab
  Print "Ratio:" & CurAssets/CurLiab
Catch err
  If err=1 Then err="Enter a number"
  If err="lessthan" Then
      err="Value must be >= 0"
  End if
  Print err
Finally 'this is optional
  Print "Done"
End Try
</pre>
 
== Example (JavaScript) ==
 
<pre>
// Try Example
// Try Example
/* Try catches run time errors */
/* Try catches run time errors */
Line 72: Line 45:
} finally { //this is optional
} finally { //this is optional
   NSB.Print("Done");
   NSB.Print("Done");
}
}</syntaxhighlight>
</pre>
|-|
BASIC=
<syntaxhighlight lang="vb.net">
Rem Try Example
'Try catches run time errors
Try
  Dim CurrLiab, CurrAssets
  CurAssets=InputBox("Enter assets")
  If Not IsNumeric(CurAssets) Then Throw 1
  If CurAssets < 0 Then Throw "lessthan"
  CurLiab=InputBox("Enter liabilities")
  If CurLiab=0 Then Throw "Divide by Zero"
  If CurLiab < 0 Then
      Throw "Liabilities must be > 0"
  End If
  If Not IsNumeric(CurLiab) Then Throw 1
  Print CurAssets, CurLiab
  Print "Ratio:" & CurAssets/CurLiab
Catch err
  If err=1 Then err="Enter a number"
  If err="lessthan" Then
      err="Value must be >= 0"
  End if
  Print err
Finally 'this is optional
  Print "Done"
End Try</syntaxhighlight>
</tabber>


== Output ==
== Output ==

Latest revision as of 23:32, 24 July 2019

Try

{statements}
Throw errCode

Catch err

{statements}

[Finally

{statements}]

End Try

Description

The Try…Catch statement allows you to test a block of code for runtime errors. The Try block contains the code to be run, and the Catch block contains the code to be executed if an error occurs. The optional Finally block is executed whether there is an error or not.

An error can be created by something that gets executed (such as division by zero) or you can force an error using the Throw statement. When you force an error using Throw, supply an errCode which can be a number or a string.

The Catch block has the value of the runtime error or the Throw message you supplied in err.

Example

// Try Example
/* Try catches run time errors */

try {
  var CurrLiab, CurrAssets;
   CurAssets=prompt("Enter assets","");
   if(!(IsNumeric(CurAssets)) ){ throw 1; }
   if(CurAssets < 0) { throw "lessthan"; }
   CurLiab=prompt("Enter liabilities","");
   if(CurLiab==0) { throw "Divide by Zero"; }
   if(CurLiab < 0) {
      throw "Liabilities must be > 0";
   }
   if(!(IsNumeric(CurLiab) ) ){ throw 1; }
   NSB.Print(CurAssets+ " " + CurLiab);
   NSB.Print("Ratio:" + (CurAssets/CurLiab));
} catch(err) {
   if(err==1) { err="Enter a number"; }
   if(err=="lessthan") {
      err="Value must be >= 0";
   }
   NSB.Print(err);
} finally { //this is optional
   NSB.Print("Done");
}

Rem Try Example
'Try catches run time errors
Try
   Dim CurrLiab, CurrAssets 
   CurAssets=InputBox("Enter assets")
   If Not IsNumeric(CurAssets) Then Throw 1
   If CurAssets < 0 Then Throw "lessthan"
   CurLiab=InputBox("Enter liabilities")
   If CurLiab=0 Then Throw "Divide by Zero"
   If CurLiab < 0 Then
      Throw "Liabilities must be > 0"
   End If
   If Not IsNumeric(CurLiab) Then Throw 1
   Print CurAssets, CurLiab
   Print "Ratio:" & CurAssets/CurLiab
Catch err
   If err=1 Then err="Enter a number"
   If err="lessthan" Then
      err="Value must be >= 0"
   End if
   Print err
Finally 'this is optional
   Print "Done"
End Try

Output

(depends on what values are input)
Done