Imports System
Imports uCalcSoftware
Public Module Program
   Public Sub Main()
      Dim uc As New uCalc()
      '// 1. Default behavior: returns 'inf'
      Console.WriteLine(uc.EvalStr("1e308 * 10"))
      
      '// 2. Enable error raising for overflow
      uc.Error.TrapOnOverflow = true
      Console.WriteLine(uc.EvalStr("1e308 * 10"))
      
      '// 3. Disable it again to revert to default
      uc.Error.TrapOnOverflow = false
      Console.WriteLine(uc.EvalStr("1e308 * 10"))
   End Sub
End Module