Imports System
Imports uCalcSoftware
Public Module Program
   Public Sub Main()
      Dim uc As New uCalc()
      Dim MyDbl = uc.DefineVariable("MyDbl = 123.456")
      Dim MyStr = uc.DefineVariable("MyStr = 'Hello world!'")
      Dim MyCplx = uc.DefineVariable("MyCplx = 3 + 4 * #i")
      
      Console.WriteLine(uc.EvalStr("MyDbl"))
      Console.WriteLine(uc.EvalStr("MyStr"))
      Console.WriteLine(uc.EvalStr("MyCplx"))
      
      uc.DataTypeOf("double").Reset(MyDbl.ValueAddr())
      uc.DataTypeOf("string").Reset(MyStr.ValueAddr()) '// empty string ""
      uc.DataTypeOf("complex").Reset(MyCplx.ValueAddr())
      
      Console.WriteLine(uc.EvalStr("MyDbl"))
      Console.WriteLine(uc.EvalStr("MyStr"))
      Console.WriteLine(uc.EvalStr("MyCplx"))
      
      
   End Sub
End Module