Imports System
Imports uCalcSoftware
Public Module Program
   Public Sub Main()
      Dim uc As New uCalc()
      Dim Int32Var = uc.DefineVariable("Int32Var As Int32")
      Dim ByteVar = uc.DefineVariable("ByteVar As Byte")
      Dim StrVar = uc.DefineVariable("StrVar As String")
      Dim SngVar = uc.DefineVariable("SngVar As Single")
      
      Int32Var.Value("4.25") '// Will be converted to integer
      ByteVar.Value("-1")    '// Will be converted to unsigned byte
      StrVar.Value("'Test'")
      SngVar.Value("1 + 0.25")
      
      Console.WriteLine(uc.Eval("Int32Var"))
      Console.WriteLine(uc.Eval("ByteVar"))
      Console.WriteLine(uc.EvalStr("StrVar"))
      Console.WriteLine(uc.EvalStr("SngVar"))
      
   End Sub
End Module