Imports System
Imports uCalcSoftware
Public Module Program
   Public Sub Main()
      Dim uc As New uCalc()
      uc.DefineVariable("MyVar = 10")
      uc.DefineConstant("MyPi = 3.14")
      
      Console.WriteLine(uc.Eval("MyVar"))
      Console.WriteLine(uc.Eval("MyPi"))
      
      uc.EvalStr("MyVar = 20") '// Attempt to change MyVar
      Console.WriteLine(uc.Error.Message)
      
      uc.EvalStr("MyPi = 25") '// Attempt to change MyPi
      Console.WriteLine(uc.Error.Message)
      
      Console.WriteLine(uc.EvalStr("MyVar"))
      Console.WriteLine(uc.EvalStr("MyPi"))
   End Sub
End Module