Imports System
Imports uCalcSoftware
Public Module Program
   Public Sub Main()
      Dim uc As New uCalc()
      Dim MyStr = uc.DefineVariable("MyStr As String")
      Dim MyDbl = uc.DefineVariable("MyDbl As Double")
      Dim MyCplx = uc.DefineVariable("MyCplx As Complex")
      Dim MyBool = uc.DefineVariable("MyBool As Boolean")
      
      MyStr.ValueStr("Hello world!")
      MyDbl.ValueStr("123.456")
      MyCplx.ValueStr("3+4*#i")
      MyBool.ValueStr("True")
      
      Console.WriteLine(uc.EvalStr("$'MyStr = {MyStr}'"))
      Console.WriteLine(uc.EvalStr("$'MyDbl = {MyDbl}'"))
      Console.WriteLine(uc.EvalStr("$'MyCplx = {MyCplx}'"))
      Console.WriteLine(uc.EvalStr("$'MyBool = {MyBool}'"))
      Console.WriteLine("---")
      Console.WriteLine(MyStr.ValueStr())
      Console.WriteLine(MyDbl.ValueStr())
      Console.WriteLine(MyCplx.ValueStr())
      Console.WriteLine(MyBool.ValueStr())
   End Sub
End Module